Thema Datum  Von Nutzer Rating
Antwort
Rot Suchen und ersetzen im Emailtext
17.11.2020 11:26:23 Boingdil
NotSolved

Ansicht des Beitrags:
Von:
Boingdil
Datum:
17.11.2020 11:26:23
Views:
33
Rating: Antwort:
  Ja
Thema:
Suchen und ersetzen im Emailtext

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

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot Suchen und ersetzen im Emailtext
17.11.2020 11:26:23 Boingdil
NotSolved