dieses Forum hat mir schon häufig geholfen, nun komme ich nicht mehr drum herum, selber einen Beitrag zu schreiben.
Es geht um fogendes Problem:
Ich habe ein Word-Dokument mit mehreren Inhaltssteuerelementen. Nun möchte ich mit Hilfe eines VBAs den Inhalt bestimmter Inhaltssteuerelemente auslesen und in die letzte Zeile meiner Excel Tabelle kopieren.
Ich habe bereits den Code erstellt, mit dem man die gewünschte Datei öffnen kann.
Nun fehlt mir noch der Part mit dem Kopieren des Inhalts.
Sub Schaltfläche1_Klicken()
'Variablendefinition
Dim ziel As Object
Dim datei As String
Dim WordApp As New word.Application
datei = Application.GetOpenFilename("Word-Datei(*.docx),*docx")
'Wenn keine Datei ausgewählt
If datei = "Falsch" Then
MsgBox "keine Datei ausgewählt", , "Abbruch"
Exit Sub
End If
With WordApp
.Visible = True
.Documents.Open Filename:=datei
End With
End Sub
Vielen Dank schon mal für eure Hilfe.
LG
Janis