1 Тема от serj shelest

  • serj shelest
  • рядовой
  • Неактивен
  • Зарегистрирован: 03.01.2014
  • Сообщений: 3

Тема: подскажите,как убрать пробелы вот из этого документа?

Выдрал страничку из PDF документа,естественно со знаками переноса.
Пробовал,что тут советуют,но чего то не вышло,может дело в моих кривых ручках?

2 Ответ от serj shelest

  • serj shelest
  • рядовой
  • Неактивен
  • Зарегистрирован: 03.01.2014
  • Сообщений: 3

Re: подскажите,как убрать пробелы вот из этого документа?

что то файл не загрузился в первый раз. smile

Post's attachments

кривые переносы.txt 2.43 Кб, 7 скачиваний с 2014-01-03 

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

3 Ответ от shanemac51

  • shanemac51
  • генерал-полковник
  • Неактивен
  • Зарегистрирован: 05.03.2012
  • Сообщений: 467
  • Поблагодарили: 119
  • За сообщение: 1

Re: подскажите,как убрать пробелы вот из этого документа?

Sub mrepl140103_2323()
''замена переносов
mrepl "-^p", ""
''замена разрывов строки на редкий символ-обратная кавычка
mrepl "^p", "`"
''возврат типичных разрывов строки
mrepl ".`", ".^p"
mrepl "!`", "!^p"
mrepl "?`", "?^p"
mrepl ";`", ";^p"
''замена всех остальных на пробел
mrepl "`", " "
''в 90 случаях из 100 нормальный результат
''---------------но увы-------------
''не все так просто, особенно на стыке страниц и разрыве разделов/колонок
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
End Sub
Sub mrepl(n1z, n2z)
Selection.Find.ClearFormatting
 Selection.Find.Replacement.ClearFormatting
 With Selection.Find
  .Text = n1z
  .Replacement.Text = n2z
  .Forward = True
  .Wrap = wdFindContinue
  .Format = False
  .MatchCase = False
  .MatchWholeWord = False
  .MatchByte = False
  .MatchWildcards = False
  .MatchSoundsLike = False
  .MatchAllWordForms = False
 End With
 Selection.Find.Execute Replace:=wdReplaceAll
End Sub

4 Ответ от serj shelest

  • serj shelest
  • рядовой
  • Неактивен
  • Зарегистрирован: 03.01.2014
  • Сообщений: 3

Re: подскажите,как убрать пробелы вот из этого документа?

спасибо большое...
все получилось smile
пользовался word 2003