Office: (Office 2013) "find and replace" mit "for-Schleife" kombinieren

Guten Tag miteinander,

Ich bin grade dabei ein kleines Programm zu erstellen, dass alphabetisch durchgearbeitet wird und jedesmal eine Ersetzung durchführt. Hier ist der Code:


Sub KürzenInKlammern()
'
' KürzenInKlammern Makro
'
'

Dim x As Byte
For x = 65 To 90

Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "([|(])(a)"
.Replacement.Text = "\1-\2"
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute
With Selection
If .Find.Forward = True Then
.Collapse Direction:=wdCollapseStart
Else
.Collapse Direction:=wdCollapseEnd
End If
.Find.Execute Replace:=wdReplaceOne
If .Find.Forward = True Then
.Collapse Direction:=wdCollapseEnd
Else
.Collapse Direction:=wdCollapseStart
End If
.Find.Execute
End With
With Selection.Find
.Text = "([|(])a"
.Replacement.Text = "\1"
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

Next x

End Sub


Der rot markierte Teil ist variable und soll jeden Grossbuchstaben durchlaufen. Ich weiss, dass man sowas mit chr() und den entsprechenden Nummern machen kann, aber wie mach ich das, dass VBA chr() nicht buchstäblich liest sondern versteht, dass das ein Buchstabe sein sollte? Er soll ja nicht wirklich z.B. "chr(65)" suchen und ersetzen sondern "A". Vielen Dank im Voraus für die Hilfe.

 

Hallo,

ich nehme an, dass du statt

Code:

'...
.Text = "([|(])([COLOR="#FF0000"]a[/COLOR])" 
'...
.Text = "([|(])[COLOR="#FF0000"]a[/COLOR]"
'...

Folgendes codieren möchtest:

Code:

'...
.Text = "([|(])([COLOR="#FF0000"]" & Chr(x) & "[/COLOR])" 
'...
.Text = "([|(])[COLOR="#FF0000"]" & Chr(x)[/COLOR]
'...

 

Hallo Anton Exl,

Hab's grade ausprobiert und es funktioniert super. Vielen Dank für den Hinweis. Ist halt besser, als gewisse Prozesse 25-mal per copy-and-paste manuell zu bearbeiten.



Liebe Grüsse


Milan