Импорт раздела закладок из Word в Excel

Question

Привет. Я пытаюсь импортировать раздел с закладками (Закладка в начале с именем «Начало» и закладку в конце с именем «Конец») из документа Word в лист Excel с использованием VBA (в Excel).

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

rngDoc = .Range(Start:=.Bookmarks("Start").Range.Start, End:=.Bookmarks("End").Range.End))

, и он говорит мне, что не может найти следующий элемент в коллекции (в переводе с немецкого «Das aufgeforderte Element ist nicht in der Sammlung vorhanden»).Кто-нибудь знает, как еще описать ассортимент?

Sub ImportPartAHoftorbilanz()

Dim wdDoc As Word.Document
Dim wdFileName As Variant
Dim rngStart As Range
Dim rngEnd As Range


'Get Wordfile and Open It
wdFileName = Application.GetOpenFilename("Word files (*.docx),*.docx", , _
"Browse for file containing table to be imported")
If wdFileName = False Then Exit Sub '(user cancelled import file browser)
Set wdDoc = GetObject(wdFileName) 'open Word file

With wdDoc
    Dim rngDoc As Object
    rngDoc = .Range(Start:=.Bookmarks("Start").Range.Start, End:=.Bookmarks("End").Range.End)
    rngDoc.Copy SaveChanges:=False
End With

'Paste Selection
Range("A1").PasteSpecial Paste:=xlPasteValues

Set wdDoc = Nothing
End Sub

Answer 1

Начиная с оператора «With wdDoc», измените оставшийся код на следующий:

With wdDoc
    Dim rngDoc As word.Range
    Set rngDoc = .Range(Start:=.Bookmarks("Start").Range.Start, End:=.Bookmarks("End").Range.End)
    rngDoc.Copy
End With

'Paste Selection
Range("A1").PasteSpecial Paste:=xlPasteValues

wdDoc.Close SaveChanges:=False
Set wdDoc = Nothing