1

Тема: Удалить лишние точки и номера страницы

При сканировании оглавления книги или при копировании через буфер обмена Adobe Acrobat в Word в конце каждой строки идут точки, а затем номер страницы.
Пример
1. Глава один……………………...10
2. Глава один, два, три ………16
3. Глава четыре ………………….18
Необходимо получить следующий результат
1. Глава один
2. Глава один, два, три
3. Глава четыре
Видео с выполняемыми действиями внешняя ссылка

Post's attachments

Варианты с описанием часто встречающихся проблем.docx 21.09 Кб, 5 скачиваний с 2018-06-05 

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

2

Re: Удалить лишние точки и номера страницы

Gregory пишет:

При сканировании оглавления книги или при копировании через буфер обмена Adobe Acrobat в Word в конце каждой строки идут точки, а затем номер страницы.
Пример
1. Глава один……………………...10
2. Глава один, два, три ………16
3. Глава четыре ………………….18
Необходимо получить следующий результат
1. Глава один
2. Глава один, два, три
3. Глава четыре
Видео с выполняемыми действиями внешняя ссылка

Тоже не совсем понял, как вам надо. На видео нет примера сочетания пробела и точки. Но предварительно набросал вот этот макрос.

Sub Зачистка()
Dim oDoc As Document
Set oDoc = ActiveDocument
For i = 1 To 4
Selection.HomeKey Unit:=wdStory
Select Case i
Case 1: sText = ChrW(8230) & "{2;}"
Case 2: sText = "(^0032^0046){2;}"
Case 3: sText = "^0046{2;}"
Case 4: sText = "^0032{2;}"
End Select
With Selection.Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Wrap = wdFindContinue
    .Forward = True
    .MatchWildcards = True
    .Text = sText
    Do While .Execute = True
        Do While IsNumeric(Selection.Range.Characters.Last.Next) = True Or Selection.Range.Characters.Last.Next = Chr(46) Or Selection.Range.Characters.Last.Next = Chr(32)
            Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
        Loop
        Selection.Range = Chr(32)
    Loop
End With
Next i
End Sub
Спасибо можно перевести на WebMoney-кошелёк R378231864568 или на Яндекс-деньги 410015093172871

3

Re: Удалить лишние точки и номера страницы

Почему в этом файле макрос не работает?

Post's attachments

12-06.docx 16.74 Кб, 2 скачиваний с 2018-06-12 

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

4

Re: Удалить лишние точки и номера страницы

Gregory пишет:

Почему в этом файле макрос не работает?

Потому что в примерах было 2 и более знака трёх точек. Под это условие и писался макрос. Вот поправил:

Sub Clearing()
Dim oDoc As Document
Set oDoc = ActiveDocument
For i = 1 To 5
Selection.HomeKey Unit:=wdStory
Select Case i
Case 1: sText = ChrW(8230) & "{2;}"
Case 2: sText = ChrW(8230)
Case 3: sText = "(^0032^0046){2;}"
Case 4: sText = "^0046{2;}"
Case 5: sText = "^0032{2;}"
End Select
With Selection.Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Wrap = wdFindContinue
    .Forward = True
    .MatchWildcards = True
    .Text = sText
    Do While .Execute = True
        Do While IsNumeric(Selection.Range.Characters.Last.Next) = True Or Selection.Range.Characters.Last.Next = Chr(46) Or Selection.Range.Characters.Last.Next = Chr(32)
            Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
        Loop
        Selection.Range = Chr(32)
    Loop
End With
Next i
End Sub
Спасибо можно перевести на WebMoney-кошелёк R378231864568 или на Яндекс-деньги 410015093172871