Word стиль перекрестных ссылок

Часто в тексте документа необходимо отметить, где находится объект связанный с конкретным текстом. Например, «Схему подсоединения водопроводного крана смотри на рисунке 10». То есть нам необходимо сделать ссылку на рисунок. Если в документе 5 рисунков, то можно и вручную подсчитать. А если рисунков 25? Ещё хуже, если собираем один большой документ из нескольких тоже немаленьких документов. Вот тут на помощь придёт Перекрестная ссылка.

Можно создать перекрестные ссылки на следующие элементы:

1. Абзац
2. Заголовок
3. Закладка (познакомимся с понятием Закладка позже)
4. Сноска (познакомимся с понятием Сноска позже)
5. Концевая сноска (познакомимся с понятием Концевая сноска позже)
6. Названия объектов

По окончании урока вы сможете:

1. Задать перекрёстную ссылку на Название таблицы
2. Задать перекрёстную ссылку на Название рисунка
3. Обновить поле «Перекрёстная ссылка»

Если вы правильно сделали документ по итогам Урока 30, то откройте этот документ. Но можете воспользоваться этой ссылкой: Скачайте документ тут. Откройте документ. Поскольку работы со стилями на этом уроке не будет, то я закрыла область задач Стили.

1. Перекрестная ссылка на Название таблицы

Вы обратили внимание, что по тексту документа встречаются выражения «(см. )»? Я подготовила место для перекрестной ссылки.

Шаг 1. Поставим курсор в месте предполагаемой перекрестной ссылки:

Шаг 2. Открываем диалоговое окно «Перекрёстные ссылки» (Лента Ссылки →группа команд Названия → кнопка Добавить перекрестную ссылку):

На всякий случай я покажу, как выглядит эта кнопка в полноэкранном режиме:

Появляется диалоговое окно:

1. На какой фрагмент будет организована перекрёстная ссылка? Из выпадающего меню определяем тип перекрёстной ссылки. Перекрестную ссылку можно сделать на абзац, заголовок, закладку, сноску, рисунок, таблицу и т.д.
2. Что из себя будет представлять ссылка? Например, «номер страницы». Значит ссылка будет иметь вид номера страницы, на которой находится фрагмент. Или «текст абзаца». В этом случае перекрестная ссылка будет полностью повторять текст выбранного фрагмента.

На уроке 30 я рассказала вам, что такое Поле. Перекрестная ссылка – это тоже Поле. Например, текст «см. рис. 15» является перекрёстной ссылкой на название рисунка 15 , т.е. щелчок ЛМ по перекрестной ссылке отправляет нас непосредственно к названию рисунка. Если название рисунка 15 меняет номер по каким-то причинам, то перекрестная ссылка на этот рисунок тоже меняет номер. Причем, не важно в каком месте документа находится данный рисунок.

Шаг 3. Устанавливаем в диалоговом окне Перекрёстная ссылка следующие значения:

1. Тип ссылки – таблица
2. Вставить ссылку на – «Постоянная часть и номер» (зачем нам всё название целиком?), а что такое Постоянная часть и что такое номер см. Урок 29
3. Вставить как гиперссылку – оставляем
4. Для какого названия – выбираем Таблица 1. Виды нормативных актов (список всех названий таблиц программа составляет автоматически на основе имеющихся в документе названий таблиц, если мы, разумеется вставляли название при помощи диалогового окна «Вставить название», см. Урок 29)

Шаг 4. После установок нужных нам значений нажимаем кнопку «Вставить»:

Кнопка Отмена превратилась в копку Закрыть.

Шаг 5. Нажимаем кнопку Закрыть

Итак, в выбранном месте появилась постоянная часть и номер выбранного названия таблицы:

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

