1

Тема: замена символа абзаца в сносках (2007 Word)

Добрый день!
В 90% сносок отсутствует точка в конце сноски.
Подскажите, как заменит в сносках символ "абзаца" на "точку" и символ "абзаца"
Спасибо

2

Re: замена символа абзаца в сносках (2007 Word)

Выложите пример…

3

Re: замена символа абзаца в сносках (2007 Word)

пример внешняя ссылка

4

Re: замена символа абзаца в сносках (2007 Word)

Предлагаю такой вариант:

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
Лучше день потерять — потом за пять минут долететь!

5

Re: замена символа абзаца в сносках (2007 Word)

Спасибо огромное! Работает.
это на VB?

6

Re: замена символа абзаца в сносках (2007 Word)

еще вопросик, как заставить макрос вставлять только там точку где ее нет.
Т.е. если есть точка в сносках - там не ставить, а где нет- вставить

7

Re: замена символа абзаца в сносках (2007 Word)

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

Лучше день потерять — потом за пять минут долететь!

8

Re: замена символа абзаца в сносках (2007 Word)

Только не понимаю, почему word не может в сноска через поиск и замену вставлять точку и символ абзаца  sad

9

Re: замена символа абзаца в сносках (2007 Word)

Сам не понимаю. Видимо есть причины

Лучше день потерять — потом за пять минут долететь!

10

Re: замена символа абзаца в сносках (2007 Word)

sas пишет:

...через поиск и замену вставлять точку и символ абзаца...(

Проблемы с поиском и заменой ^p или ^13 обычное дело в Word. Например, в тех же списках. Но можно работать не со знаком абзаца, а с текстом абзаца.

Найти: ([!^13]{1;})
Заменить: \1.
Подстановочные знаки: Да
Жмем "Запенить все".
Если точки станут надстрочными, задайте формат для найти: шрифт > не надстрочный.

Макросы под заказ и готовый пакет - mtdmacro.ru

11

Re: замена символа абзаца в сносках (2007 Word)

Вождь пишет:

Найти: ([!^13]{1;})
Заменить: \1.
Подстановочные знаки: Да
Жмем "Запенить все".
Если точки станут надстрочными, задайте формат для найти: шрифт > не надстрочный.

Нет, это очень криво, не работает

12

Re: замена символа абзаца в сносках (2007 Word)

sas пишет:

...не работает...

Делает как раз то, о чем говорится в 1-м вашем сообщении smile

Макросы под заказ и готовый пакет - mtdmacro.ru

13

Re: замена символа абзаца в сносках (2007 Word)

Вождь пишет:
sas пишет:

...не работает...

Делает как раз то, о чем говорится в 1-м вашем сообщении smile

ну не знаю, попробовал Ваше ввести ваш "код" результат отрицательный. Могу выложить полученное... испытания провел на другом примере

14

Re: замена символа абзаца в сносках (2007 Word)

Может скрин вам поможет:

Post's attachments

Clip.jpg 128.69 Кб, 1 скачиваний с 2012-12-05 

You don't have the permssions to download the attachments of this post.
Макросы под заказ и готовый пакет - mtdmacro.ru

15

Re: замена символа абзаца в сносках (2007 Word)

Вот, для примера исходный текст (сноски)

Post's attachments

1.jpg 237.37 Кб, файл не был скачан. 

You don't have the permssions to download the attachments of this post.

16

Re: замена символа абзаца в сносках (2007 Word)

вот что получаем! Смущает "разрыв" цифр в сноске и в словах  sad

Post's attachments

2.jpg 180.46 Кб, файл не был скачан. 

You don't have the permssions to download the attachments of this post.

17

Re: замена символа абзаца в сносках (2007 Word)

sas пишет:

...вот что получаем...(

Интересно, но хотелось бы узреть процесс, или иметь возможность тестировать этот документ самому, чтобы разобраться. Ибо с первым вашим образцом ("В данном.rtf")  проблем не наблюдаю.

Макросы под заказ и готовый пакет - mtdmacro.ru

18

Re: замена символа абзаца в сносках (2007 Word)

кусочек... (на нем не делал, а делал на всем док.)

Post's attachments

1.docx 41.23 Кб, 10 скачиваний с 2012-12-06 

You don't have the permssions to download the attachments of this post.

19

Re: замена символа абзаца в сносках (2007 Word)

ах нет, "рвет" 39

20

Re: замена символа абзаца в сносках (2007 Word)

Ясненько. Проблему поиску создает знак сноски. Об этом и ветка. Его надо обойти при поиске. Для этого я и советовал для поля "Найти" задать формат "Шрифт > Не надстрочный". Тогда все работает. Попробуйте все советы ответа № 10.

Макросы под заказ и готовый пакет - mtdmacro.ru

21

Re: замена символа абзаца в сносках (2007 Word)

спасибо!

22

Re: замена символа абзаца в сносках (2007 Word)

еще бы исключить вставку точки там где она есть, но думаю поиском не получиться а только так как viter.alex описал