Thema Datum  Von Nutzer Rating
Antwort
02.08.2006 12:39:00 kater
NotSolved
03.08.2006 08:26:43 Rasta
NotSolved
03.08.2006 11:38:20 kater
NotSolved
Blau Aw:Aw:Aw:suchen und ersetzen
 06.08.2006 10:24:49 Rasta
NotSolved

Ansicht des Beitrags:
Von:
Rasta		 Datum:
06.08.2006 10:24:49		 Views:
1196		 Rating:
     
Antwort:
  Ja
Thema:
Aw:Aw:Aw:suchen und ersetzen
Hi kater,

schau, das habe ich mit dem makro-editor aufgezeichnet..

Sub Makro1()
'
' Makro1 Makro
' Makro aufgezeichnet am 06.08.2006 von Tommy
'
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "fg"
.Replacement.Text = "gf"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
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
End Sub


gruß

rasta

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • 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
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • 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

Thema Datum  Von Nutzer Rating
Antwort
02.08.2006 12:39:00 kater
NotSolved
03.08.2006 08:26:43 Rasta
NotSolved
03.08.2006 11:38:20 kater
NotSolved
Blau Aw:Aw:Aw:suchen und ersetzen
 06.08.2006 10:24:49 Rasta
NotSolved