добавление закладок в Word из Excel

[StasSv]

подскажите пожалуста
почему не добавляет закладки при запуске макроса из екселя

Sub закладки()
Dim wdApp As Word.Application, wdDoc As Object, wdRng As Word.Range, i As Variant
Set wdApp = CreateObject("Word.Application")
On Error Resume Next
Set wdDoc = wdApp.Documents.Open(ThisWorkbook.Path & "\нов1")
Documents("нов1").Activate
wdApp.Visible = True
For i = 1 To 3
With ActiveDocument.Bookmarks
.Add Range:=Selection.Range, Name:="новая_" & i
.DefaultSorting = wdSortByName
.ShowHidden = False
End With
Selection.TypeParagraph
Next i
End Sub
заранее спасибо

[Aent]

Если я вас правильно понял и этот код выполняется из Excel, то откуда у вас берётся
объект ActiveDocument cо своими свойствами и методами ....?
Равно Excel ничего не знает о Selection
Правильная ссылка wdDoc.Bookmarks
И вообще у вас в этом примере какое то странное смешение раннего и позднего связывания ...
Уж если вы объявляете wdApp как WordApplication, то почему wdDoc просто Object
А вот i и вовсе непонятно почему стало Variant а не скажем long
Такое впечатление, что вы не дго конца понимаете что пишете
Кстати, на этом форуме принято код заключать в BB код code (cм ссылку ниже http://forum.developing.ru/misc.php?do=bbcode)