Страницы: 1
RSS
Пересоздание Bookmarks, Помощь с кодом
 
Добрый день! Форумчане, помогите с кодом - никак не могу из Excel пересоздать закладку в Word.
Код
Sub forum()

Dim wda As Word.Application

On Error Resume Next

Range("C7:F15").Select
Selection.Copy
 
    On Error Resume Next

    Set wda = CreateObject("Word.Application")    ' создаём приложение Word (без подключения библиотеки Word)

    wda.Visible = True    ' делаем Word видимым
    
    Set wd = wda.Documents.Open("U:\Шаблоны\forum.docm")
 
With wda
.ActiveDocument.Bookmarks("ob_1").Select

End With

wda.Selection.PasteSpecial False, False, False

'
Application.CutCopyMode = False
'Очистка буфера обмена

wda.Activate
wda.Selection.TypeParagraph
wda.Selection.TypeParagraph
wda.Selection.TypeText Text:="ob_1"
wda.Selection.MoveLeft Unit:=wdCharacter, Count:=4, Extend:=wdExtend
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="ob_1"
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
    
End Sub

Спасибо!
 
Код
 With wda.ActiveDocument.Bookmarks
 
RAN,закладку не создал=(
 
Кажется работает, если вдруг что-то неправильно, то поправьте, пожалуйста.
Код
Sub forum()

Dim wda As Word.Application

On Error Resume Next

Range("C7:F15").Select
Selection.Copy
 
    On Error Resume Next

    Set wda = CreateObject("Word.Application")    ' создаём приложение Word (без подключения библиотеки Word)

    wda.Visible = True    ' делаем Word видимым
    
    Set wd = wda.Documents.Open("U:\Шаблоны\forum.docm")
 
With wda
.ActiveDocument.Bookmarks("ob_1").Select

End With

wda.Selection.PasteSpecial False, False, False

'
Application.CutCopyMode = False
'Очистка буфера обмена

wda.Activate
wda.Selection.TypeParagraph
wda.Selection.TypeParagraph
wda.Selection.TypeText Text:="ob_1"
wda.Selection.MoveLeft Unit:=wdCharacter, Count:=4, Extend:=wdExtend
wda.Selection.Bookmarks.Add Name:="ob_1"
    
End Sub
Страницы: 1
Наверх