Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema ListBox
BildScreenshot zu ListBox ListBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

aktierten Text in geöffnete Worddatei


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


Beiträge aus dem Excel-Forum zum Thema "aktierten Text in geöffnete Worddatei"