PDA

Vollständige Version anzeigen : Formatvorlage markieren


TimH
10.08.2009, 14:21
Hallo
ich habe das Problem das ich in einem Text viele Formatvorlagen habe und eine davon ist in weitere aufgeteilt.
Wie kann ich nun einen Code schreiben der mir die Formatvorlage anzeigt.

Dies ist mein bisheriger Code
Sub Makro2()
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting

Selection.Find.Style = ActiveDocument.Styles("Standard 3")
Selection.Find.Replacement.Highlight = True

With Selection.Find
.Text = ""
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With

Selection.Find.Execute
WordBasic.SelectSimilarFormatting

End Sub

PapaSchlumpf
10.08.2009, 15:12
?
Extras->Optionen->Ansicht: Breite der Formatvorlagenanzeige
einstellen.

Ansonsten: wo ist genau das Problem mit dem Code? Und was soll es anders machen?

PS

TimH
10.08.2009, 15:57
Ich hätte gerne einen Code der es mir ermöglicht mehrere Formatvorlagen auf einmal markieren zu lassen und nicht nur dieses eine wie es in meinem Code der fall ist.

PapaSchlumpf
10.08.2009, 20:23
du meinst wirklich " auf einmal"?
Das geht nicht, nur nacheinander.

Aber ectl. hilft schon der Like-Operator (siehe Hilfe) dir weiter wenn es um ähnliche Style wie "Standard 3" geht?

PS