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
|