1. Поставьте курсор в нужном месте (руководствуйтесь подсказкой «(см. )»)
2. Откройте диалоговое окно «Перекрёстные ссылки» (лента Ссылки → группа команд Названия → кнопка Добавить перекрёстную ссылку
3. Выберите тип ссылки – таблица
4. Вставьте ссылку на – «Постоянная часть и номер»
5. Выберите название таблицы, на которое организуется Перекрёстная ссылка
6. Нажмите кнопку Вставить
7. Нажмите кнопку Закрыть

Например:

2. Перекрёстная ссылка на Название рисунка

Шаг 1. Поставим курсор в месте предполагаемой перекрёстной ссылки:

Шаг 2. Вызываем диалоговое окно «Перекрестные ссылки» (Лента Ссылки →группа команд Называния → кнопка Добавить перекрестную ссылку:

Появляется диалоговое окно «Перекрестные ссылки».

Шаг 3. Устанавливаем в диалоговом окне «Перекрестная ссылка» следующие значения:

Шаг 4. После установок нужных нам значений нажимаем кнопку «Вставить»

Шаг 5. Нажимаем кнопку Закрыть

И вот в выбранном месте появилась постоянная часть и номер выбранного названия рисунка:

Пройдитесь по документу и в нужных местах расставьте перекрёстные ссылки на Названия рисунков. Алгоритм действий такой:

1. Поставьте курсор в нужном месте (руководствуйтесь подсказкой «(см. )»)
2. Откройте диалоговое окно «Перекрёстные ссылки» (лента Ссылки → группа команд Названия → кнопка Добавить перекрёстную ссылку
3. Выберите тип ссылки – «рисунок»
4. Вставьте ссылку на – «Постоянная часть и номер»
5. Выберите название рисунка, на которое организуется Перекрёстная ссылка
6. Нажмите кнопку Вставить
7. Нажмите кнопку Закрыть

Например:

Я старалась по всему тексту неустанно повторять: Название таблицы, Название рисунка. Если вы удалите рисунок, а название объекта оставите, то ссылка будет работать как ни в чём не бывало.

А теперь самое время посмотреть, как будет работать перекрёстная ссылка.

3. Обновление поля «Перекрестная ссылка»

Поставим сразу сложную задачу. При работе с документом мы выяснили, что глава 5 на самом деле должна быть главой 2. Вспоминаем Урок 28, где мы познакомились с навигацией по заголовкам. Перейдите в начало документа (нажмите одновременно клавиши на клавиатуре Ctrl+Home)

Шаг 1. Отрываем рабочую область Навигация. Лента Вид → группа команд Показ → флажковая кнопка Область навигации:

Получаем такую картину:

Очень неудобно перемещать главы, так как в области Навигация показаны Заголовки второго уровня. В результате список всех заголовков получился длинным. Но на уроке 28 мы научились справляться с этой проблемой

Шаг 2. В любом месте области задач Навигация щёлкаем ПМ и из контекстного меню выбираем команду Свернуть все:

Получаем такую картину:

Сразу работать стало удобнее.

Шаг 3. Перемещаем в области Навигация Главу 5 на второе место в списке (нажимаем ЛМ на название Главы 5 и, не отпуская левую клавишу мышки, перетаскиваем Главу 5 на второе место после главы 1):

Вы обратили внимание, что, как только мы нажали ЛМ по главе 5 в области Навигация, то курсор сразу перескочил на главу 5?

Любуемся результатом:

Но вместе с главой 5 мы перетащили рисунок, который сохранил свой номер.

Шаг 4. Выделяем весь документ одновременным нажатием клавиш с клавиатуры Ctrl+A и нажимаем функциональную кнопку F9, в результате чего появляется уже знакомое окно:

• Отмечаем радиоточку «обновить целиком»
• Нажимаем ОК

Не пугайтесь, если окно «Обновление списка иллюстраций» выскочит во второй раз. Ведь у нас два списка иллюстраций: перечень рисунков и перечень таблиц.

Любуемся результатом:

И название рисунка поменяло свою нумерацию, и перекрёстная ссылка «отработала» это изменение. Можете пройти по всему документу и убедиться, что нумерация рисунков и таблиц обновилась, также обновились перечни рисунков и таблиц.

Теперь вы сможете:

1. Задать перекрёстную ссылку на Название таблицы
2. Задать перекрёстную ссылку на Название рисунка
3. Обновить поле «Перекрёстная ссылка»

Добавляйте названия объектов, меняйте главы местами, объединяйте документы в единый документ – вам теперь не страшно! Функциональная кнопка F9 вас никогда не подведёт!

Ответы:

Sub mf()
'
' mf Macro
' Find cross references and add * mergeformat
'
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "^19 REF"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
    Selection.TypeText Text:="* mergeformat "
    Selection.Find.Execute
End Sub

ActiveDocument.ActiveWindow.View.ShowFieldCodes = False

Sub SetCrossRefStyle()
'
' Macro to set styole of all cross references to "Subtle Reference"
'
'
ActiveDocument.ActiveWindow.View.ShowFieldCodes = True
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Selection.Find.Replacement.Style = ActiveDocument.Styles( _
    "Subtle Reference")
With Selection.Find
    .Text = "^19 REF"
    .Replacement.Text = ""
    .Forward = True
    .Wrap = wdFindContinue
    .Format = True
    .MatchCase = False
    .MatchWholeWord = False
    .MatchKashida = False
    .MatchDiacritics = False
    .MatchAlefHamza = False
    .MatchControl = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
ActiveDocument.ActiveWindow.View.ShowFieldCodes = False
End Sub

Sub XrefSuper()
'
' This opens the Cross Reference dialogue box to insert a cross reference at the current cursor position.
'   When the dialogue box is closed after inserting the reference the macro resumes to format the inserted cross reference to superscript.
'
'
Dim wc As Integer
    wc = ActiveDocument.Characters.Count

Dim dlg As Dialog
    Set dlg = Dialogs(wdDialogInsertCrossReference)
        dlg.Show 'Open dialogue and perform the insertion from the dialog box) 
                 'Macro continues after closing CrossRef dialogue box

    If wc = ActiveDocument.Characters.Count Then Exit Sub   'If we failed to insert something then exit

    Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
    Selection.Font.Superscript = wdToggle
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    Selection.Font.Superscript = wdToggle
End Sub

Sub m_SetCHARFORMAT(textRanges As Collection)
' https://superuser.com/questions/13531/is-it-possible-to-assign-a-specific-style-to-all-cross-references-in-word-2007
'
' Set CHARFORMAT switch to all {REF} fields. Replace MERGEFORMAT.
' Requires ActiveDocument.ActiveWindow.View.ShowFieldCodes = True
'
    Dim oField As Field
    Dim oRng As Range
    For Each oRng In textRanges
        For Each oField In oRng.Fields
            If InStr(1, oField.Code, "REF ") = 2 Then
                If InStr(1, oField.Code, "MERGEFORMAT") <> 0 Then
                    oField.Code.Text = Replace(oField.Code.Text, "MERGEFORMAT", "CHARFORMAT")
                End If
                If InStr(1, oField.Code, "CHARFORMAT") = 0 Then
                    oField.Code.Text = oField.Code.Text + "* CHARFORMAT "
                End If
            End If
        Next oField
    Next oRng
End Sub


Sub m_AddCrossRefStyle(textRanges As Collection)
' https://superuser.com/questions/13531/is-it-possible-to-assign-a-specific-style-to-all-cross-references-in-word-2007
'
' Macro to set style of all cross references to "Intense Reference"
' Requires ActiveDocument.ActiveWindow.View.ShowFieldCodes = True
'
    For Each oRng In textRanges
        oRng.Find.ClearFormatting
        oRng.Find.Replacement.ClearFormatting
        oRng.Find.Replacement.Style = ActiveDocument.Styles("Intense Reference")
        With oRng.Find
            .Text = "^19 REF"
            .Replacement.Text = ""
            .Forward = True
            .Wrap = wdFindContinue
            .Format = True
            .MatchCase = False
            .MatchWholeWord = False
            .MatchKashida = False
            .MatchDiacritics = False
            .MatchAlefHamza = False
            .MatchControl = False
            .MatchWildcards = False
            .MatchSoundsLike = False
            .MatchAllWordForms = False
        End With
        oRng.Find.Execute Replace:=wdReplaceAll
    Next oRng
End Sub


Function m_GetAllTextRanges() As Collection
' https://wordmvp.com/FAQs/Customization/ReplaceAnywhere.htm
' https://www.mrexcel.com/forum/excel-questions/443052-returning-collection-function.html
'
' Get text ranges in all document parts.
'
    Set m_GetAllTextRanges = New Collection
    For Each rngStory In ActiveDocument.StoryRanges
        'Iterate through all linked stories
        Do
            m_GetAllTextRanges.Add rngStory
            On Error Resume Next
            Select Case rngStory.StoryType
                Case 6, 7, 8, 9, 10, 11
                If rngStory.ShapeRange.Count > 0 Then
                    For Each oShp In rngStory.ShapeRange
                        If oShp.TextFrame.HasText Then
                            m_GetAllTextRanges.Add oShp.TextFrame.TextRange
                        End If
                    Next
                End If
                Case Else
                    'Do Nothing
            End Select
            On Error GoTo 0
            'Get next linked story (if any)
            Set rngStory = rngStory.NextStoryRange
        Loop Until rngStory Is Nothing
    Next
End Function

Sub SetCrossRefStyle()
'
' 1. Get all text ranges since Selection.Find only works on document body, but not on headers/footers
' 2. Add CHARFORMAT to make styling persistent
' 3. Add styling to all references
'
    Dim textRanges As Collection
    Set textRanges = m_GetAllTextRanges
    ActiveDocument.ActiveWindow.View.ShowFieldCodes = True
    m_SetCHARFORMAT textRanges
    m_AddCrossRefStyle textRanges
    ActiveDocument.ActiveWindow.View.ShowFieldCodes = False
End Sub

The simplest thing to do is to insert the reference manually.

When you insert a cross-reference to a Figure, etc. Word inserts a hidden bookmark to «cover» the portion of the caption that you want to appear in your reference, then uses a REF field to insert the cross-reference text.

The Insert Cross Reference dialog does not allow you to select either just the number part of the Caption number, or the number + following text, but you can insert your own bookmark manually and reference that.

So for example, if you have

Figure 1.1 Description

and you want a cross-reference that shows

1.1 Description

then

Select the text 1.1 Description in the caption.

Use the Insert tab->Links dropdown->Bookmark button to insert a bookmark. Let’s say you call it bmabc

Click where you want the cross-reference to appear.

Click ctrl-F9 (Windows desktop Word) to insert a pair of the special field code brace characters { } (You can’t just type them on the keyboard).

Between then, type REF bmabc, so you have

{ REF bmabc }

Use Alt-F9 as needed to toggle between «field code» and «field result» view. Select the field and press F9 to update its value as needed.

If you want the bookmark to be hidden, its name should start with an underscore, e.g. _bmabc. If you want the cross-reference to be hyperlinked, put h after the bookmark name, so you have

{ REF bmabc h }

If you just want to have a reference to the number, bookmark the number part instead (incidentally, you will probably notice that in the example you give, the number consists oftwo field codes with a «.» in between. But you do the same thing — select the two field codes and the «.» and insert a bookmark.

If you need both types of cross-reference, you can create two bookmarks and make references to them.

Because Word uses bookmarks to mark the areas it will use in a cross-reference, it is quite easy to damage the cross-references, e.g. if you type some extra text and a paragraph mark and push the word «Description to a new paragraph, any bookmark Word inserting while creating a cross-reference will likely cover the caption paragraph and the new paragraph. So you have to re-insert the cross-reference (or you could reinsert the bookmark). It’s the same for cross-references that you create manually.

As an aside, a difference between cross-references to Captions and cross-references to, say, Headings, is that the latter are usually numbered using Word’s automatic numbering features, whereas captions are numbered using field codes. Selecting the parts of an automatic numbering scheme is not so easy, which is probably why Word offers more cross-referencing options for those kind of numbered items.

Как известно, популярный редактор Microsoft Office поддерживает добавление и редактирование гиперссылок, для выделения которых используется синий подчеркнутый шрифт. Но это по умолчанию, при желании же вы можете изменить форматирование гиперссылок, выбрав другой шрифт, изменив его цвет и тип подчеркивания. Все необходимые для этого средства доступны в блоке «Шрифт» на вкладке «Главная».

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

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

Копирование стиля в Word

Всё очень просто. Отредактировав ссылку, установите на нее курсор и нажмите в блоке «Буфер обмена» кнопку «Формат по образцу», в результате чего стиль ссылки будет скопирован во внутренний буфер. Затем перетащите видоизменившийся курсор на ссылку, которую хотите изменить и кликните по ней — ссылка получит скопированный стиль. Аналогичным образом перенесите стиль на другие ссылки. Если ссылка состоит из нескольких слов, вместо одиночного клика используйте выделение с зажатой левой кнопкой мыши.

Изменение шаблона стиля ссылок

Если хотите использовать новый стиль ссылок на постоянной основе, задайте его в настройках редактора. На вкладке «Главная» в блоке «Стили», в правом нижнем углу нажмите импровизированную кнопку-стрелку, чтобы открыть окно со списком стилей.

Выберите в последнем стиль «Гиперссылка», кликните справа от него по кнопке-треугольнику и выберите в меню опцию «Изменить».

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

То есть, если вы хотите, чтобы ссылки имели новый стиль в новых документах, выбирайте второй вариант.

Время на прочтение
4 мин

Количество просмотров 47K

Каждый из нас знает, насколько MS Word удобный инструмент для подготовки небольших документов. И каждый из тех, кто сталкивался с подготовкой документа, количество страниц в котором превышает сотню (плюс необходимо придерживаться строгих требований к форматированию), знает об основных недостатках этого инструмента. Мне пришлось в своей жизни столкнуться с версткой 500 страничного документа, причем количество и расположение рисунков таблиц и формул в нем постоянно менялось от версии к версии. Я бы хотел поделиться своими «лайфхаками», которые мне пришлось применить при верстке этого документа. Некоторые из них мне подсказали друзья; на некоторые наткнулся на форумах; некоторые придумал сам.

Эти простые хитрости помогут вам при верстке диссертации дипломной работы или отчета.

В данной статье рассмотрены решения проблем:

• создание списка литературы
• Склонения перекрёстных ссылок на рисунки таблицы и формулы
• Перенос таблиц на новую страницу
• Вставка формул

Список литературы

Когда дело доходит до подготовки кандидатской диссертации, список литературы резко становится больной темой. Форматировать список по ГОСТ 7.0.5–2008 вручную становится очень тяжело. Самые продвинутые пользователи знают, что можно сделать список литературы в виде нумерованных абзацев с закладками, на которые в тексте можно делать перекрестные ссылки и в несложных случаях добиваться желаемого. Но при большом списке источников ручные и полуавтоматические методы работают все хуже и хуже. Также продвинутые пользователи знают, что в Word можно делать библиографии, но не по ГОСТу, присутствует несколько «американских» стилей. Слава богу на просторах интернета мне попался det-random с его самописным стилем который умеет формировать список литературы по ГОСТ 7.0.5–2008, нумеровать ссылки в тексте по порядку упоминания и различать формат для англоязычных и русскоязычных источников Страница проекта на гитхабе: gost-r-7.0.5-2008.

Список литературы будет выглядеть следующим образом:

Склонение перекрёстных ссылок

Одна из основных проблем в том, что MS Word не умеет склонять перекрестные ссылки. Это является результатом того, что в германских языках отсутствуют склонения. Microsoft Office — это американская программа, поэтому американцам не надо, чтобы была ситуация, когда нужно учитывать склонение слов по падежам. Иногда это может привести к забавным результатам, например, «На Рисунок 1.1. представлено…», «В Таблица 5.4 рассматривается…» или «С учетом Формула (2.2) …» и т. д. Решить эту проблему можно следующим образом.

Название рисунка вставляется стандартными средствами.

Вставка рисунка: Вставка->Ссылка->Название->Подпись (рисунок).

Подпись к рисунку обычно имеет следующий вид:

Рисунок {STYLEREF 1 s} {SEQ Рисунок * ARABIC}

Где первое поле в фигурных скобках ссылается на номер главы, а второе — это уникальное значение счётчика количества рисунков. Ссылка на рисунок, таблицу или формулу вставляется с помощью инструмента «Перекрестная ссылка».

Вставляется, естественно, «Рисунок 1.1». Затем выделяем часть вставленного текста, а именно «Рисунок», делаем ее скрытой (тоже самое можно сделать через меню Формат -> Шрифт). Потом дописывается перед номером слово в нужном падеже. При обновлении поля скрытая часть текста остается скрытой.

Перенос таблиц

Согласно многим требованиям, если таблица переносится на другую страницу, то заголовок на продолжении должен повторять название таблицы, а иногда необходимо приписывать к названию таблицы слово «продолжение», т. е. быть вида: «Название таблицы… Продолжение». Но ни одна версия MS Word не вставляет новый заголовок в разорванную таблицу.

Для решения этой проблемы придумал следующий трюк. Я добавляю еще оду строку в самое начало таблицы и объединяю все ячейки в ней, затем делаю невидимыми границы, после чего вставляю название таблицы. И уже затем делаю повтор этой ячейки при переносе на другую страницу.

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

Результат будет выглядеть примерно так. При переносе отобразится первые 2 строки, одна из которых — это название таблицы, а вторая — название колонок.

Ниже представлен образец VBA кода для создания заголовка таблицы:

Sub Table_head()
 Dim myTable As Word.Table
 Selection.InsertRowsAbove 1
 Set myTable = Selection.Tables(1)
    myTable.Cell(1, 1).Merge MergeTo:=myTable.Cell(1, myTable.Columns.Count)
    With myTable.Cell(1, 1)
        .Borders(wdBorderTop).Color = wdColorWhite
        .Borders(wdBorderRight).Color = wdColorWhite
        .Borders(wdBorderLeft).Color = wdColorWhite
     
    End With
  
    Selection.TypeText ("Таблица ")
    Selection.Style = ActiveDocument.Styles("Название таблицы")
    Selection.Range.Fields.Add Selection.Range, Type:=wdFieldEmpty, Text:="STYLEREF 1 s", PreserveFormatting:=False
    Selection.TypeText (".")
    Selection.Range.Fields.Add Selection.Range, Type:=wdFieldEmpty, Text:="SEQ Таблица * ARABIC", PreserveFormatting:=False
End Sub

Формулы

Формулы лучше вставлять в таблицу с невидимыми границами с одной строкой и двумя столбцами. Делаю это с помощью макроса и в итоге получаю таблицу, в первом столбце которой по центру стоит надпись: «Место для формулы,», а во втором — по центру находятся круглые скобки. В первый столбец заношу формулу, во второй с помощью команды «Название» ее номер. Ссылаюсь на формулу с помощью команды «Перекрестная ссылка» и получаю при этом номер формулы в круглых скобках (ячейка таблицы воспринимается программой как новая строка).

Образец вставки VBA кода для вставки формулы представлен ниже.

Sub formula()
ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=1, NumColumns:=2
        Selection.Tables(1).Columns(1).Width = CentimetersToPoints(14)
        Selection.Tables(1).Columns(2).Width = CentimetersToPoints(2.5)   
        Selection.Tables(1).Cell(1, 1).Range.Text = "Место для формулы/уравнения"
        Selection.Style = ActiveDocument.Styles("Формулы и уравнения")
        Selection.MoveRight Unit:=wdCell, Count:=1
        Selection.Style = ActiveDocument.Styles("Формулы и уравнения")
        Selection.TypeText ("(")
        Selection.Range.Fields.Add Selection.Range, Type:=wdFieldEmpty, Text:="STYLEREF 1 s", PreserveFormatting:=False
        Selection.TypeText (".")
        Selection.Range.Fields.Add Selection.Range, Type:=wdFieldEmpty, Text:="SEQ Формула * ARABIC", PreserveFormatting:=False
        Selection.TypeText (")")
End Sub

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