Лишние символы "снос строки" в сноске

[pdoronin]

Часто приходится составлять огромные документы из разных источников.
Иногда в сноске появляются нередактируемые символы "снос строки", а уже только после них отображаются сноски к тексту.
Подскажите, пожалуйста, как это вылечить?
Спасибо!

[Busine2009]

Как говорится, документ в студию.
Так тяжело сориентироваться, о чём речь.
Такого термина "сноса строки" не знаю. Знаю "Разрыв строки".

[Busine2009]

Это делается следующим способом без средств программирования и больших познаний.
1. Вид - Обычный.
2. Вид - Сноски.
3. Выделяете все сноски (Ctrl + A).
4. Вызываешь Диалоговое окно Найти и заменить.
5. В поле Найди вставляешь Разрыв строки.
6. В поле Заменить - пробел.
7. Заменить все. В оставшейся части документа разрывы строк не удаляй.
У тебя в некоторых случаях появляются двойные пробелы. Если хочешь их можно превратить в одинарные. Для этого:
1. Выдели все сноски.
2. Найти и заменить.
3. В поле Найти вводишь знак пробела.
4. Ставишь галочку Подстановочные знаки.
5. Ищешь Число вхождений.
6. Перед точкой с запятой вводишь 2.
7. В поле Заменить вводишь пробел.

У меня есть, правда, макросы, но такие не очень, можешь их использовать.
Удаление Разрывов строк:

Sub main()
'Замена Разрыва Строки на пробел
With Selection.Find
        .ClearFormatting
        .Text = "^l"
        .Replacement.Text = " "
        .Forward = True
        .Wrap = wdFindStop
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
        .Execute Replace:=wdReplaceAll
 End With
 Application.Browser.Target = wdBrowsePage
 End Sub

А вот код для удаления пробелов в количестве более 1 штуки:

Sub main()
'Удаление лишних пробелов
With Selection.Find
        .ClearFormatting
        .Text = " {2;}"
        .Replacement.Text = " "
        .Forward = True
        .Wrap = wdFindStop
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = True
        .MatchSoundsLike = False
        .MatchAllWordForms = False
        .Execute Replace:=wdReplaceAll
End With
With Selection.Find
        .Text = "^s{2;}"
        .Replacement.Text = " "
        .Forward = True
        .Wrap = wdFindStop
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = True
        .MatchSoundsLike = False
        .MatchAllWordForms = False
        .Execute Replace:=wdReplaceAll
End With
Application.Browser.Target = wdBrowsePage
End Sub

Выделяешь сноски и применяешь эти макросы.

Вот ещё один макрос. Его можешь применять, не выделяя сноски. Только этот макрос не заменяет 2 пробела, если один из них бывший Разрыв строки.

Sub main()
'Удаление во всех сносках Разрыва строки и больше одного пробела
Dim x As Footnote
For Each x In ActiveDocument.Footnotes
With x.Range.Find
        .Text = "^l"
        .Replacement.Text = " "
        .Forward = True
        .Wrap = wdFindStop
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
        .Execute Replace:=wdReplaceAll
End With
Next
For Each x In ActiveDocument.Footnotes
With x.Range.Find
        .Text = " {2;}"
        .Replacement.Text = " "
        .Forward = True
        .Wrap = wdFindStop
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = True
        .MatchSoundsLike = False
        .MatchAllWordForms = False
        .Execute Replace:=wdReplaceAll
End With
Next
For Each x In ActiveDocument.Footnotes
With x.Range.Find
         .Text = "^s{2;}"
        .Replacement.Text = " "
        .Forward = True
        .Wrap = wdFindStop
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = True
        .MatchSoundsLike = False
        .MatchAllWordForms = False
        .Execute Replace:=wdReplaceAll
End With
Next
End Sub

[garik64]

Сообщение от Busine2009

Только этот макрос не заменяет 2 пробела, если один из них бывший Разрыв строки.

А почему не менять сразу "([^32^l])@" на пробел?

[Busine2009]

Вот модифицированный макрос:

Sub main()
'Удаление во всех сносках Разрыва строки и больше одного пробела
Dim x As Footnote
For Each x In ActiveDocument.Footnotes
With x.Range.Find
        .Text = "([^32^l])@"
        .Replacement.Text = " "
        .Forward = True
        .Wrap = wdFindStop
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = True
        .MatchSoundsLike = False
        .MatchAllWordForms = False
        .Execute Replace:=wdReplaceAll
End With
Next
End Sub

Только он тоже не справляется с 2 пробелами, один из которых уже был в документе, а второй - это бывший Разрыв строки

Или вот так ещё короче:

Sub main()
'Удаление во всех сносках Разрыва строки и больше одного пробела
Dim x As Footnote
For Each x In ActiveDocument.Footnotes
With x.Range.Find
        .Text = "([^32^l])@"
        .Replacement.Text = " "
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = True
        .MatchSoundsLike = False
        .MatchAllWordForms = False
        .Execute Replace:=wdReplaceAll
End With
Next
End Sub

[Busine2009]

"([^32^l])@" - это не удаляет двойные неразрывные пробелы.

[garik64]

Сообщение от Busine2009

"([^32^l])@" - это не удаляет двойные неразрывные пробелы.

Значит, вместо ^32 надо использовать ^w - ищет любое количество любых пробелов, т.е. простых, неразрывных и табуляцию. Загвоздка в том, что ^w нельзя использовать с подстановочными знаками. Следовательно, опять надо делать в два прохода: ^w менять на заведомо невозможную последовательность - ЩЪКТРНЬЦ, например , ^l на неё же, а потом любое количество этого непроизносимого -на простой пробел.

[Wassail]

Проблема следующая.
В большом документе word 2007 (docx) в разделе сносок между линией начала сносок внизу страницы и самими сносками вдруг появились три лишних строки, знаки абзаца. Сносок много и поехала крыша с разбивкой на страницы, смещением разделов, нумерацией и т.д.
Да, при создании нового документа между этой граничной линией и сносками лишних строк не появляется, всё нормально. Как ни пытался, не могу убрать строки выше текста сносок (интервал перед стоит равным 0!). Что делать? Может кто знает? Буду благодарен за совет.

[viter.alex]

Скриншот приложите и опишите как Вы пытались удалить эти лишние абзацы. Попробуйте перейти к сноскам и удалить два абзаца подряд через поиск и замену:
Найти: ^p^p

[Wassail]

Сообщение от viter.alex

Скриншот приложите и опишите как Вы пытались удалить эти лишние абзацы. Попробуйте перейти к сноскам и удалить два абзаца подряд через поиск и замену:
Найти: ^p^p

Нет замена не работает - щелкаю по сноске, вызываю диалог спец заменитель - не заменяет (сообщает искомый элемент не найден). Да, в доке почти тыща страниц.
Вот скриншоты того что вдруг стало (первый) и и как должно быть и было вначале (второй):