DocTemplate

Man kann den Wunsch haben, die wichtigsten Formatvorlagen einer Dokumentvorlage in Form von Symbolen in einer Symbolleiste abzulegen, damit sie gut sichtbar und einfach verwendbar sind. Der naheliegende Code für das entsprechende Makro lautet:

Sub FormatiereAlsUeberschrift1()
Selection.Paragraphs(1).Style = ActiveDocument.Styles(“Überschrift 1″)
End Sub

Das funktioniert aber nur in einem deutschen Word. Die bessere Variante ist, per Enumeration auf die eingebaute Überschriftenvorlage 1 (sprachunabhängig!) zuzugreifen (Word 2000 bis 2007):

Sub FormatiereAlsUeberschrift1()
Selection.Paragraphs(1).Style = wdStyleHeading1
End Sub

Social Networks