Suchen nach mehreren Formatvorlagen

13/11/2008 - 13:34 von Michael L. | Report spam
Hallo,

ich suche eine Lösung für folgendes Problem: Ich möchte in einem Dokument
nach mehreren Formatvorlagen suchen und bei einem match ein Stück Code
ausführen. Habe es mit folgendem Code versucht, klappt leider nicht :-(.
Vielleicht kann mir jemand einen Tipp geben.

Selection.WholeStory
Selection.Find.ClearFormatting
With Selection.Find
.text = ""
.Replacement.text = ""
.Style = "Format1" Or "Format2" <-- geht so nicht
.Forward = False
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With

Gruß
Micha
 

Lesen sie die antworten

#1 Thomas Gahler
13/11/2008 - 14:05 | Warnen spam
Hallo Michael


ich suche eine Lösung für folgendes Problem: Ich möchte in einem Dokument
nach mehreren Formatvorlagen suchen und [...]


Das einzige was du machen kannst ist das Suchen/Ersetzen in eine Funktion zu
kapseln und die benötigten Parameter als Argument übergeben.

ungefàhr so...


Sub Hauptprogramm
'...
funcSuchenErsetzen (strFormatVorlage:="Format1")
funcSuchenErsetzen (strFormatVorlage:="Format2")
'...
End sub

private function funcSuchenErsetzen (
byval strFormatVorlage as string)

'hier das Suchen/Ersetzen abbilden
End Function




bei einem match ein Stück Code ausführen.


Das ist in deinem Code noch nicht enthalten.




Thomas Gahler
MVP für WordVBA
Co-Autor von »Microsoft Word-Programmierung.
Das Handbuch« (MS Press)


- Windows XP (SP2), Office XP (SP3)

Ähnliche fragen