Могут ли данные Excel быть вставлены в существующий текстовый документ в определенном месте

Question

Мне нужно скопировать таблицу в существующий текстовый документ. Мне нужно вставить данные в определенное место в текстовом документе, например, после закладки.

У меня есть код, который копируется и вставляется, но нев существующий документ.Я пытался расширить / изменить код, но не могу понять, как вставить в цель.

Sub PasteIntoWord()

    Dim WrdApp As Word.Application
    Dim WrdDoc As Word.Document
    Dim objWord
    Dim ExcRng As Range
    Set WrdApp = New Word.Application
        WrdApp.Visible = True
        WrdApp.Activate
    Set WrdDoc = WrdApp.Documents.Add
    Set ExcRng = ActiveSheet.Range("testdata")
    ExcRng.copy
    WrdDoc.Paragraphs(1).Range.PasteExcelTable LinkedToExcel:=False,    WordFormatting:=True, RTF:=False
    Application.CutCopyMode = False

End Sub

Это работает, и вставьте в новый документ.Но я хотел бы вставить данные в этот документ: wordApp.Documents.Open "c: \ users \ peter \ documents \ Data skal ind her.docm"

Мне нужно иметь их здесь:

Here is text part 1
And I would like to have my “testdata” pasted here:

Xxx

This is bookmark ”xxx”

С уважением, Питер pg@pb.dk

Answer 1

Я нашел этот документ Word MVP, который предоставляет функцию обновления текста в закладке. Я добавил его в ваш пример кода:

Sub PasteIntoWord()
    Dim WrdApp As Word.Application
    Dim WrdDoc As Word.Document
    Dim objWord
    Dim ExcRng As Range
    Set WrdApp = New Word.Application
        WrdApp.Visible = True
        WrdApp.Activate
    Set WrdDoc = wordApp.Documents.Open "c:\users\peter\documents\Data skal ind her.docm"

    Set ExcRng = ActiveSheet.Range("testdata")

    UpdateBookmark "xxx", ExcRng 
End Sub

Sub UpdateBookmark(BookmarkToUpdate As String, PasteRange As Variant)
    Dim BMRange As Range
    Set BMRange = ActiveDocument.Bookmarks(BookmarkToUpdate).Range
    BMRange = PasteRange 
    ActiveDocument.Bookmarks.Add BookmarkToUpdate, BMRange
End Sub

ИСТОЧНИК: https://wordmvp.com/FAQs/MacrosVBA/InsertingTextAtBookmark.htm