Добрый день! Форумчане, помогите с кодом - никак не могу из 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 |
Спасибо!