Закладка в колонтитуле word

Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.

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

Страницы 1

Чтобы отправить ответ, вы должны войти или зарегистрироваться

Сообщений [ 8 ]

1 23.03.2010 17:50:16

  • mikkelle
  • полковник
  • Неактивен
  • Зарегистрирован: 21.01.2010
  • Сообщений: 227
  • Поблагодарили: 12

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

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

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

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

С уважением.

2 Ответ от viter.alex 23.03.2010 17:54:53

  • Переход к закладке в колонтитулах
  • viter.alex
  • Модератор
  • Неактивен
  • Откуда: Харьков, Украина
  • Зарегистрирован: 21.12.2009
  • Сообщений: 884
  • Поблагодарили: 140

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

ActiveDocument.Bookmarks("bmName1").Select

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

3 Ответ от mikkelle 23.03.2010 17:59:33

  • mikkelle
  • полковник
  • Неактивен
  • Зарегистрирован: 21.01.2010
  • Сообщений: 227
  • Поблагодарили: 12

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

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

4 Ответ от viter.alex 23.03.2010 18:13:33

  • Переход к закладке в колонтитулах
  • viter.alex
  • Модератор
  • Неактивен
  • Откуда: Харьков, Украина
  • Зарегистрирован: 21.12.2009
  • Сообщений: 884
  • Поблагодарили: 140

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

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

ActiveDocument.Windows(1).View=wdPrintView

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

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

5 Ответ от mikkelle 23.03.2010 18:29:10

  • mikkelle
  • полковник
  • Неактивен
  • Зарегистрирован: 21.01.2010
  • Сообщений: 227
  • Поблагодарили: 12

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

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

6 Ответ от viter.alex 23.03.2010 18:33:57

  • Переход к закладке в колонтитулах
  • viter.alex
  • Модератор
  • Неактивен
  • Откуда: Харьков, Украина
  • Зарегистрирован: 21.12.2009
  • Сообщений: 884
  • Поблагодарили: 140

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 Ответ от mikkelle 23.03.2010 18:44:23

  • mikkelle
  • полковник
  • Неактивен
  • Зарегистрирован: 21.01.2010
  • Сообщений: 227
  • Поблагодарили: 12

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

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

8 Ответ от viter.alex 23.03.2010 19:55:59

  • Переход к закладке в колонтитулах
  • viter.alex
  • Модератор
  • Неактивен
  • Откуда: Харьков, Украина
  • Зарегистрирован: 21.12.2009
  • Сообщений: 884
  • Поблагодарили: 140

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

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

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

Сообщений [ 8 ]

Страницы 1

Чтобы отправить ответ, вы должны войти или зарегистрироваться

Похожие темы

  • В «закладке» текст жирный, а в REF обычний ?
  • Переход по ссылке на элемент библиографии.
  • Переход на страницу из автоматического оглавления
  • Переход на следующую страницу — как событие
  • Переход в макросе к началу и к концу диапазона
  • Enter — переход на новую строку, но не на абзац
  • Сочетание клавиш: переход на следующую страницу
  • Как удалить в колонтитуле переход на новую строку?

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

Для всех, кто желает совершенствоваться, расти и не любит терять времени понапрасну, предлагаем замечательную шпаргалку по Ворду – форум Ворд Эксперт. На портале о Microsoft Office Word вы узнаете про: ссылки на приложение рисунки.
Что приятно, это русский форум, очень теплый, там вы не найдете заумных слов и жутких сленговых терминов, в которых без Билла Гейтса не разберешься. Наш сайт о Microsoft Office Word даст ответ про: office 2010 как формировать содержание с заголовками только.
Все просто и понятно.

Заходя в дом — на форум, вы тут же оказываетесь в «прихожей» — разделе, где даются ответы на основные вопросы, как по самому Ворду, так и по устройству форума и сайта. На портале о Microsoft Office Word вы узнаете про: рисунки для рамок.
Там же вам предложат почитать что-нибудь интересное (про Ворд, конечно, за этим вы и пришли).

А в «гостиной» вы сможете обсудить программу, вашу версию, ее настройки, особенности работы, форматирование и многое другое. Наш сайт о Microsoft Office Word даст ответ про: как делать сылки на литературу.
Вас научат оптимизировать эксплуатацию Microsoft Word с помощью макросов. Это совсем не сложно.

В «столовой» форума подаются готовые блюда – оригинальные решения той либо иной проблемы,  макросы и многое другое. На портале о Microsoft Office Word вы узнаете про: сделать связку ворда с экселем.
Если хотите заказать «экзотическое блюдо», добро пожаловать «на кухню» — раздел «заявки на разработку». Наш сайт о Microsoft Office Word даст ответ про: вставка файлов word 2010.
Оставьте в нем описание своей проблемы, и вам помогут.

Что такое «курилка» объяснять, наверно, никому не надо. Наш сайт о Microsoft Office Word даст ответ про: скачать гостовские рамки word.
Заходите и сами все увидите. А пожелания можно оставлять в соответствующем разделе.

Word для Microsoft 365 Outlook для Microsoft 365 Word 2021 Outlook 2021 Word 2019 Outlook 2019 Word 2016 Outlook 2016 Word 2013 Outlook 2013 Word 2010 Outlook 2010 Word 2007 Outlook 2007 Еще…Меньше

Закладка в Word играет ту же роль, что и в обычной книге: это пометка в тексте, позволяющая легко найти нужный фрагмент снова. Вы можете создать в документе (или в сообщении Outlook) сколько угодно закладок и присвоить каждой из них уникальное имя, чтобы легко их опознавать.

Чтобы добавить закладку, пометьте в документе ту позицию, где вы хотите ее расположить. После этого вы сможете переходить в эту позицию или добавлять ссылки на нее внутри документа или сообщения Outlook. Вы также можете удалять закладки из документа Word или сообщения Outlook.

Создание закладки

  1. Выделите текст, изображение или место в документе, с которым нужно связать закладку.

  2. Выберите Вставка > Закладка.

    На вкладке "Вставка" выделен значок "Закладка".

  3. В поле Имя закладки введите имя и нажмите кнопку Добавить.

    Примечание:  Имена закладок должны начинаться с буквы. Они могут содержать цифры и буквы, но не пробелы. Если вам требуется разделить слова, используйте символ подчеркивания (_), например Первый_заголовок.

Переход к закладке

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

Переход к определенной закладке

Нажмите клавиши CTRL+G, чтобы открыть вкладку Перейти в окне Найти и заменить. В списке Объект перехода выберите пункт Закладка. Введите или выберите имя закладки, а затем нажмите кнопку «Перейти».

Вкладка "Перейти" в диалоговом окне "Найти и заменить".

Ссылка на закладку

Вы можете также добавлять гиперссылки, которые будут вызывать переход к определенной закладке в том же документе.

  1. Выделите текст или объект, который вы хотите использовать в качестве гиперссылки.

  2. Щелкните правой кнопкой мыши и выберите «Гиперссылка Кнопка "Гиперссылка".

  3. В разделе Связать с выберите параметр Место в документе.

  4. В списке выберите заголовок или закладку, на которую должна указывать гиперссылка.

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

  5. Нажмите кнопку ОК.

Если при использовании закладок у вас возникают вопросы или проблемы, ознакомьтесь с различными методами устранения неполадок с закладками.

Удаление закладки

  1. Выберите Вставка > Закладка.

  2. Чтобы отсортировать список закладок в документе, выберите параметр Имя или Положение.

  3. Выберите имя закладки, которую нужно удалить, и нажмите Удалить.

  4. Если вы добавили в документ гиперссылку на удаленную закладку, щелкните правой кнопкой мыши связанный текст и выберите пункт Удалить гиперссылку.

Примечание: Чтобы удалить и закладку, и связанный с ней элемент документа, например блок текста, выделите этот элемент и нажмите клавишу DELETE.

Нужна дополнительная помощь?

Содержание

  • Добавление закладки в документ
  • Отображение и изменение закладок в документе
  • Переключение между закладками
  • Удаление закладок в документе
  • Устранение ошибки «Закладка не определена»
  • Создание активных ссылок в документе
  • Вопросы и ответы

Как создать закладку в Ворде

Благодаря возможности добавления закладок в Microsoft Word можно быстро и удобно находить необходимые фрагменты в документах большого объема. Столь полезная функция исключает необходимость скроллинга бесконечных блоков текста, необходимость использования функции поиска тоже не возникает. Именно о том, как создать закладку в Ворде и как ее изменить мы и расскажем в данной статье.

