VBA-Forum - Das Forum zu Microsoft VBA

VBA Excel VBA Word VBA Access VBA VBScript VB C# Objective-C C++ SQL JAVA VBA (English) Jobs Übersicht

Thema	Datum	Von Nutzer	Rating	Antwort
Textmarken automatisch Setzen	13.06.2015 14:13:03	Mword2015
Textmarken automatisch Setzen	14.06.2015 11:58:54	Gast60643
Textmarken automatisch Setzen	14.06.2015 14:04:51	Mword2015
Textmarken automatisch Setzen	14.06.2015 20:01:28	Gast24067
gefragt ist natürlich nach dem Inhalt von objWord.Text wenn der Fehler kommt	14.06.2015 20:05:10	Gast21771
Textmarken automatisch Setzen	14.06.2015 21:38:33	Mword2015
Textmarken automatisch Setzen	15.06.2015 10:57:26	Mword2015

Ansicht des Beitrags:

Von:
Gast60643

Datum:
14.06.2015 11:58:54

Views:
780

Rating:

Antwort:

Thema:
Textmarken automatisch Setzen

Die Textmarken sollen dann z.b. "13" "13a" "14" lauten.

Das sind ungültige Bezeichner für Textmarken. Eine Textmarke muss mit einem Buchstaben anfangen.

Darum erzeugt das folgende Makro: "R13" "R13a" "R14"

Option Explicit

Sub Bsp()
  
  Dim rngCurrent As Word.Range
  Dim objWord As Word.Range
  
  Set rngCurrent = ThisDocument.Range
  
  With rngCurrent
    
    '>> Suche definieren
    With .Find
      .ClearFormatting
      .Forward = True
      .Font.Bold = True
      .Text = "R"
    End With
    '<<
    
    'suchen...
    Call .Find.Execute
    Do While .Find.Found
      
      Call .Expand(WdUnits.wdSentence) 'auf ganzen Satz erweitern
      If .Words.Count >= 2 Then
        Set objWord = .Words(2)
        Call objWord.MoveEndWhile(" ", wdBackward)
        'auf Satzanfang (zurück)setzen..
        Call .Collapse
        '..und dort die Textmarke erstellen
        Call rngCurrent.Document.Bookmarks.Add("R" & objWord.Text, rngCurrent)
      End If
      
      'nach diesem Fund: weitersuchen...
      Call .Move(WdUnits.wdSentence)
      Call .Find.Execute
    Loop
    
  End With
  
End Sub

Gruß

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
Textmarken automatisch Setzen	13.06.2015 14:13:03	Mword2015
Textmarken automatisch Setzen	14.06.2015 11:58:54	Gast60643
Textmarken automatisch Setzen	14.06.2015 14:04:51	Mword2015
Textmarken automatisch Setzen	14.06.2015 20:01:28	Gast24067
gefragt ist natürlich nach dem Inhalt von objWord.Text wenn der Fehler kommt	14.06.2015 20:05:10	Gast21771
Textmarken automatisch Setzen	14.06.2015 21:38:33	Mword2015
Textmarken automatisch Setzen	15.06.2015 10:57:26	Mword2015