Hallo ,
wo kann ich einstellen ,das ich die z.B:
- Absatzschaltung oder Zeilenschaltung usw. auf meinem Textdokument mit sehe ? und kann ich diese dann auch sichtbar mit ausdrucken ?!
Gruß
Claudi
hddiesel 
gelöscht_152402 „Diese Symbole nennen sich nichtdruckbare Zeichen . Wird schon seinen Sinn haben....“
Hallo
Habe den Link zur Makroquelle leider nach der Neuinstallation verloren,
aber versuche es einmal mit folgendem Makro, getestet mit "WordXP":
Sub Steuerzeichen_Einfuegen()
Dim myRange As Range
Dim sSection As Section, hHeader As HeaderFooter, myShape As Shape
'
With ActiveDocument
For Each myRange In .StoryRanges
Xchg1 myRange
While Not (myRange.NextStoryRange Is Nothing)
Set myRange = myRange.NextStoryRange
Xchg1 myRange
Wend
Next myRange
For Each sSection In .Sections
For Each hHeader In sSection.Headers
If hHeader.Index = wdHeaderFooterPrimary Then
For Each myShape In hHeader.Shapes
If myShape.TextFrame.HasText Then Xchg1 myShape.TextFrame.TextRange
Next myShape
End If
Next hHeader
Next sSection
End With
End Sub
'
Function Xchg1(myRange As Range)
With myRange.Find
' Absatzmarke (Pilcrow-Zeichen einfügen)
.Execute FindText:="^p", ReplaceWith:=Chr(&HB6) & "^p", Replace:=wdReplaceAll
' Zeilenumbruch (Ersatzzeichen einfügen)
.Execute FindText:="^l", ReplaceWith:=ChrW(&H2556) & "^l", Replace:=wdReplaceAll
' geschützes Leerzeichen (weißes Aufzählunszeichen einfügen)
.Execute FindText:="^s", ReplaceWith:=ChrW(&H25E6), Replace:=wdReplaceAll
' bedingtes Trennzeichen (Nicht-Zeichen einfügen)
.Execute FindText:="^-", ReplaceWith:=Chr(&HAC) & "^-", Replace:=wdReplaceAll
' Leerzeichen (schattieren)
Do While .Execute(FindText:=" ", Forward:=True)
.Parent.Shading.BackgroundPatternColor = wdColorLightYellow
Loop
End With
End Function
' Ps. Info zur Function Xchg1(myRange As Range)
'
' Zuerst gab das Makro nur Laufzeitfehler, bis ich merkte,
' dass die Absatzmarke als ^p gesucht wird, und nicht als ^a.
' ^p oder ^a = Wordversiosabhängig
' Nach der Änderung funktioniert es prima.
