Hi :)

Ich baue grade ein Makro, dass die Formatvorlage Überschrift 3 sucht und die jeweilige Überschrift 2 dahinterschreibt.

Beispiel: 1.2. Planeten

                  1.2.1 Die erde

Daraus wird:

1.2 Planeten

1.2.1 Die erde - Planeten

Mein Makro habe ich in 2 Schleifen aufgebaut. Das Problem ist natürlich, dass die Range Variablen sich jeweils an die gefundenen Werte anpassen.

Sub experiment_zahler()
Dim dateiname As String
Dim rng As Range
Set rng = ActiveDocument.Range

With rng.Find
  .Style = ActiveDocument.Styles(wdStyleHeading2)
  '.Style = ActiveDocument.Styles(wdStyleHeading2)
  .Text = ""
  .Forward = True
  .Wrap = wdFindStop
  .Execute
  Do While .Found = True
    'packt die gefundenen gegenstände ins select
    rng.Select
    ueberschrift = rng
    

    'Liest die Länge der Überschrift und gibt sie der variable mit n buchstaben weniger (von rechts)
    ueberschrift = Left(ueberschrift, Len(ueberschrift) - 1)

 
    .Execute
    Dim rng3 As Range
    Dim bookmrk As String
    Set rng3 = ActiveDocument.Bookmarks("\headinglevel").Range
    With rng3.Find
        .Style = ActiveDocument.Styles(wdStyleHeading3)
        '.Style = ActiveDocument.Styles(wdStyleHeading2)
        .Text = ""
        .Forward = True
        .Wrap = wdFindStop
        .Execute
        Do While .Found = True
            'packt die gefundenen gegenstände ins select
            rng3.Select
            ueberschrift3 = rng3
    

            'Liest die Länge der Überschrift und gibt sie der variable mit n buchstaben weniger (von rechts)
            ueberschrift3 = Left(ueberschrift3, Len(ueberschrift3) - 1)

    
            'Schreibt den Text in der richtigen Formatierung
            Selection.TypeText Text:=ueberschrift3
            Selection.Style = "C1H Topic Properties"
            Selection.Font.Hidden = True
            Selection.TypeText Text:=" " & "|url=" & "." & ueberschrift & "." & ueberschrift3 & ".htm"

    
    .Execute
    
  Loop
  'MsgBox rng
End With