Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Как для всех перекрёстных ссылок в документе задать формат «Строчные буквы»?
Хочу, чтобы все перекрёстные ссылки на «Рис. ...» или «Табл. ...» выглядели везде в тексте как «рис. ...» или «табл. ...» соответственно.
Чтобы изменить формат отображения ссылки нужно выбрать контекстное меню→Изменить поле… и в списке "Формат:" выбрать требуемый формат отображения. Также нужно поставить галочку "Сохранять формат при обновлении".
Если ссылок много, то можно то же самое сделать при помощи макроса, перебрав все поля ссылок:
Sub LowerCrossRef()
Dim oFld As Field
For Each oFld In ActiveDocument.Fields
If oFld.Type = wdFieldRef Then
'Все строчные
If InStr(oFld.Code.Text, "\* Lower ") = 0 Then
oFld.Code.Text = oFld.Code.Text & "\* Lower "
End If
'Сохранять формат при обновлении.
If InStr(oFld.Code.Text, "\* MERGEFORMAT ") = 0 Then
oFld.Code.Text = oFld.Code.Text & "\* MERGEFORMAT "
End If
End If
Next
End SubСпасибо, именно для множества ссылок мне нужен был код макроса.
Я немного усовершенствовал ваш код. Добавлены 1) обновление поля после его изменения и 2) полная замена формата поля, а не добавление.
Sub LowerCrossRef()
Dim lowerStr As String
On Error Resume Next
lowerStr = "\* lower \* mergeformat "
Dim oFld As Field
For Each oFld In ActiveDocument.Fields
If oFld.Type = wdFieldRef Then
'Все строчные
If InStr(oFld.Code.Text, "\*") = 0 Then
'Для поля не задан никакой формат
oFld.Code.Text = oFld.Code.Text & lowerStr
Else
'Для поля задан формат, его нужно очистить
oFld.Code.Text = Left(oFld.Code.Text, InStr(1, oFld.Code.Text, "\*") - 1) + lowerStr
End If
oFld.Update 'Обновить поле после смены формата
End If
Next
End SubМожно и так.
Замечание: строки соединяются оператором &, а не +:
oFld.Code.Text = Left(oFld.Code.Text, InStr(1, oFld.Code.Text, "\*") - 1) & lowerStrСтраницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Перекрёстная ссылка: как записать её строчными буквами?
Для всех, кто желает совершенствоваться, расти и не любит терять времени понапрасну, предлагаем замечательную шпаргалку по Ворду – форум Ворд Эксперт. На портале о Microsoft Office Word вы узнаете про: скопировать таблицу из word. Что приятно, это русский форум, очень теплый, там вы не найдете заумных слов и жутких сленговых терминов, в которых без Билла Гейтса не разберешься. На портале о Microsoft Office Word вы узнаете про: как сделать разметку страницы в word 2007. Все просто и понятно.
Заходя в дом - на форум, вы тут же оказываетесь в «прихожей» - разделе, где даются ответы на основные вопросы, как по самому Ворду, так и по устройству форума и сайта. Наш сайт о Microsoft Office Word даст ответ про: ворд выравние сверху страници. Там же вам предложат почитать что-нибудь интересное (про Ворд, конечно, за этим вы и пришли).
А в «гостиной» вы сможете обсудить программу, вашу версию, ее настройки, особенности работы, форматирование и многое другое. Наш сайт о Microsoft Office Word даст ответ про: сравнить документ на антиплагиат. Вас научат оптимизировать эксплуатацию Microsoft Word с помощью макросов. Это совсем не сложно.
В «столовой» форума подаются готовые блюда – оригинальные решения той либо иной проблемы, макросы и многое другое. Наш сайт о Microsoft Office Word даст ответ про: программа совместимости форматов word 2003 и 2007. Если хотите заказать «экзотическое блюдо», добро пожаловать «на кухню» - раздел «заявки на разработку». На портале о Microsoft Office Word вы узнаете про: ключи на оффисс 2007. Оставьте в нем описание своей проблемы, и вам помогут.
Что такое «курилка» объяснять, наверно, никому не надо. На портале о Microsoft Office Word вы узнаете про: как соединить документ word с excel. Заходите и сами все увидите. А пожелания можно оставлять в соответствующем разделе.