1 Тема от Annn

  • Annn
  • рядовой
  • Неактивен
  • Зарегистрирован: 05.09.2018
  • Сообщений: 7

Тема: Как заставить вторую сноску отображаться как **, третью - *** ?

Появилась необходимость в вордовском документе поставить сноски формата "*,**,***..." . (Больше трех звезд при этом в сносках не понадобится: на каждой новой странице перечень сносок начинаются сначала.) В настройках сносок ворда кроме буквенного и цифрового предлагается только такой формат: "*, (крест), $, ...". Также в соответствующих настройках есть отдельное поле "Другой", где можно отдельным символом задавать нужный формат сноски: если вставлять туда одну звезду "*" или даже всю комбинацию (по примеру предложенных вордом шаблонов) в виде "*,**,***...", ворд воспринимает это как желание использовать предложенный им формат "*, (крест), $, ...", начинающийся с одной звезды. Как заставить вторую сноску на странице отображаться как **, третью - как ***?

2 Ответ от Fck_This

  • Как заставить вторую сноску отображаться как **, третью - *** ?
  • Fck_This
  • генерал-полковник
  • Неактивен
  • Откуда: Минск, Беларусь
  • Зарегистрирован: 13.07.2016
  • Сообщений: 648
  • Поблагодарили: 97

Re: Как заставить вторую сноску отображаться как **, третью - *** ?

Annn пишет:

Появилась необходимость в вордовском документе поставить сноски формата "*,**,***..." . (Больше трех звезд при этом в сносках не понадобится: на каждой новой странице перечень сносок начинаются сначала.) В настройках сносок ворда кроме буквенного и цифрового предлагается только такой формат: "*, (крест), $, ...". Также в соответствующих настройках есть отдельное поле "Другой", где можно отдельным символом задавать нужный формат сноски: если вставлять туда одну звезду "*" или даже всю комбинацию (по примеру предложенных вордом шаблонов) в виде "*,**,***...", ворд воспринимает это как желание использовать предложенный им формат "*, (крест), $, ...", начинающийся с одной звезды. Как заставить вторую сноску на странице отображаться как **, третью - как ***?

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

Sub FootNotesChangeOnStars()
'Замена ссылок на звёзды
Dim S As Section
Dim F As Footnote
Dim i&
' перебор разделов
For Each S In ActiveDocument.Sections
' перебор сносок
For i = 1 To S.Range.Footnotes.Count
Set F = S.Range.Footnotes.Item(i)
' пересоздаем сноску
F.Reference.Footnotes.Add _
Range:=F.Reference, _
Reference:=String(i, "*")
'F.Range.Font.Name = "Arial"
Next i
Next S
End Sub

Код вставляется в диалоговое окно по пути "Вид - макросы - создать" Можете изменить название, а потом выполнять сколько угодно: "Вид - макросы" выбираем из списка установленное имя и жмём "Выполнить"

Спасибо можно перевести на WebMoney-кошелёк R378231864568 или на Яндекс-деньги 410015093172871

3 Ответ от Annn

  • Annn
  • рядовой
  • Неактивен
  • Зарегистрирован: 05.09.2018
  • Сообщений: 7

Re: Как заставить вторую сноску отображаться как **, третью - *** ?

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

4 Ответ от Fck_This

  • Как заставить вторую сноску отображаться как **, третью - *** ?
  • Fck_This
  • генерал-полковник
  • Неактивен
  • Откуда: Минск, Беларусь
  • Зарегистрирован: 13.07.2016
  • Сообщений: 648
  • Поблагодарили: 97

Re: Как заставить вторую сноску отображаться как **, третью - *** ?

Annn пишет:

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

Открою вам секрет, многоуважаемая, что Word и Excel не ограничиваются возможностью печатать текст и делать таблички, а макросы как раз упрощают всю возможную работу в десятки раз. Вот вы такая умная и предполагаете, что привязка к разделам не нужна, тогда зачем вообще пришли на форум просить помощи. Вам доходчиво привели рабочий код, а если найдёте в VBA такой объект как страница - флаг вам в руки, барабан на шею. Не надо воспринимать всё в штыки, если просите о помощи и кусать того, кто вас вытягивает.

Спасибо можно перевести на WebMoney-кошелёк R378231864568 или на Яндекс-деньги 410015093172871