Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
При сканировании оглавления книги или при копировании через буфер обмена Adobe Acrobat в Word в конце каждой строки идут точки, а затем номер страницы.
Пример
1. Глава один……………………...10
2. Глава один, два, три ………16
3. Глава четыре ………………….18
Необходимо получить следующий результат
1. Глава один
2. Глава один, два, три
3. Глава четыре
Видео с выполняемыми действиями внешняя ссылка
При сканировании оглавления книги или при копировании через буфер обмена 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Почему в этом файле макрос не работает?
Почему в этом файле макрос не работает?
Потому что в примерах было 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Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться