vba Aus Excel ein Word Dokument lesen

Option Explicit On

Private Const iColumn_Senden As Integer = 2

Private Const iColumn_Anhang As Integer = 5

'===================< Region: Email >===================

Public Sub Button_Read_Word_File()

    '-------------< Button_Read_Word_File() >-------------

    '*Open and Read Word File in same Folder

    '-< init >-

    Dim sPath As String

    sPath = Application.ActiveWorkbook.Path

    Dim sWord_Filepath As String

    sWord_Filepath = sPath & "\" & "Text_for_Excel.docx"

    '-</ init >-

    Dim app_Word As New Word.Application

    Dim doc As Word.Document

    Set doc = app_Word.Documents.Open(sWord_Filepath, ReadOnly:=True, Visible:=False)

    '< copy word content >

    doc.Content.Copy

    Dim cell As Range

    Set cell = ActiveSheet.Range("C14")

    cell.PasteSpecial xlPasteAll

    '</ copy word content >

    '< close word >

    doc.Close SaveChanges:=False

    '</ close word >

    '-------------</ Button_Read_Word_File() >-------------

End Sub