Скопировать таблицу из Excel в указанный c раздел

Question

Я хотел бы скопировать таблицу Excel в указанный c раздел в Word. Мне нужно найти строку в заголовке, и если заголовок содержит строку, то сценарий должен поместить таблицу в раздел (на первой странице раздела). Я попробовал это таким образом, но это не работает. Ошибка говорит: запрошенный элемент отсутствует в коллекции. Когда я пытаюсь распечатать его, он показывает мне правильный заголовок. так что я думаю, что проблема в том, что если-l oop ..

Dim Headers_text As String
Dim CountSections As Integer
Dim intSections As Integer
CountSections = wDoc.Sections.Count
For intSections = 1 To CountSections
    Headers_text = wDoc.Sections(intSections).Headers(1).Range.Text
    If InStr(Headers_text, "Part 1") Then
        Sheet_test.UsedRange.CopyPicture Appearance:=xlScreen, Format:=xlPicture
        wDoc.Sections(intSections).Range.Paste
    End If
Next

Надеюсь, что кто-то может мне помочь

спасибо

Answer 1

Попробуйте:

Dim s As Long
With wDoc
    For s = 1 To .Sections.Count
        With .Sections(s)
            If InStr(.Headers(1).Range.Text, "Part 1") > 0 Then
                Sheet_test.UsedRange.CopyPicture Appearance:=xlScreen, Format:=xlPicture
                .Range.Characters.First.Paste
            End If
        End With
    Next
End With