Урок: Функция поиска и замены в Word

Добавление закладки в документ

1. Выделите фрагмент текста или элемент на странице, с которым нужно связать закладку. Вы также можете просто кликнуть мышкой в том месте документа, где нужно вставить закладку.

выделить текст в Word

2. Перейдите во вкладку «Вставка», где в группе инструментов «Ссылки» (ранее «Связи») нажмите кнопку «Закладка».

кнопка закладка в word

3. Задайте имя закладки.

окно Закладка в word

Примечание: Имя закладки обязательно должно начинаться с буквы. В нем могут содержаться цифры, но не допускается использование пробелов. Вместо отступа можно использовать нижнее подчеркивание, к примеру, имя закладки может выглядеть так: «Первая_закладка».

4. После того, как вы нажмете кнопку «Добавить», закладка будет добавлена в документ, правда, пока она визуально не будет отличаться от остального текста.

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

Отображение и изменение закладок в документе

После того, как вы добавите фрагмент текста или любой другой элемент со страницы в закладки, он будет заключен в квадратные скобки, которые по умолчанию отображаются не во всех версиях Ворда.

Примечание: Прежде, чем приступить к изменению элемента с закладкой, следует убедиться, что текст, который вы изменяете, находится внутри квадратных скобок.

Для того, чтобы отобразить скобки закладок, выполните следующие действия:

Lumpics.ru

1. Откройте меню «Файл» (или кнопка «MS Office» ранее) и перейдите в раздел «Параметры» (или «Параметры Word»).

открыть параметры в Word

2. В окне «Параметры» перейдите в раздел «Дополнительно».

Параметры Word

3. Установите галочку напротив пункта «Показать закладки» в разделе «Показывать содержимое документа» (ранее «Отображение закладок» в области «Отображение содержимого документа»).

показать закладки в Word

4. Чтобы изменения вступили в силу, закройте окно, нажав «ОК».

Теперь элементы в документе, назначенные закладками, будут отображается на экране заключенными в квадратные скобки […].

закладка отображена в Word

Урок: Как в Word поставить квадратные скобки

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

Урок: Печать документов в Ворде

Фрагменты текста и другие элементы, помеченные закладками, могут быть скопированы в буфер обмена, вырезаны и вставлены в любое место документа. Помимо этого, присутствует возможность удаления текста внутри закладок.

вырезать закладку в Word

Переключение между закладками

1. Перейдите во вкладку «Вставка» и нажмите кнопку «Закладка», расположенную в группе инструментов «Ссылки».

кнопка закладка в word

2. Для сортировки списка закладок в текстовом документе выберите необходимый параметр:

  • Имя;
  • поиск закладки в word

  • Положение.

перейти к закладке в word

3. Теперь выберите закладку, к которой требуется перейти и нажмите «Перейти».

закладка найдена в Word

Удаление закладок в документе

Если возникнет необходимость удалить закладку из документа, просто выполните следующие действия:

открыть закладку в word

1. Нажмите кнопку «Закладка» (вкладка «Вставка», группа инструментов «Ссылки»).

удалить закладку в word

2. Найдите в списке закладку, которую необходимо удалить (ее имя), кликните по ней и нажмите «Удалить».

место закладки в Word

Если же вы хотите удалить не только саму закладку, но и связанный с ней фрагмент текста или элемент, выделите их с помощью мышки и просто нажмите клавишу «DEL».

выделить и удалить закладку в Word

Устранение ошибки «Закладка не определена»

В некоторых случаях закладки не отображаются в документах Microsoft Word. Особенно актуальная данная проблема для документов, созданных другими пользователями. Самая распространенная ошибка — «Закладка не определена», о том, как ее устранить, вы можете прочесть на нашем сайте.

Урок: Устранение ошибки Ворд «Закладка не определена»

Создание активных ссылок в документе

Помимо закладок, с помощью которых можно удобно перемещаться по различным элементам документа или просто помечать их, Word позволяет создавать активные ссылки. Достаточно просто кликнуть по такому элементу, чтобы перейти в место, к которому он привязан. Это может быть место в текущем или в другом документе. Кроме того, активная ссылка может вести на веб-ресурс.

