Работа с названиями в Microsoft Word. Часть 2 – названия и ссылки

Часть 1 Часть 2

Названия используются, для того, чтобы подписать объект (рисунок, главу, текст, диаграмму и прочее) и в дальнейшем ссылаться на него.

В этой новости мы мы покажем, как задавать названия объектов и как создавать текстовые ссылки на эти названия, изменяемые автоматически.

Название представляет собой текст, состоящий из 3 частей: тип, номер, описание. Например: «Рис. 1 Вставить название». Для того, чтобы перемещать название объекта вместе с объектом, следует вставить объект и название общую рамку, об этом мы рассказали в первой части.

Теперь настало время создать название объекта и поместить его в рамку с объектом, для этого поместите курсор в рамку с объектом нажмите «Ссылки» — «Вставить название» (Рис. 1).

Вставить название

Рис. 1

В открывшемся окне выберите подпись, которую будете использовать для всех объектов этого типа, например «Рисунок» и нажмите «ОК» (Рис. 2 пункт 2. и 4.). После этого появится надпись отображаемая в графе название (Рис. 2 пункт 1.). Эта надпись будет отредактирована, так же как текст, в который она вставляется или же по умолчанию, если текста рядом нет. Формат по умолчанию отображается в графе название (Рис. 2 пункт 1.).

Рис. 2

Далее, когда вы создаете следующие объекты и снабжаете их названиями, они нумеруются в той последовательности, в которой были созданы. Для того чтобы они стали пронумерованы в той последовательности, в которой они расположены в документе, «Ссылки» — «Вставить название» (Рис. 1) и в открывшемся окне нажмите «Нумерация…» (Рис. 2 пункт 3.) и в открывшемся окне выберете вид нумерации и нажмите «ОК» (Рис. 3).

Рис. 3

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

Теперь, когда у вас есть несколько пронумерованных объектов, вы можете делать ссылки на них в тексте. Для того чтобы нумерация ссылки менялась вместе с нумерацией объекта, не достаточно просто написать его название в тексте, необходимо использовать перекрёстную ссылку «Ссылки» — «Перекрестная ссылка» (Рис. 4).

Рис. 4

В открывшемся окне выбрать тип названия, на которое вы собираетесь ссылаться (Тип ссылки), выбрать в каком виде будет вставлена ссылка (Вставить ссылку на: ), указать ваш объект (Для какого названия: ) и нажать «Вставить». В моём случае я создал тип ссылки «Рис.» нумеруемый обычными цифрами без описаний (Рис. 5).

Рис. 5

Для обновления нумерации в ссылках надо выделить их и нажать клавишу F9 на клавиатуре. Для обновления нумерации во всём тексте, следует выделить весь текст.

Важно: если в названиях ваших объектов не будет описания, т.е. они будут выглядеть как «Рис. », то ссылки не будут обновляться при нажатии F9 на клавиатуре. Чтобы решить эту проблему добавьте в конец названия каждого объекта пробел, чтобы оно стало выглядеть вот так «Рис. _»

<<<Здесь можно посмотреть первую новость серии.

Комментарии к статье:

  1. Вера

    Молодцы! Все очень подробно и понятно!

  2. roamer

    ‘Макрос, который убирает «постоянную часть» из ссылок на рисунки и таблицы и оставляет только номер рисунка (таблицы).

    Sub ПереименоватьЗакладкиНаРисТаб()

    ‘ ПереименоватьЗакладкиНаРисТаб Макрос
    ‘ (c) Сергей Попов, СПб, 2014

    Selection.WholeStory
    ActiveWindow.View.ShowFieldCodes = True
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
    .Text = «\# 0»
    .Replacement.Text = «»
    .Forward = True
    .Wrap = wdFindAsk
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
    .Text = «\h»
    .Replacement.Text = «\# 0\h»
    .Forward = True
    .Wrap = wdFindAsk
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    ‘ActiveWindow.View.ShowFieldCodes = Not ActiveWindow.View.ShowFieldCodes
    ActiveWindow.View.ShowFieldCodes = False
    Selection.Fields.Update
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    End Sub

Добавить комментарий

Ваш e-mail не будет опубликован.