Комментариев: 5

1. 

   Luna
   24.12.2008 в 22:36 | #1

   В пятом макросе - интересная реализация автопрокрутки документа во время исполнения кода.

   Надо взять на заметку!
2. 

   Алкоголик
   23.03.2009 в 05:57 | #2

   Здраствуйте.

   у меня при написании макроса в Word XP SP3 возникла проблема при использовании функций для работы с датой.

   Ругается что не находит библиотеку...
3. 

   Комментатор 88
   09.09.2011 в 08:06 | #3

   http://www.tekct.ru/macro2.htm Та ссылка уже не работает.
4. 

   Аноним
   20.11.2011 в 15:07 | #4

   Вопрос по поводу макроса "Объединение нескольких абзацев в один".

   Очень часто при данной операции требуется добавить пробел к последнему слову каждого абзаца, иначе после работы данного макроса в местах "склейки" абзацев слова оказываются также склеенными без пробелов. Что для этого нужно добавить в данный макрос:

   Sub Only_1_Paragraph()

   'Объединение нескольких абзацев в один

   p = 0

   n = Selection.Characters.Count

   For i = n To 1 Step -1

   If Asc(Selection.Characters(i)) = 13 Then

   p = p + 1

   If p > 1 Then

   Selection.Characters(i).Delete

   End If

   End If

   Next i

   End Sub
5. 

   Аноним
   20.11.2011 в 23:24 | #5

   Вопрос по поводу макроса "Объединение нескольких абзацев в один".

   Очень часто при данной операции требуется добавить пробел к последнему слову каждого абзаца, иначе после работы данного макроса в местах "склейки" абзацев слова оказываются также склеенными без пробелов. Что для этого нужно добавить в данный макрос:

   Sub Only_1_Paragraph()
   'Объединение нескольких абзацев в один
       p = 0
       n = Selection.Characters.Count
       For i = n To 1 Step -1
           If Asc(Selection.Characters(i)) = 13 Then
           p = p + 1
              If p > 1 Then
               Selection.Characters(i).Delete
               End If
       End If
       Next i
   End Sub