Forums Neueste Beiträge
 

Großbuchstaben ersetzen

17/07/2008 - 15:49 von Günter Klemm | Report spam
(Word 2002)

Hallo NG,

ich habe ein Dokument bekommen mit sehr vielen Namen, die alle in
Großbuchstaben geschrieben sind; z. B. "MÜLLER" (nicht über "Format" ->
"Zeichen" -> "Großbuchstaben"). Gibt es eine Möglichkeit, diese in normale
Schreibweise ("Müller") umzuwandeln? Ich möchte nicht alle Namen nochmals
tippen müssen.

Hat jemand eine Idee? Vielleicht mit Suchen/Ersetzen?
Danke für die Hilfe.

Gruß
Günter
 

Lesen sie die antworten

#1 Lisa Courte
17/07/2008 - 16:05 | Warnen spam
Sub ErsterBuchstabeGroß()

Selection.Find.ClearFormatting

Selection.Find.Replacement.ClearFormatting

With Selection.Find
.Text = "<[A-Z]@>"
.Replacement.Text = " ^& "

.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
Do While .Execute

Selection.Range.Case = wdTitleWord
Loop

End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub

versuche es mal mit diesem Makro - alles markieren u. dann Makro ausführen

Grüße Lisa
"Günter Klemm" schrieb im Newsbeitrag
news:
(Word 2002)

Hallo NG,

ich habe ein Dokument bekommen mit sehr vielen Namen, die alle in
Großbuchstaben geschrieben sind; z. B. "MÜLLER" (nicht über "Format" ->
"Zeichen" -> "Großbuchstaben"). Gibt es eine Möglichkeit, diese in normale
Schreibweise ("Müller") umzuwandeln? Ich möchte nicht alle Namen nochmals
tippen müssen.

Hat jemand eine Idee? Vielleicht mit Suchen/Ersetzen?
Danke für die Hilfe.

Gruß
Günter

Ähnliche fragen