Thema Datum  Von Nutzer Rating
Antwort
Rot Suchen und ersetzen
10.11.2020 16:03:41 Helena
****
NotSolved
12.11.2020 08:05:30 MRU Tor
NotSolved
12.11.2020 11:10:24 Heibo
NotSolved

Ansicht des Beitrags:
Von:
Helena
Datum:
10.11.2020 16:03:41
Views:
75
Rating: Antwort:
  Ja
Thema:
Suchen und ersetzen

Hallo :), 

als absoluter neuling habe ich versucht mir mit Code-Schnipseln und Foren auszuhelfen.

Hat mich leider nicht sehr viel weiter gebracht, ich bekomme es nicht alleine zum laufen. 


Kann mir jemand weiterhelfen ? 

Sub change_words()
 
      With Selection.Find
           .Text = "A337"
           .Replacement.Text = "A339"
           .Forward = True
           .Wrap = wdFindContinue
           .MatchWholeWord = True
      End With
 
      Selection.Find.Execute Replace:=wdReplaceAll
 
      With Selection.Find
           .Text = "WDZ"
           .Replacement.Text = "DW9"
           .Forward = True
           .Wrap = wdFindContinue
           .MatchWholeWord = True
      End With
 
      Selection.Find.Execute Replace:=wdReplaceAll
 
End Sub
 
Danke schonmal 

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
10.11.2020 16:03:41 Helena
****
NotSolved
12.11.2020 08:05:30 MRU Tor
NotSolved
12.11.2020 11:10:24 Heibo
NotSolved