активная ссылка в Word

О том, как создавать активные ссылки (гиперссылки), вы можете прочесть в нашей статье.

Урок: Как в Ворд создавать активные ссылки

На этом мы закончим, ведь теперь вы знаете, как создавать закладки в Word, а также знаете о том, как их можно изменять. Успехов в дальнейшем освоении многогранных возможностей этого текстового процессора.

Аватар-С

1 / 1 / 0

Регистрация: 03.02.2017

Сообщений: 102

1

15.02.2017, 14:49. Показов 12527. Ответов 14

Метки нет (Все метки)


Студворк — интернет-сервис помощи студентам

Здравствуйте Коллеги!
Прошу помощи в следующем вопросе. Написал код вставки закладок, закладки вставляются также вставляется текст, но обратиться к нему через закладку не получается. Получается, что закладки вставились сами по себе, а текст сам по себе. Пожалуйста подскажи что, делаю не так.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub закладки()
        Dim Range As String
        
        With ActiveDocument
            .Bookmarks.Add Name:="ЗПочта", Range:=Selection.Range
            .Bookmarks("ЗПочта").Range.InsertAfter "@"
            
            
            .Bookmarks.Add Range:=Selection.Range, Name:="ЗТел"
            .Bookmarks("ЗТел").Range.Text = "495" & Chr(11)
            .Bookmarks.Add Name:="ЗИсп", Range:=Selection.Range
            .Bookmarks("ЗИсп").Range.Text = "Name" & Chr(11)
        End With
End Sub

Вложения

Тип файла: rar Закладки.rar (41.7 Кб, 15 просмотров)



0



1508 / 478 / 56

Регистрация: 10.04.2009

Сообщений: 8,008

15.02.2017, 19:12

2

Вы не выделяете какой-то текст и закладки вставляются не как Вы ожидаете вида [], а вида I



1



Аватар-С

1 / 1 / 0

Регистрация: 03.02.2017

Сообщений: 102

16.02.2017, 11:10

 [ТС]

3

Здравствуйте Коллеги!
Ципихович Эндрю ! Спасибо за подсказку, она помогла. Я понял что, вначале создаем текст а, потом на него устанавливаем «закладку». Постарался сделать (согласно подсказки), вроде все получилось но, если посмотрите вложенный код. В общем все вставляется, появляется «закладка» с нужным именем прописывается текст но, в конце вставки выдает False/True.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub закладки()
    Dim Range As String
    Dim sИсп, sТел, sПочта 'As String
    sИсп = "Исп.:"
    'sТел = "тел.:"
    'sПочта = "эл.почта:"
    
    ActiveDocument.ActiveWindow.View.SeekView = wdSeekCurrentPageFooter
        Selection.Range.Text = Selection.Range.Text = sИсп '& Chr(13) & sТел & Chr(13) & sПочта
        Selection.Text = sИсп
        ActiveDocument.Bookmarks.Add Name:="ЗИсп" 'Range:=Selection.Range - что то здесь не так!
    ActiveDocument.ActiveWindow.View.SeekView = wdSeekMainDocume
End Sub

Извините, пожалуйста! Можно еще под сказочку? Пожалуйста…



0



Ципихович Эндрю

1508 / 478 / 56

Регистрация: 10.04.2009

Сообщений: 8,008

16.02.2017, 12:10

4

блин а колонтитулы тут при чем?
что-то написать где курсор

Visual Basic
1
 Selection.TypeText Text:="123:123"

в Вашем случае нужно писать

Visual Basic
1
Dim sИсп  As String

— чтобы меньше памяти тратить



0



1 / 1 / 0

Регистрация: 03.02.2017

Сообщений: 102

16.02.2017, 12:23

 [ТС]

5

Ципихович Эндрю !
Закладки нужны в колонтитулах, это экспериментальный текст, задумку можно посмотреть в приложенном файле. False не пропал.



0



Ципихович Эндрю

1508 / 478 / 56

Регистрация: 10.04.2009

Сообщений: 8,008

16.02.2017, 12:30

6

