Статьи из блога

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

Евгений Родыгин прислал ссылку на страничку с макросами для редактора Word:

 

Прибамбасы для MS Word

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

Алексей Гончаров, автор страницы, предлагает использовать в своей деятельности следующие макросы:

  • Выделение одного слова курсивом
  • Выделение одного слова полужирным
  • Удаление последнего символа в строке
  • Объединение нескольких абзацев в один
  • Выбор языка для проверки правописания
  • Копирование фрагмента текста из одного документа в другой
  • Сравнение слов в двух документах

twitter.com facebook.com vkontakte.ru odnoklassniki.ru mail.ru ya.ru rutvit.ru myspace.com technorati.com digg.com friendfeed.com pikabu.ru blogger.com liveinternet.ru livejournal.ru memori.ru google.com bobrdobr.ru mister-wong.ru yahoo.com yandex.ru del.icio.us

Еще записи по вопросам использования Microsoft Word:

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

  1. Luna
    24.12.2008 в 22:36 | #1

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

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

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

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

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

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

  3. 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, начиная с символа: [

Оставьте комментарий!

(обязательно)

^ Наверх