Hi Else,

ich kann das geschilderte Fehlverhalten in O365 nicht nachstellen.

Du deklarierst wdAPP as Object verwendest aber Wordkonstanten; demnach hast Du unter Extras | M$-Word ... | angehakt bzw einen Verweis zu Word gesetzt.

Folgende funktioniert bei mir einwandfrei (im Grunde Dein Code, lediglich beide With-Blöcke zusamengefasst und etas kommentiert):

Option Explicit

Sub Export_Data()
 
    Dim wdApp As Object
    Dim wdDoc As Object
    Dim wdRange As Object
    
    Set wdApp = CreateObject("Word.Application")
    wdApp.Visible = True
    Set wdDoc = wdApp.documents.Add
     
    With wdApp.Selection
        '*** erste zeile
       .ParagraphFormat.Alignment = wdAlignParagraphCenter
       .Font.Size = 16
       .TypeText Text:=CStr(Range("A1"))
       
       '*** zweite Zeile
       .TypeParagraph 'Beginnt eine neu Zeile
       .ParagraphFormat.Alignment = wdAlignParagraphLeft
       .Font.Size = 12
       .TypeText Text:=CStr(Worksheets("Tabelle1").Range("M2")) & " "
        
        '*** dritte Zeile
        .TypeParagraph 'Beginnt eine neu Zeile
        If Worksheets("Tabelle1").Range("L3").Value = "Wahr" Then
            .ParagraphFormat.Alignment = wdAlignParagraphLeft
            .TypeText Text:=CStr(Worksheets("Tabelle1").Range("M4")) & " "
        Else
            .TypeText Text:=" "
        End If
        
        '*** noch immer linksbündig ausgerichtet macht die folgende Zeile überflüssig
        .ParagraphFormat.Alignment = wdAlignParagraphLeft
        .TypeText Text:=CStr(Worksheets("Tabelle1").Range("N4")) & " "
        .TypeText Text:=CStr(Worksheets("Tabelle1").Range("M5")) & " "
            
        If Worksheets("Tabelle1").Range("L5").Value = "Wahr" Then
            .TypeText Text:=CStr(Worksheets("Tabelle1").Range("N5")) & " "
        Else
            .TypeParagraph
        End If
     End With
     
     
End Sub