мама родная — такая штука называется сетка-отметка об исполнителе

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 Documents.Add DocumentType:=wdNewBlankDocument
    Selection.Font.Size = 11
    'напечатать абзацы в количестве ... штук
    Selection.TypeText String(50, vbCr)
   
        setka = _
        "отп. 2 экз." & vbCrLf & _
                "1 - в адрес" & vbCrLf & _
                "2 - в дело (" & sood & ")" & vbCrLf & _
                "исп." & user_initials & user_f & vbCrLf & _
                phone_user & vbCrLf & _
                Format(Date, "dd.mm.yyyy")
Selection.TypeText Text:=setka
    'выделить всё
    Selection.WholeStory
    Application.PrintOut FileName:="", Range:=wdPrintSelection, Item:=wdPrintDocumentContent, Copies:=count_copies, Pages:="", PageType:=wdPrintAllPages, _
                         ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:=False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
                         PrintZoomPaperHeight:=0
    'Copies:= ... - печать копий ... штук (штуки)
    ActiveWindow.Close False



0



1 / 1 / 0

Регистрация: 03.02.2017

Сообщений: 102

16.02.2017, 12:43

 [ТС]

7

Ципихович Эндрю!
Все верно, эта штука нужна в колонтитуле (чтоб ее не сносили, каждый раз — девчонки), с переходом на последнюю страницу документа.
False — можно что то сделать?



0



Step_UA

1588 / 661 / 225

Регистрация: 09.06.2011

Сообщений: 1,334

16.02.2017, 16:01

8

Цитата
Сообщение от Аватар-С
Посмотреть сообщение

False — можно что то сделать?

Вы присваиваете результат сравнения текста из выделенния со значением переменной, вместо присвоения выделению текста

Visual Basic
1
Selection.Range.Text = sИсп



0



Аватар-С

1 / 1 / 0

Регистрация: 03.02.2017

Сообщений: 102

16.02.2017, 17:03

 [ТС]

9

Спасибо Step_UA!
Я, заметил ошибку, теперь другая беда.

первый код создает все как нужно.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Sub закладки()
    Dim Range As String
    Dim sИсп As String, sТел As String, sПочта As String
    sИсп = "Исп.: И.О.Фамилия"
    
    ActiveDocument.ActiveWindow.View.SeekView = wdSeekCurrentPageFooter
            Selection.Text = sИсп & Chr(13)
            ActiveDocument.Bookmarks.Add Name:="ЗИсполнитель", Range:=Selection.Range
     ActiveDocument.ActiveWindow.View.SeekView = wdSeekMainDocume
    'ActiveDocument.Bookmarks("ЗИсполнитель").Range.Text = "5"
End Sub

а второй перезаписывает закладки, остается последняя

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub закладки()
    Dim Range As String
    Dim sИсп As String, sТел As String, sПочта As String
    sИсп = "Исп.: И.О.Фамилия"
    sТел = "тел.: +7 (000) 000 - 0000 | 0 - 00"
    sПочта = "эл.почта: [email]name@site.ru[/email]"
    
    ActiveDocument.ActiveWindow.View.SeekView = wdSeekCurrentPageFooter
    'Selection.Text = sИсп & Chr(13) & sТел & Chr(13) & sПочта '& vbNewline
            Selection.Text = sИсп & Chr(13)
            ActiveDocument.Bookmarks.Add Name:="ЗИсполнитель", Range:=Selection.Range
            Selection.Text = sТел
            ActiveDocument.Bookmarks.Add Name:="ЗТелефон", Range:=Selection.Range
            Selection.Text = sПочта
            ActiveDocument.Bookmarks.Add Name:="ЗПочта", Range:=Selection.Range
     ActiveDocument.ActiveWindow.View.SeekView = wdSeekMainDocume
    'ActiveDocument.Bookmarks("ЗИсполнитель").Range.Text = "5"
End Sub

Что делать?



0



1588 / 661 / 225

Регистрация: 09.06.2011

Сообщений: 1,334

16.02.2017, 17:51

10

Цитата
Сообщение от Аватар-С
Посмотреть сообщение

Что делать?

1) При полной замене текста закладки она удаляется
2) Диаппазон выделения не изменяется — подряд перезаписываете данные
В целом если место вставки данных известно, то зачем закладки? … ну и работа через Selection только тормозит — используйте диаппазоны



0



1 / 1 / 0

