Bisher habe ich nur aus Neugier mit Collection gearbeitet, es war immer durch andere Ansätze zu ersetzen.
Die Liste der Docx hast Du aus Powershell in ein sonst leeres Word-Dikument kopiert. Der Makro läuft in dieser Datei
Der Code ist nicht geprüft, gehe ihn mit F8 im Einzelschritt-Modus durch:
sub DocProb()
dim Doc as Document
with activedocument
for i = 1 to .Paragraphs.count
set doc = document.Open f
with Doc
For Each p In .CustomDocumentProperties
if p.name = "suchbegriff" then Debug.Print p.Name, p.Value
Next p
end with
next i
end with
end sub
Da ich Deine Suchbegriffe /Bedingungen nicht kenne, mußt du diesen Teil ergänzen (und alles debuggen)
|