Office: VBA: Platzhalter ersetzen und evtl. leere Zeile einfügen

Hallo zusammen,

ich habe eine Word-Vorlage mit Platzhaltern, in die ich mit VBA Daten aus einer Excel-Datei einfüge (in eine Excel-Zeile schreibe ich alle Daten für ein neues Word-Dokument). So weit funktioniert das schon ganz gut und ich habe mir damit die Erstellung einiger Dokumente auf der Arbeit erleichert.

Jetzt habe ich ein Problem und komme nicht weiter: Zwei Platzhalter in der Word-Vorlage können u. U. länger als eine Zeile werden ("Kunde" und "Ort"). Ich möchte, dass nach diesen beiden Platzhaltern automatisch eine leere Zeile erzeugt wird, falls der jeweilige Text nicht länger als eine Zeile ist, damit der Rest des Dokuments immer auf derselben Stelle steht. Ich habe schon geschafft, dass nach einem von beiden Platzhaltern die leere Zeile eingefügt wird, aber noch nicht, dass es nach beiden passiert.

Kann mir jemand von euch sagen, was ich an dem Code ändern muss oder ob das evtl. gar nicht geht (ich verwende Office 2021)? Oder kann man die Sache noch auf ganz andere Weise lösen?

Hier der entsprechende Code-Ausschnitt (da ich keine Ahnung von VBA hatte, habe ich das mithilfe von ChatGPT erstellt):

Code:

With WordDoc.Content
    '.Find.Execute FindText:="{{Kunde}}", ReplaceWith:=ws.Cells(dataRow, 4).Value, Replace:=2
    .Find.Execute FindText:="{{Ort}}", ReplaceWith:=ws.Cells(dataRow, 5).Value, Replace:=2
                
    With WordDoc.Content
        Dim findRange As Object
        Dim replacedText As String
        Dim paragraphHeight As Single

        If .Find.Execute(FindText:="{{Kunde}}") Then
            Set findRange = .Find.Parent
            replacedText = ws.Cells(dataRow, 4).Value
            findRange.Text = replacedText
          
            paragraphHeight = findRange.ParagraphFormat.LineSpacing
            If findRange.Characters.Count <= paragraphHeight Then
                findRange.InsertParagraphAfter
            End If
        End If
  
        If .Find.Execute(FindText:="{{Ort}}") Then
            Set findRange = .Find.Parent
            replacedText = ws.Cells(dataRow, 5).Value
            findRange.Text = replacedText
          
            paragraphHeight = findRange.ParagraphFormat.LineSpacing
            If findRange.Characters.Count <= paragraphHeight Then
                findRange.InsertParagraphAfter
            End If
        End If
    End With
End With

 

Hallo Christian,

da hätte ich eine ganz andere Idee: Steck deine Platzhalter in eine Tabellenzelle, deren Höhe du so einrichtest, dass zwei Zeilen Text reinpassen. Dabei verwendest du die Option Genau. Dann ist es egal, ob der Inhalt ein- oder zweizeilig ist.

Wenn du den Code trotzdem weiterverfolgen willst, lade bitte ein Musterdokument dazu hoch, damit man sieht, was für Platzhalter du verwendest und damit man den Code überhaupt testen kann.

 

Hallo Gerhard,

vielen Dank für die Idee! Ich habe sie umgesetzt und sie funktioniert. Deswegen werde ich den Code nicht mehr weiterverfolgen.

Ich hatte in der Anfangsphase, als ich die Word-Vorlage erstellt habe, auch an eine Tabelle gedacht. Aber dann klappte etwas nicht in Verbindung mit dem VBA-Code und ich habe angenommen, dass das nicht funktionieren wird.

Vielen Dank nochmal!