Регистрация: 03.02.2017

Сообщений: 102

16.02.2017, 18:10

 [ТС]

11

Извините диапазон имеется ввиду Range?

Добавлено через 1 минуту

Цитата
Сообщение от Step_UA
Посмотреть сообщение

используйте диаппазоны

Извините диапазон имеется ввиду Range?



0



Ципихович Эндрю

1508 / 478 / 56

Регистрация: 10.04.2009

Сообщений: 8,008

16.02.2017, 18:13

12

да —

Visual Basic
1
Dim rRange As Range



0



Аватар-С

1 / 1 / 0

Регистрация: 03.02.2017

Сообщений: 102

01.03.2017, 17:03

 [ТС]

13

Здравствуйте Коллеги!
Еще раз Спасибо! Ципихович Эндрю и Step_UA

Долго мучился но определенного результата добился. Задача была следующая создать колонтитул со следующими условиями:

  • нижний колонтитул должен отображаться на последней странице документа с выравнивание по правому краю (формула);
  • вставленный текст формируется в закладку для последующей проверки (при печати);
  • верхний колонтитул появляется со второй страницы с выравниванием по центру;
  • соответственно верхний и нижний колонтитулы форматируются по размеру текста и шрифту.

Получился следующий код состоящий из двух процедур:

ИСПОЛНИТЕЛЬ:

Кликните здесь для просмотра всего текста

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
Sub ИСПОЛНИТЕЛЬ()
 
'Верхний колонтитул
    ActiveDocument.ActiveWindow.View.SeekView = wdSeekCurrentPageHeader
    
    'убрать параметр "Как в предыдущем разделе" (отменяется параметр по умолчанию):
    Selection.HeaderFooter.LinkToPrevious = Not Selection.HeaderFooter.LinkToPrevious
    
    'отключаем особый колонтитул для первой страницы:
    ActiveDocument.PageSetup.DifferentFirstPageHeaderFooter = False '[False] [True]
    
    'удалем значения верхнего колонтитула для последующих страниц
    ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
    Selection.WholeStory
    Selection.Delete Unit:=wdCharacter, Count:=1
    ActiveDocument.PageSetup.DifferentFirstPageHeaderFooter = True
    
    'отключаем особые колонтитулы разделов
    For i = 1 To ActiveDocument.Sections.Count
    If i > 1 Then
        Set oRange = ActiveDocument.Sections(i).Range
        ActiveDocument.Sections(i).PageSetup.DifferentFirstPageHeaderFooter = False
    End If
    Next
    
    'вставляем нумерацию последуюзих страниц
    Selection.Sections(1).Headers(3).PageNumbers.Add PageNumberAlignment:=wdAlignPageNumberCenter, FirstPage:=False
        With ActiveDocument.Sections(1).Headers(3).Range    '1 wdHeaderFooterPrimary     все к. кроме первой страницы документа или раздела
            .Font.Name = "TimesNewRoman"
            .Font.Size = 12
            .ParagraphFormat.Alignment = wdAlignParagraphCenter
        End With
    ActiveDocument.ActiveWindow.View.SeekView = wdSeekMainDocume
    
