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:
Mword2015

Datum:
15.06.2015 10:57:26

Views:
737

Rating:

Antwort:

Thema:
Textmarken automatisch Setzen

Der Fehler lag wohl daran, dass im Debug Fenster '1 ' stand.

Ich musste den String marke einfügen, um das Leerzeichen hinter der 1 zu entfernen.

Nun klappt es.

Option Explicit
 
Sub Bsp()
   
  Dim rngCurrent As Word.Range
  Dim objWord As Word.Range
  Dim marke As String
   
  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)

        marke = objWord
        marke = Left(marke, Len(marke) - 1)

        'auf Satzanfang (zurück)setzen..
        Call .Collapse
        '..und dort die Textmarke erstellen
        Call rngCurrent.Document.Bookmarks.Add("R" & marke, rngCurrent)
      End If
       
      'nach diesem Fund: weitersuchen...
      Call .Move(WdUnits.wdSentence)
      Call .Find.Execute
    Loop
     
  End With
   
End Sub

Würde ich jedoch objWord um ein Zeichen kürzen, so wäre auch die Überschrift im Text verändert.

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