VBA - Textmarke um gesuchten Bereich setzen

Ixus · 29.09.2008

Hallo,

vielleicht weiß jemand Rat: Ich habe ein Makro geschrieben, dass mir einen Bereich #zum Beispiel diesen#, der zuvor im Text mit einer Raute markiert wurde sucht und mir dann um diesen eine Textmarke mit dem Namen az setzt. Jedoch setzt er mir leider die Textmarke oben rechts vom Text???? Was mache ich denn falsch???

Sub TM_AZ()

'Dokuschutz aufheben
If ActiveDocument.ProtectionType = wdAllowOnlyFormFields Then
ActiveDocument.Unprotect
End If

Application.ScreenUpdating = True
Application.ScreenUpdating = False

'sucht das Aktenzeichen innerhalb der Rauten
With Selection.Find
.Text = (#)(*)(#)
.Format = False
.MatchWildcards = True
End With
Selection.Find.Execute

'setzt Textmarke um #-Bereich
With ActiveDocument.Bookmarks
.Add Range:=Selection.Range, Name:=az
.DefaultSorting = wdSortByName
.ShowHidden = False
End With

'löscht #-zeichen
With Selection.Find
.Text = #
.Replacement.Text =
.Forward = False
End With
Selection.Find.Execute Replace:=wdReplaceAll

'Dokumentenschutz aktivieren
ActiveDocument.Protect NoReset:=True, Type:=wdAllowOnlyFormFields

End Sub

Für Hilfestellungen Danke ich im voraus!!
Liebe Grüße
Ixus

Ixus · 02.10.2008

Hallo zusammen,

ich habe den Fehler jetzt selbst beheben können :|, falls es jemanden interessiert:

Code:

'sucht das AZ innerhalb der Rauten und setzt TM 
  
  With Selection.Find
  .Text = (#)(*)(#)
  .Forward = True
  .Wrap = wdFindContinue
  .Format = False
  .MatchCase = False
  .MatchWholeWord = False
  .MatchWildcards = True
  .MatchSoundsLike = False
  .MatchAllWordForms = False
    
  Selection.Find.Execute
  ActiveDocument.Bookmarks.Add az, Selection.Range
  End With
  
'löscht #-zeichen
    With Selection.Find
      .Text = #
      .Replacement.Text = 
       .Forward = True
       .Wrap = wdFindContinue
       .Format = False
       .MatchCase = False
       .MatchWholeWord = False
       .MatchWildcards = False
       .MatchSoundsLike = False
       .MatchAllWordForms = False
      End With
    Selection.Find.Execute Replace:=wdReplaceAll

Gruß
Ixus

VBA - Textmarke um gesuchten Bereich setzen

Ixus

Ixus

VBA - Textmarke um gesuchten Bereich setzen

ANGEBOTE & SPONSOREN

Neueste Themen

Statistik des Forums