Из Excel в Word

[sasha_prof]

Возможно ли если не находит заданого названия вставки в ворде то чтоб проходило далее без ошибки?

[doober]

Вставте в функцию обработку ошибок
On Error Resume Next

[sasha_prof]

Возможноли с открытого Ворда выгрузить название всех закладок?

[EducatedFool]

Сообщение от sasha_prof

Возможноли с открытого Ворда выгрузить название всех закладок?

Возможно. )))

[sasha_prof]

Сообщение от EducatedFool

Возможно. )))

Помогите плиз.

[doober]

sasha_prof совсем обленились зайти в Ворд и посмотреть модель документа..Вы же не новичок.
Помогаю.Там все понятно

[sasha_prof]

Сообщение от doober

sasha_prof совсем обленились зайти в Ворд и посмотреть модель документа..Вы же не новичок.
Помогаю.Там все понятно

Читать то я умею но вот чтото не могу понять с вашего предложения как его макросом вытянуть

[doober]

Сообщение от sasha_prof

Читать то я умею но вот чтото не могу понять с вашего предложения как его макросом вытянуть

На выбор

Sub BOR()
For n = 1 To ActiveDocument.Bookmarks.Count
ssl = ActiveDocument.Bookmarks(n).Name
MsgBox ssl
Next
Set r = ActiveDocument.Bookmarks
For n = 1 To r.Count
ssl = r(n).Name
MsgBox ssl
Next

For Each Obm In ActiveDocument.Bookmarks
ssl = Obm.Name
MsgBox ssl
Next

End Sub

вместо ActiveDocument ваш документ Ворд

[sasha_prof]

Ребята помогите плиз что-то не получается с экселя получить название закладок в ворде

прикрепляю то что накрутил



подправил немного и всёравно ругается

[doober]

У меня нет слов,одни эмоции

  Dim f As String
    f = "C:\Users\Sasha_prof\Desktop\перенесення в Word\Цивільно.dot"
 
    
    Set x = ThisWorkbook.Sheets(1)
    'Dim doc As Word.Document, WA As Word.Application ' если подключена библиотека word
    Set WA = CreateObject("word.application")
   Set DOK = WA.Documents.Open(f)
        WA.Visible = True
 
For n = 1 To DOK.Bookmarks.Count
ssl = DOK.Bookmarks(n).Name
MsgBox ssl
Next