'Нижний колонтитул
    Dim sВсе As String
        sИсп = "Исп.: И.О.Фамилия" & Chr(11)
        sТел = "тел.: +7 (000) 000 - 0000 | 0 - 00" & Chr(11)
        sПочта = "эл.почта: [email]name@site.ru[/email]"
        sВсе = sИсп & sТел & sПочта
    ActiveDocument.ActiveWindow.View.SeekView = wdSeekCurrentPageFooter
    
    'удаляем нижний колонтитул
    ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
    Selection.WholeStory
    Selection.Delete Unit:=wdCharacter, Count:=1
    
    'переменные
    ActiveDocument.ActiveWindow.View.SeekView = wdSeekCurrentPageFooter
    Dim fld As Field
    Dim myFR As Word.Range
    
    'формула перехода данных на последнюю страницу документа
    Set fld = Selection.Fields.Add(Range:=Selection.Range)
        fld.Code.Text = "IF"
    Set myFR = fld.Code
        myFR.SetRange Start:=fld.Code.End, End:=fld.Code.End
        fld.Code.Fields.Add Range:=myFR, Text:="PAGE"
        myFR.SetRange Start:=fld.Code.End, End:=fld.Code.End
        myFR.Text = "="
        myFR.SetRange Start:=fld.Code.End, End:=fld.Code.End
        fld.Code.Fields.Add Range:=myFR, Text:="NUMPAGES"
        myFR.SetRange Start:=fld.Code.End, End:=fld.Code.End
    
    'вставляем закладку
        myFR.Text = """" & sВсе & """"
        myFR.Bookmarks.Add ("Исполнитель")
        
    'форматирование результата исполнитель
        Word.ActiveDocument.Sections(1).Footers(2).Range.Select    '3 wdHeaderFooterEvenPages   все к. даже на пронумерованных статьях
        With ActiveDocument.Sections(1).Footers(2).Range           '2 wdHeaderFooterFirstPage   первый к. в документе или разделе
            .Font.Name = "TimesNewRoman"                           '1 wdHeaderFooterPrimary     все к. кроме первой страницы документа или раздела
            .Font.Size = 9
            .ParagraphFormat.Alignment = wdAlignParagraphLeft
        End With
        Word.ActiveDocument.Sections(1).Footers(1).Range.Select
        With ActiveDocument.Sections(1).Footers(1).Range
            .Font.Name = "TimesNewRoman"
            .Font.Size = 9
            .ParagraphFormat.Alignment = wdAlignParagraphLeft
        End With
    
    'скрыть/показать формулу кода полей False/True
    ActiveDocument.ActiveWindow.View.ShowFieldCodes = False
    ActiveDocument.ActiveWindow.View.SeekView = wdSeekMainDocume
    Selection.Fields.Update
 
End Sub

ПРОВЕРКА ИСПОЛНИТЕЛЯ:

Кликните здесь для просмотра всего текста

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub ПРОВЕРКА_ИСПОЛНИТЕЛЯ()
    
    'проверка исполнителя
    Dim SearchString, SearchChar, MyPos
        fИсп = "Исп.: И.О.Фамилия"
        fТел = "тел.: +7 (000) 000 - 0000 | 0 - 00"
        fПочта = "эл.почта: [email]name@site.ru[/email]"
        Где = ActiveDocument.Bookmarks.Item("Исполнитель").Range
        Что = fИсп ' в архиве нужно будет исправить
 
    Проверяем = InStr(Где, Что)
    If Проверяем > 0 Then
        MsgBox "Исполнитель в документе:" _
           & vbCrLf & "      " & fИсп _
           & vbCrLf & "      " & fТел _
           & vbCrLf & "      " & fПочта, 64
    Else
        MsgBox "Исполнитель в документе и установке программы не соответствуют проверке!", 48
        End If
 
End Sub

Буду признателен за Ваши замечания!
С уважением Аватар-С

Вложения

Тип файла: rar ПРОВЕРКА_ИСПОЛНИТЕЛЯ.rar (26.7 Кб, 31 просмотров)



0



1508 / 478 / 56

Регистрация: 10.04.2009

Сообщений: 8,008

01.03.2017, 17:23

14

а так-то лучше не закладка-так как её можно удалить а вариаблес-тоже можно удалить, но сложнее



0



1 / 1 / 0

Регистрация: 03.02.2017

Сообщений: 102

01.03.2017, 17:33

 [ТС]

15

Ципихович Эндрю

Цитата
Сообщение от Ципихович Эндрю
Посмотреть сообщение

а так-то лучше не закладка-так как её можно удалить а вариаблес-тоже можно удалить, но сложнее

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



0



Добавление общего числа страниц в номер страницы

Вставка в формате «Страница X из Y»

Если у вас уже есть верхний или нижний колонтитул, сначала щелкните или коснитесь места, где нужно добавить номер страницы.

Выберите Вставка > Номер страницы.

Выполните одно из указанных ниже действий.

Выберите вариант Текущее положение, если у вас есть верхний или нижний колонтитул.

Выберите расположение, если у вас еще нет колонтитулов.

Прокрутите до варианта Страница X из Y и выберите формат.

Нажмите Закрыть окно колонтитулов или дважды щелкните в любом месте за пределами области колонтитулов.

Дважды щелкните колонтитул, где нужно добавить номер страницы.

