Hallo zusammen,
ich kann nur mit makros umgehen und diese zusammen setzen wenn ich diese aufzeichen kann . Ich habe keine Grundkenntnisse.
Im Word und Excel ist das ja kein Ding.
Ich möchte wenn ich auf weiterleiten drücke dann den Text per makro mit suchen und ersetzen bearbeiten.
Im Word kommt dann dieses Makro per Recorder raus.
Wie setze ich das für Outlook um? Könnt Ihr mir bitte helfen.
Danke
' Makro_Eurozeichen_vorn Makro
'
'
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "(€[0-9]*.*[0-9]>)"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.Execute Replace:=wdReplaceAll
' Makro_Eurozeichen_hinten Makro
'
'
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "(*^s€)"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
|