Tag Archives: style

Outlook, Uncategorized, Word

#Word #Formatvorlage #aktualisieren

Bild

#Word #Formatvorlage #aktualisieren

Sie haben LANGE an dieser Überschrift gebastelt, bis sie so schön war, wie sie ist. Und jetzt ist das Format perfekt.
Wär‘ nun schön, wenn alle Überschriften so aussähen … nun, klicken Sie START > Formatvorlagen und mit der rechten Maustaste auf die entsprechende Formatvorlage, und wählen Sie Überschrift 1 aktualisieren, um der aktuellen Formatierung zu entsprechen. Damit sagen Sie der Formatvorlage, dass sie von nun an gefälligst so aussehen soll wie Ihr so schön formatierter Text.
Das Gleiche gilt natürlich analog für Hervorhebung, Zitat, …

Zusatztipp: Besonders gut gelingt das weitere Arbeiten, wenn Sie vor dem Herrichten der Überschrift diese Überschrift bereits mit der zu verändernden Formatvorlage formatieren.

Uncategorized, VBA

#VBA #Shape #Rainbow

Bild

#VBA #Shape #Rainbow

Regenbogen leicht gemacht:
Linie zeichnen, Makro ausführen. Das Makro versechsfacht die gerade markierte Linie mit Versatz (von der Stärke der Linie abhängig), und weist ihr jeweils eine der vorhandenen Linienformatvorlagen zu – wenn die Theme Colours einen Regenbogen ergeben, wird’s farbenprächtigst. Am Schluss wird noch gruppiert, damit das spätere Handling leichter wird.
Was, Sie wollen sich das Makro nicht selbst ausdenken? Bitte sehr, nehmen Sie dieses:

Sub Rainbow()

 Dim myShp As ShapeRange
 Dim I As Long
 Dim FF(6) As String
 Dim Style(6) As Long
 Dim Offset As Long
 'Styles (Formatvorlagen) muss man einfach abzählen - 14 ist zB der letzte der moderaten Styles
 Style(1) = msoLineStylePreset14
 Style(2) = msoLineStylePreset9
 Style(3) = msoLineStylePreset11
 Style(4) = msoLineStylePreset13
 Style(5) = msoLineStylePreset10
 Style(6) = msoLineStylePreset12
 
 Set myShp = Selection.ShapeRange
 Offset = myShp.Line.Weight * 0.75 'Versatz muss weniger sein als die Linie dick ist
 FF(1) = myShp.Name
 myShp.ShapeStyle = Style(1)
 For I = 2 To 6
 Selection.Copy
 Selection.PasteAndFormat (wdPasteDefault)
 Set myShp = Selection.ShapeRange
 FF(I) = myShp.Name
 ActiveDocument.Shapes.Range(Array(FF(I))).Select
 myShp.Left = myShp.Left + Offset
 myShp.Top = myShp.Top + Offset
 myShp.ShapeStyle = Style(I)
 Next I

 ActiveDocument.Shapes.Range(Array(FF(1), FF(2), FF(3), FF(4), FF(5), FF(6))).Select

 Selection.ShapeRange.Group
End Sub
Uncategorized, Word

Word: eingestellte Formatvorlagen erzwingen

Bild

Tipp Formatvorlagen aktualisierenDa haben Sie sich soooo geplagt, und wunderbare Dokumentvorlagen erstellt, und darin mit sehr viel Sorgfalt CI-konforme Formatvorlagen gebastelt … und was machen die Kolleginnen? Vorlage auf, Inhalt ändern, Formatvorlagen nach Gutdünken anpassen! Weg ist das ganze schöne einheitliche Auftreten.

Ihre Kollegen haben die Word-Optionen vermutlich so eingestellt, dass ihnen das erlaubt ist. So hindern Sie sie daran: gehen Sie in den Word-Optionen zu den Add-Ins, dort wählen Sie bei Verwalten: „Vorlagen“ aus und klicken daneben auf Gehe zu … Da ist jetzt ein Kontrollkästchen „Dokumentformatvorlagen automatisch aktualisieren“ – und da hin setzen Sie ein Hakerl.

Und nun? Nun zählt das, was die Dokumentvorlage diktiert!

(Und wenn Sie nicht sicher sind, ob Ihre Dokumentvorlage wirklich alle Stückerln spielt, die eine Dokumentvorlage spielen kann, fällt Ihnen nun jemand ein, den Sie fragen könnten, oder?)