Выберите Колонтитулы > Нижний колонтитул, прокрутите до варианта Семафор и выберите его.

Нажмите Закрыть окно колонтитулов или дважды щелкните в любом месте за пределами области колонтитулов, чтобы выйти.

Дополнительные сведения

Выберите Вставка > Номера страниц

Выберите вариант Добавить число страниц в формате X из Y.

Чтобы удалить номера страниц, повторите эти действия, но выберите пункт Удалить номера страниц.

Дополнительные сведения о номерах страниц см. в статье Нумерация страниц в Word.

Как поставить общее количество страниц на первой странице

Чтобы отправить ответ, вы должны войти или зарегистрироваться

Сообщений [ 14 ]

1 Тема от ronik710 02.08.2011 15:07:03

  • ronik710
  • рядовой
  • Неактивен
  • Зарегистрирован: 01.08.2011
  • Сообщений: 5
Тема: Как поставить общее количество страниц на первой странице

Не могли бы Вы подсказать нельзя ли на первой странице в штампе(колонтитулах) в ячейке «Листов» менялось общее количество листов.

Бывает что количество листов несколько раз меняется и иногда получается что забываешь посавить общее количество листов. Может можно как то это автоматизировать? Или всё таки каждый раз руками всё вбивать?

2 Ответ от Alex_Gur 02.08.2011 15:29:52

  • Alex_Gur
  • Модератор
  • Неактивен
  • Откуда: Москва
  • Зарегистрирован: 28.07.2011
  • Сообщений: 2,758
  • Поблагодарили: 492
  • За сообщение: 1
Re: Как поставить общее количество страниц на первой странице

Здравствуйте!

Не могли бы Вы подсказать нельзя ли на первой странице в штампе(колонтитулах) в ячейке «Листов» менялось общее количество листов.

Бывает что количество листов несколько раз меняется и иногда получается что забываешь посавить общее количество листов. Может можно как то это автоматизировать? Или всё таки каждый раз руками всё вбивать?

Ronik710, я бы сделал так (пишу для версии Word 2007, для других версий — аналогично):

1) Создать закладку на последней странице (например, с именем колво_стр).
2) Открыть нижний колонтитул на первой странице и на вкладке Работа с колонтитулами:Конструктор установить флажок Особый колонтитул для первой страницы (это предотвратит выведение количества страниц на всех страницах, кроме первой).
3) Перейти на вкладку Ссылки и выбрать команду Перекрестная ссылка в группе Названия.
(При этом обратите внимание, что курсор в программе у Вас по прежнему должен находиться на нижнем колонтитуле первой страницы).
4) Откроется окно Перекрестные ссылки.
Выберите в нем:
Тип ссылки: Закладка..
Вставить ссылку на: Номер страницы.
Флажок Вставить как гиперссылку установлен.
В поле Для какой закладки установить курсор на закладку колво_стр.
Нажмите кнопку Вставить.

После этого в нижнем колонтитуле первой страницы у Вас отобразится количество страниц.

Если количество страниц изменится, а число в нижнем колонтитуле первой страницы останется прежним,то установите курсор на данное поле в колонтитуле, нажмите правую кнопку мыши и выберите команду Обновить поле.

Как добавить счетчик количества страниц в документе MS Word

Чтобы не пересчитывать каждый раз количество страниц в документе, в MS Word реализована функция подсчета количества страниц. Для того, чтобы вставить поле автоматического подсчета страниц, необходимо:

далее инструкция приведена для версии MS Word 2016

1. Укажите курсором место, в которое хотите вставить количество страниц в документе;

2. В меню Word выбрерите вкладку «Вставка«:

Word - вкладка Вставка

3. В блоке «Текст» нажмите на значок «Экспресс-блоки«:

4. В окне «Поле» выберите значение «NumPages«:

Word - поле NumPages

и нажмите на кнопку «ОК«.

5. Появится поле с количеством страниц в документе. Если количество страниц поменяется в документе, нажмите на поле правой кнопкой мыши и выберите «! Обновить поле«.

Like this post? Please share to your friends:
  • Закладка в документе microsoft word что это
  • Закладка в word 2010 что это
  • Закладка в excel как в word
  • Закладка word виды закладок
  • Задачи решаемые с помощью табличного процессора excel