none
Einzelne Formatvorlage in Symbolleiste für den Schnellzugriff integrieren RRS feed

  • Frage

  • Hallo,

    bis einschließlich Word 2003 konnte ich eine einzelne Formatvorlage über eine Schaltlfäche (Ansicht - Symbolleisten - Anpassen - Befehle - Formatvorlagen) in die Symbolleisten integrieren.

    Ich habe einige Word-Vorlagen entwickelt, in welcher die wichtigsten Formate direkt über einen Mausklick aktiviert werden können. Ich möchte jedoch nun nicht das komplette Setting an Schnellformatvorlagen anbieten, zumal auch Listenformatvorlagen dabei sind, welche über den Befehl Liste mit mehreren Ebenen aktiviert werden müssten.

    Wie bekomme ich einen einzelnen Schalter in die Symbolleiste für den Schnellzugriff? Die Ausführung von VBA ist nicht gewünscht.

    Merci und beste Grüße
    Andreas Thehos

    Freitag, 14. Mai 2010 13:06

Alle Antworten

  • Hallo Andreas,

    ich habe mir in der Normal.dotm eine Reihe von Makros geschrieben, die ich dann auf die Schnellformatleiste einbinden kann.

    Als Beispiel findest Du meine Definition der angepassten Überschrift1:

     

    Sub Ü1Fett()
       On Error GoTo ende
       If Documents.Count >= 1 Then
          Selection.Style = ActiveDocument.Styles("Überschrift 1")
          With Selection.ParagraphFormat
            Font.Size = 12
            .LeftIndent = MillimetersToPoints(17.5)
            .RightIndent = MillimetersToPoints(0)
            .SpaceBefore = 14
            .SpaceBeforeAuto = False
            .SpaceAfter = 14
            .SpaceAfterAuto = False
            .LineSpacingRule = wdLineSpaceAtLeast
            .LineSpacing = 14
            .Alignment = wdAlignParagraphLeft
            .WidowControl = True
            .KeepWithNext = True
            .KeepTogether = False
            .PageBreakBefore = False
            .NoLineNumber = False
            .Hyphenation = True
            .FirstLineIndent = MillimetersToPoints(-17.5)
            .OutlineLevel = wdOutlineLevel1
            .CharacterUnitLeftIndent = 0
            .CharacterUnitRightIndent = 0
            .CharacterUnitFirstLineIndent = 0
            .LineUnitBefore = 0
            .LineUnitAfter = 0
          End With
       Else
          MsgBox "Keine Dokumente sind geöffnet"
       End If
    ende:
         
    End Sub

    Viele Grüße

    Manfred2605

     

    • Als Antwort vorgeschlagen Manfred2605 Sonntag, 27. Februar 2011 11:38
    Sonntag, 27. Februar 2011 11:32