Tipps & Tricks 15.10.2006, 19:00 Uhr

Markierung in die Eigenschaften übernehmen - Word

Vor dem Speichern fülle ich immer die Datei Eigenschaften aus. Gibt es eine Möglichkeit, dass im Titel automatisch die markierten Worte eingefügt werden?
So ganz automatisch lässt sich dies nicht bewerkstelligen, da Sie ja erst etwas schreiben und dann auch noch das gewünschte markieren müssen. Aber mit folgendem Makro lässt sich das lösen.
Der Titel in den Eigenschaften ist zur Zeit leer und Sie haben den gewünschten Teil des Textes markiert, welcher als Titel übernommen werden soll.
Führen Sie nun das Makro über ALT + F8 aus. Wenn Sie danach erneut die Eigenschaften betrachten, wurde der markierte Text als Titel übernommen.
-----------------------------------------
MAKRO ZUM KOPIEREN:
-----------------------------------------
Sub EigenschaftTitelSetzen()
Dim T As String
T = Selection
ActiveDocument.BuiltInDocumentProperties(wdPropertyTitle).Value = T
End Sub
-----------------------------------------


Kommentare
Es sind keine Kommentare vorhanden.