Ausdrucken von Autotexteintragen

14/01/2008 - 11:03 von Regina Hartig-Drelse | Report spam
Hallo,

ich arbeite mit Word 2002

Wenn ich die Textbausteine einer bestimmten Vorlage drucken möchte,
lösche ich zuvor in Extras - Vorlagen und Add-Ins ... die Textbausteine
der Normal.dot, damit nicht mehrere Seiten verdruckt werden, die ich ja
nicht benötige.

Gibt es eine Möglichkeit, dies eleganter zu lösen?

Mit freundlichen Grüßen
Regina
 

Lesen sie die antworten

#1 Lisa Wilke-Thissen
14/01/2008 - 11:56 | Warnen spam
Hallo Regina,

"Regina Hartig-Drelse" schrieb im Newsbeitrag
news:

ich arbeite mit Word 2002

Wenn ich die Textbausteine einer bestimmten Vorlage drucken möchte, ...



kannst du z.B. folgende Makros verwenden:

1)
http://support.microsoft.com/suppor...1/9/57.asp

Sub InsertAllAutoText()
Dim Entry As AutoTextEntry
Documents.Add
For Each Entry In NormalTemplate.AutoTextEntries
' Turn bold formatting on and insert the AutoText name
Selection.Font.Bold = True
Selection.TypeText Text:=Entry.Name

' Turn bold formatting off and insert AutoText entry
Selection.Font.Bold = False
Selection.TypeParagraph
Entry.Insert Where:=Selection.Range, RichText:=True
Selection.Range.Select
Selection.TypeParagraph

' Insert a blank line between entries
Selection.TypeParagraph
Next
End Sub

2)
http://groups.google.de/group/micro...a80dc559f2

Sub AutotexteDrucken()
Dim ATE As AutoTextEntry
Set Vorlage = ActiveDocument.AttachedTemplate
For Each ATE In Vorlage.AutoTextEntries
Selection.TypeText "Autotextname: " & ATE.Name & vbCrLf & vbCrLf
ATE.Insert Where:=Selection.Range, RichText:=True
Selection.TypeText vbCrLf & vbCrLf
Next
Selection.Collapse
Selection.Delete Unit:=wdCharacter, Count:=-3
Selection.HomeKey Unit:=wdStory
End Sub

Viele Grüße

Lisa
MS MVP Word

Ähnliche fragen