ich verwende Word 2000 und moechte ein bestimmtes Sonderzeichen
(Dingbat) ueber suchen/ersetzen austauschen.
Geht das?
Danke im Voraus fuer einen Tip.
H.-U. Krueger
> ich verwende Word 2000 und moechte ein bestimmtes Sonderzeichen
> (Dingbat) ueber suchen/ersetzen austauschen.
Das ist in der Word FAQ von Silvia Widmer beschrieben.
Wie kann ich Symbole suchen und ersetzen?
http://mypage.bluewin.ch/reprobst/WordFAQ/Symbolse.htm
Gruss
Barbara
Silvia Widmer ist ein wenig zu pessimistisch:
Man kann Zeichen aus dekorativen Fonts wie "Dingbat", "Wingdings",
"Symbol" in Word2000 suchen und ersetzen, wenn man den Code des
Zeichens kennt.
Den findet man ohne Makro, wenn man das Zeichen auswählt (markiert),
und dann in "Einfügen > Symbol... > Tastenkombination... >
Beschreibung" nachschaut (dort sieht man z. B. "Dingbats: 61560").
Dann kann man nach dem Zeichen mit "Suchen nach: ^u61560" suchen.
Word "versteckt" den Schriftfont für Symbole aus dekorativen Fonts,
die mit "Einfügen > Symbol" eingefügt wurden. Diese "geschützten"
Symbole ändern sich nicht, wenn man versucht, die Schrift zu ändern.
Man findet sie daher auch nicht, wenn man nach der Schrift (z. B.
"Dingbats") sucht.
Die beiden Makros weiter unten heben den Schutz für alle Symbole auf,
beziehungsweise schützen alle Symbole wieder:
Gruß, Klaus
Sub SymbolsUnprotect()
' After running this macro, you can
' find/replace symbols from decorative fonts like "Symbol",
' and you can change the font to another decorative font.
Dim SelFont, SelCharNum
Selection.Find.ClearFormatting
With Selection.Find
.text = "[" & ChrW(61472) & "-" & ChrW(61695) & "]"
.Replacement.text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
While Selection.Find.Execute
With Dialogs(wdDialogInsertSymbol)
SelFont = .Font
SelCharNum = .CharNum
End With
Selection.Font.Name = SelFont
Selection.TypeText text:=ChrW(SelCharNum)
Wend
End Sub
Sub SymbolsProtect()
' After running this macro, all symbols from decorative
' fonts like "Symbol" or "Wingdings" are protected, so
' they won't change if you change the font of the paragraph.
Dim SelFont, SelCharNum
Selection.Find.ClearFormatting
With Selection.Find
.text = "[" & ChrW(61472) & "-" & ChrW(61695) & "]"
.Replacement.text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
While Selection.Find.Execute
With Dialogs(wdDialogInsertSymbol)
SelFont = .Font
SelCharNum = .CharNum
End With
Selection.InsertSymbol _
Font:=SelFont, _
CharacterNumber:=SelCharNum, _
Unicode:=True
Wend
End Sub
Hallo Klaus,
>Silvia Widmer ist ein wenig zu pessimistisch:
>Man kann Zeichen aus dekorativen Fonts wie "Dingbat", "Wingdings",
>"Symbol" in Word2000 suchen und ersetzen, wenn man den Code des
>Zeichens kennt.
das klingt auch sehr interessant. Werde Deinen Tip ausprobieren.
Danke
Hans-Ulrich
Hallo Barbara,
>Das ist in der Word FAQ von Silvia Widmer beschrieben.
Danke fuer die Hilfe, habe gleich ein bookmark gesetzt.
Gruss
Hans-Ulrich