Тема: замена символа абзаца в сносках (2007 Word)
Добрый день!
В 90% сносок отсутствует точка в конце сноски.
Подскажите, как заменит в сносках символ "абзаца" на "точку" и символ "абзаца"
Спасибо
Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Добрый день!
В 90% сносок отсутствует точка в конце сноски.
Подскажите, как заменит в сносках символ "абзаца" на "точку" и символ "абзаца"
Спасибо
Выложите пример…
пример внешняя ссылка
Предлагаю такой вариант:
Sub FootnotesPointAtTheEnd()
Dim aw As Integer
aw = ActiveWindow.View.Type 'Запоминание текущего вида
'Переход к сноскам====================================
If ActiveWindow.View.SplitSpecial = wdPaneNone Then
ActiveWindow.ActivePane.View.Type = wdNormalView
Else
ActiveWindow.View.Type = wdNormalView
End If
If ActiveWindow.ActivePane.View.Type = wdPrintView Or ActiveWindow. _
ActivePane.View.Type = wdWebView Or ActiveWindow.ActivePane.View.Type = _
wdPrintPreview Then
ActiveWindow.View.SeekView = wdSeekFootnotes
Else
ActiveWindow.View.SplitSpecial = wdPaneFootnotes
End If
'=====================================================
'Поиск абзацев и вставка точек перед ними
With Selection.Find
.ClearFormatting
.Text = "^p"
Do While .Execute
If Selection.Characters.First.Previous <> "." Then Selection.InsertBefore "."
Selection.Collapse wdCollapseEnd
If Selection.Characters.First.Previous = "." Then Exit Do
Loop
End With
ActiveWindow.View.Type = aw 'Восстановление вида документа
End Sub
Спасибо огромное! Работает.
это на VB?
еще вопросик, как заставить макрос вставлять только там точку где ее нет.
Т.е. если есть точка в сносках - там не ставить, а где нет- вставить
Исправил код, чтобы точка вставлялась только если её нет. Исправление в лоб, потому что можно так же изменить критерий поиска, но нет времени возиться
Только не понимаю, почему word не может в сноска через поиск и замену вставлять точку и символ абзаца
Сам не понимаю. Видимо есть причины
...через поиск и замену вставлять точку и символ абзаца...(
Проблемы с поиском и заменой ^p или ^13 обычное дело в Word. Например, в тех же списках. Но можно работать не со знаком абзаца, а с текстом абзаца.
Найти: ([!^13]{1;})
Заменить: \1.
Подстановочные знаки: Да
Жмем "Запенить все".
Если точки станут надстрочными, задайте формат для найти: шрифт > не надстрочный.
Найти: ([!^13]{1;})
Заменить: \1.
Подстановочные знаки: Да
Жмем "Запенить все".
Если точки станут надстрочными, задайте формат для найти: шрифт > не надстрочный.
Нет, это очень криво, не работает
...не работает...
Делает как раз то, о чем говорится в 1-м вашем сообщении
sas пишет:...не работает...
Делает как раз то, о чем говорится в 1-м вашем сообщении
ну не знаю, попробовал Ваше ввести ваш "код" результат отрицательный. Могу выложить полученное... испытания провел на другом примере
Может скрин вам поможет:
Вот, для примера исходный текст (сноски)
вот что получаем! Смущает "разрыв" цифр в сноске и в словах
...вот что получаем...(
Интересно, но хотелось бы узреть процесс, или иметь возможность тестировать этот документ самому, чтобы разобраться. Ибо с первым вашим образцом ("В данном.rtf") проблем не наблюдаю.
кусочек... (на нем не делал, а делал на всем док.)
ах нет, "рвет" 39
Ясненько. Проблему поиску создает знак сноски. Об этом и ветка. Его надо обойти при поиске. Для этого я и советовал для поля "Найти" задать формат "Шрифт > Не надстрочный". Тогда все работает. Попробуйте все советы ответа № 10.
спасибо!
еще бы исключить вставку точки там где она есть, но думаю поиском не получиться а только так как viter.alex описал
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться