1

Тема: Переход к закладке в колонтитулах

Каким (правильным) образом перейти к закладке, расположенной в колонтитуле документа.
При выполнении команды

ActiveDocument.Sections(2).Headers(wdHeaderFooterPrimary).Range.Bookmarks("bmName1").Select

документ переходит в режим "черновика". Как избежать этого или хотя бы корректно вернуться в режим редактирования?

С уважением.

2

Re: Переход к закладке в колонтитулах

ActiveDocument.Bookmarks("bmName1").Select
Лучше день потерять — потом за пять минут долететь!

3

Re: Переход к закладке в колонтитулах

Пробовал этот код ранее и попробовал вновь. Документ остается в режиме черновика и редактирования колонтитулов!!!

4

Re: Переход к закладке в колонтитулах

Действительно. Тогда нужно переключить вид:

ActiveDocument.Windows(1).View=wdPrintView

А зачем переходить к закладке?

Лучше день потерять — потом за пять минут долететь!

5

Re: Переход к закладке в колонтитулах

Ну и по прежнему на том же месте. Сначала выходишь из режима черновика, потом, при выходе из режима редактирования колонтитулов, снова идет возврат в режим черновика. Я поэтому и задавал вопрос (см. начало).
К закладке нужно переходить, что бы в требуемое место вставить требуемые данные.

6

Re: Переход к закладке в колонтитулах

mikkelle пишет:

К закладке нужно переходить, что бы в требуемое место вставить требуемые данные.

Можно обойтись без перехода. Функция, меняющая текст указанной закладки указанного документа. Если удалось изменить, возвращает True, если не удалось — False:

Function ChangeBookmarkText(Doc As Document, Name As String, Text As String) As Boolean 
  If Not Doc.Bookmarks.Exists(Name) Then 
    ChangeBookmarkText = False 
    Exit Function 
  End If 
  Dim orng As Range 
  Set orng = Doc.Bookmarks(Name).Range 
  orng.Text = Text 
  Doc.Bookmarks.Add Name, orng 
  ChangeBookmarkText = True 
End Function

Использование (замена текста в закладке FF активного документа)

If Not ChangeBookmarkText (ActiveDocument, "FF", "Новый текст закладки") Then
  MsgBox "Не удалось изменить текст закладки"
End If
Лучше день потерять — потом за пять минут долететь!

7

Re: Переход к закладке в колонтитулах

Изящно, большое спасибо, может посоветуете первоисточник?

8

Re: Переход к закладке в колонтитулах

Первоисточник, а я уже творчески обработал:)

Лучше день потерять — потом за пять минут долететь!