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
rill dieclaudi „Einstellung in Word ?“
Falls oben in der Leiste vorhanden, auf dieses Icon ¶ klicken. Falls nicht vorhanden, dann Extras -> Anpassen -> Befehle. Bei "Kategorien" linke Spalte "Ansicht" anklicken, rechte Seite unter "Befehle" sollte dieses Zeichen ¶ erscheinen, das ¶ mit linker Maustaste anfassen und nach oben in die Menüleiste an die gewünschte Stelle ziehen.
Falls Du noch andere brauchbare Befehle/Icons entdeckst, kannst Du diese auch noch oben unterbringen. Genauso kann man nie benötigte Befehle/Icons entfernen, indem man sie mit linker Maustaste anfässt und sie aus der Leiste rauszieht.
Das Ausdrucken von ¶ und anderen Steuerzeichen ist nach meiner Kenntnis nicht möglich, wurde schon einmal gefragt, damals hatte niemand eine Idee. Möglich ist natürlich eine Bildschirmkopie als Bild und mit eventuell erforderlicher Bildbearbeitung und Einfügen als Bild in eine Anwendung.
rill
gelöscht_152402 rill „Anleitung:“
Diese Symbole nennen sich "nichtdruckbare Zeichen". Wird schon seinen Sinn haben. Mir ist jetzt kein Plug-In o.ä. bekannt, womit man diese mit ausdrucken kann.
Möglicherweise gehts über ein Makro bzw. VBA-Skript. Über Umwege, sprich Anzeige von Steuerzeichen kommt man schon dahin, ist aber sicher sehr mühselig.
Gruß
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.
