Herbers Excel-Forum - das Archiv

Bewerten Sie hier bitte das Excel-Portal

aktierten Text in geöffnete Worddatei

Informationen und Beispiele zu den hier genannten Dialog-Elementen:

aktierten Text in geöffnete Worddatei von Peter vom 10.09.2019 16:39:35

erledigt, da neues Thema eroeffnet - von Torsten am 11.09.2019 09:16:53

Betrifft: aktierten Text in geöffnete Worddatei
von: Peter

Geschrieben am: 10.09.2019 16:39:35
Hallo,
mittels Button: CreateObject("word.application").Documents.Open("C:\Users\Peter\Desktop\TestVereinEhemaliger_2019_09_10\Brief01.docm").Application.Visible = True
öffne ich die Worddatei.
Mit diesem Code in anderem Button markiere ich den Text:
If TextBox1.TextLength > 0 And ListBox1.ListIndex > -1 Then
'Anfang Änderung durchführen
With Range("Worddaten!A1:A65536")
Me.Tag = "1"
.Cells(ListBox1.ListIndex + 1, 1).Copy
Me.Tag = ""
End With
End If
Wie kann ich diesen Text in das geöffnete Worddocument einfügen in die nächste Zeile?
Könnt ihr mir bitte helfen. Besten Dank.
Gruss
Peter

Betrifft: erledigt, da neues Thema eroeffnet
von: 1712399.html
Geschrieben am: 11.09.2019 09:16:53

Excel-Beispiele zum Thema "aktierten Text in geöffnete Worddatei"
Geöffnete Arbeitsmappen mit Arbeitblättern listen	Alle geöffneten Tasks auslesen