VBA - Textmarke um gesuchten Bereich setzen

Dieses Thema VBA - Textmarke um gesuchten Bereich setzen im Forum "Windows XP Forum" wurde erstellt von Ixus, 29. Sep. 2008.

Thema: VBA - Textmarke um gesuchten Bereich setzen Hallo, vielleicht weiß jemand Rat: Ich habe ein Makro geschrieben, dass mir einen Bereich #zum Beispiel diesen#,...

  1. 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
     
  2. 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
     
Die Seite wird geladen...

VBA - Textmarke um gesuchten Bereich setzen - Ähnliche Themen

Forum Datum
Nummerierung in Textmarken Word 2003 Windows XP Forum 25. Nov. 2009
Word 2007: Textmarke im Inhaltsverzeichnis definieren Windows XP Forum 8. Okt. 2009
Im WEB Textmarken in Word anspringen Microsoft Office Suite 8. Mai 2008
DokumentenTitel als Textmarke Microsoft Office Suite 17. Juli 2007
Textmarken verschwinden nach Austausch des markierten Textes Windows XP Forum 14. Feb. 2007