Hallo. Ich habe noch ein weiteres Problem mit meinem Makro. Ich suche in dem Makro bestimmte Textstellen anhand von Formatvorlagen. Wenn ich diese gefunden habe, soll ein Wort hinten angehängt werden.

Naja ich habe ein Range "rng", in dem der Markierte Text steht. Jetzt ist es aber wichtig vor dem Einfügen der Wörter nochmal zu gucken, wie die Formatierungen direkt nach den gefundenen Stellen aussieht, da die Schleife an den Stellen in eine Endlosschleife gerät ... ich habe den Code mal angefügt, bei dem ich Hilfe brauche.

Sub LinkGenerator2()

Dim dateiname As String

dateiname = ActiveDocument.Name

dateiname = Left(dateiname, Len(dateiname) - 4)

Dim wortersatz As String

Dim rng As Range

Set rng = ActiveDocument.Range

With rng.Find

  .Style = ActiveDocument.Styles(wdStyleHeading2)

  'Nach dem ersten Durchlauf muss ein zweiter folgen, der nach der anderen Überschrift sucht.

  .Text = ""

  .Forward = True

  .Wrap = wdFindStop

  .Execute

  Do While .Found = True


    'packt die gefundenen texte ins select

    rng.Select

    ueberschrift = rng

    ueberschrift = Left(ueberschrift, Len(ueberschrift) - 1) 'Diese Zeile setzt den Curser an die Stelle, die noch in der Reihe der Überschrift ist. Der Zeilenumbruch steht also hinter dem Curser


 'HIER BRAUCHE ICH HILFE ... 

    'If [cursor rechts davon].Style = "Margin Note" Then

     '   [möglichkeit zur behebung des schleifenfehlers]


    'Schreibt den Text in der richtigen Formatierung

    Selection.TypeText Text:=ueberschrift


    'Hier muss noch der "C1H Topic Properties" style hinzugefügt werden

    Selection.Style = "C1H Topic Properties"

    Selection.TypeText Text:=" " & "|url=" & dateiname & "." & ueberschrift & ".htm"

    .Execute



  Loop

  'MsgBox rng

End With

End Sub

Btw. Wieso hängt sich dieses Makro eigentlich an Tabellenartigen "Margin notes" auf ?