Makro, um Anführungszeichen umzuwandeln

01/04/2008 - 17:05 von Frank Peters | Report spam
Hallo,

Word bietet zwar schon seit langem die praktische Option,
Anführungszeichen gleich bei der Eingabe typographisch korrekt zu setzen
('Anführungszeichen unten' am Beginn und 'Anführungszeichen oben' am
Ende des Wortes bzw. der Phrase). Wenn man aber einen externen Text
einfügt, muss man darin manchmal eine Vielzahl von Anführungszeichen
nachtràglich àndern.

Kennt jemand ein Makro, das einem diese Arbeit abnimmt, oder hat jemand
gar selbst eines geschrieben?!

Frank
Office Word 2003 SP3
 

Lesen sie die antworten

#1 Helmut Weber
01/04/2008 - 17:19 | Warnen spam
Hallo Frank,

Word bietet zwar schon seit langem die praktische Option,
Anführungszeichen gleich bei der Eingabe typographisch korrekt zu setzen



wenn diese Option eingeschaltet ist,
genügt es, ein Anführungszeichen (") durch " zu ersetzen.

Makromàßig:

Sub Test6009()
Dim rDcm As Range
Set rDcm = ActiveDocument.Range
Options.AutoFormatAsYouTypeReplaceQuotes = True
With rDcm.Find
.Text = Chr(34)
.Replacement.Text = Chr(34)
.Execute Replace:=wdReplaceAll
End With
End Sub



Gruß

Helmut Weber, MVP WordVBA

Vista Small Business, Office XP

Ähnliche fragen