Anspringen von Textmarken in Word (OLE)

Hallo Jens,

hier das aufgezeichnete Makro:

' Makro6 Makro
' Makro aufgezeichnet am 08.11.04 von Mathis Conny
'
Selection.GoTo What:=wdGoToBookmark, Name:="EMAIL"
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "EMAIL"
.Replacement.Text = "cornelia"
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
Selection.GoTo What:=wdGoToBookmark, Name:="Fax"
With Selection.Find
.Text = "FAX"
.Replacement.Text = "1234"
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
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
Selection.GoTo What:=wdGoToBookmark, Name:="TEL"
With Selection.Find
.Text = "TEL"
.Replacement.Text = "5678"
.Forward = True
.Wrap = wdFindAsk
.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ß

Conny

Hallo Conny,

auf dem Rechner, wo Word2003 installiert ist, kannst Du da mal bitte das Coding von mir ausprobieren.
Das müßte dann problemlos funktionieren.
Das obige Coding erwartet im temp-Verzeichnis eine Datei 'test23.doc'. Entweder legst Du die an, oder aber Du änderst das Coding entsprechend ab.

Gruss,
Jens

Hallo Conny,

Dankeschön . Gern geschehen.

Wenn Du ein neues Dokument öffnen willst, kannst Du das mit

anstatt der obigen Anweisung Gruss,
Jens

Hallo Jens,

mein Chef und ich sind der Meinung, daß wir dir als Dank eine Kleinigkeit zukommen lassen wollen.
Schicke mir doch deine Adresse an folgende Emailadresse: CONMAT@WEB.DE

Gruß

Conny