brauche neus -WordApp

es geht nicht bei mir neus ABO zu machen

Hallo Michaela,

kopiere folgendes Makro in deine Excel-Datei (VBA-Editor).



Sub Adressen_nach_Word()

Dim WordApp As Object

Dim WordDok As Object

Dim strAdr As String

Dim i As Integer



On Error GoTo WordStarten

Set WordApp = GetObject(, "Word.Application")

GoTo Weiter



WordStarten:

Set WordApp = CreateObject("Word.Application")



Weiter:

WordApp.Visible = True

Set WordDok = WordApp.Documents.Add



With ThisWorkbook.Worksheets("Tabelle1") 'Tabellenname lt. Tab-Register

For i = 2 To .UsedRange.Rows.Count

strAdr = strAdr & .Cells(i, "a").Value & " ("

strAdr = strAdr & .Cells(i, "b").Value & "); "

Next i

End With



WordDok.Select

WordApp.Selection.TypeText Text:=strAdr



Set WordApp = Nothing

Set WordDok = Nothing

Exit Sub

Fehler:

MsgBox "Bei der Übertragung ist ein Fehler aufgetreten!"

Set WordApp = Nothing

Set WordDok = Nothing

End Sub

Beste Grüße

Mike

Hallo Simone,

warum geht alles nicht? Bekommst du eine Fehlermeldung? Sind diese Funtion einfach nicht zu finden.
Gerne kannst du auch Screenshots/Bilder einfügen, damit wir einen klareren Überblick bekommen können.

Wir freuen uns auf deine Rückmeldung

Vielen Dank und liebe Grüße

Kyle

Ich habe exakt das gleiche Problem: Catalina, Samsung Drucker, neuses MS Office Paket, Fehler nur unter MS Word.

Hallo Yannick,

hast du schon versucht, das Inhaltsverzeichnis zu löschen und ein neus einzufügen? Auch mal eines in einer anderen Formatierung als der Standardformatierung?

Viele Grüße

Chris