Thema Datum  Von Nutzer Rating
Antwort
09.03.2021 00:30:25 Flyinggancho
NotSolved
Blau mit VBA Textmarke bei Textmarke einfügen
 09.03.2021 15:36:22 xlKing
NotSolved
09.03.2021 20:53:43 Flyinggancho
Solved

Ansicht des Beitrags:
Von:
xlKing		 Datum:
09.03.2021 15:36:22		 Views:
716		 Rating:
     
Antwort:
  Ja
Thema:
mit VBA Textmarke bei Textmarke einfügen

Hallo DC, 

das geht nicht ganz so, wie du dir das vorstellst. Textmarken sind unique, also eindeutig und können nicht mehreren Elementen zugeordnet werden. Du kannst also nur EINEN Masterbaustein mit der Textmarke tmMaster einfügen.

Was du jedoch machen kannst ist tmMaster als normales Wort einzufügen. Anschließend kannst du mit einem Makro das Dokument durchlaufen und nach diesem Wort suchen und ihm dann die Textmarke tmText1 etc. hinzufügen. Was im Grunde jedoch unsinnig ist, da du das Wort in dem fall ja bereits selektiert hast und gleich bei dieser Gelegenheit bearbeiten kannst. Hier trotzdem mal ein erster Code dafür.

Sub AddBookmark()
    Dim found As Boolean, i As Long
    
    ActiveDocument.Range.Select
    Do
    i = i + 1
    found = Selection.Find.Execute("tmMaster")
    If found Then Selection.Bookmarks.Add "tmText" & i
    Loop Until found = False
End Sub

Du kannst daraufhin in einem anderen Makro mit deiner oben gezeigten Codezeile nach diesem Bookmark suchen.

  For i = 1 To 3
    Selection.GoTo what:=wdGoToBookmark, Name:="tmText" & i
  Next i

Gruß Mr. K.

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
09.03.2021 00:30:25 Flyinggancho
NotSolved
Blau mit VBA Textmarke bei Textmarke einfügen
 09.03.2021 15:36:22 xlKing
NotSolved
09.03.2021 20:53:43 Flyinggancho
Solved