Полезные макросы для Word

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

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
6. 

   Аноним
   14.03.2012 в 23:56 | #6

   помогите решить задачу. просто понятие не имею как. а?

   Создать в ворд документ с использованием полей автоматизации, обслуживающий следующую ситуацию: для работников, проводящих за компьютером более 6 часов в сутки, законодательством предусмотрен дополнительный часовой перерыв и 12% надбавка к заработной плате. В личных делах сотрудников сформировать выражения, автоматически добавляющие данные о льготах для тех сотрудников, у которых в поле Машинное время указано значение не менее 6 часов в сутки.
7. 

   Админ
   15.03.2012 в 23:13 | #7

   Обратитесь на наш форум, там помогут.
8. 

   Ярослав
   27.10.2018 в 16:36 | #8

   Не подскажете,можно ли созданный макрос в ворде сохранить как отдельный файл? Если да,то как?
9. 

   Аноним
   05.11.2020 в 14:01 | #9

   ИМЕЕМ ТЕКСТ СО СЛЕДУЮЩЕЙ СТРУКТУРОЙ:

   Абзац (на 99% состоящий из одной строки):

   1) Слово / словосочетание / предложение на КИРИЛЛИЦЕ

   2) Слово / словосочетание / предложение на ЛАТИНИЦЕ

   3) Транскрипция ( пример: [praeɡu] )

   Нужен МАКРОС, который автоматически, после выделения всего текста документа, вставит символ табуляции / абзаца между указанными тремя элементами. Т.е., начиная от первого символа на латинице - нажатие на клавишу TAB, затем другое нажатие на TAB, начиная с символа: [