VBA macroses for MS Word. Макросы для Word.
Файл macroses.bas можно импортировать в Word в режиме редактирования макросов.
Если используется русскоязычная версия Windows, то необходимо заменить имя таблицы в строках .Style = "Table Grid" на .Style = "Сетка таблицы"
| # | Описание | Функционал |
|---|---|---|
| 1 | Change_some_symbols | заменяет некоторые символы: short dash to medium dash if it's between spaces, long dash to medium dash, inseparable space to normal space |
| 2 | Change_type_of_quotes | заменяет тип кавычек (change "" to «», change “” to «») |
| 3 | Format_Lists | для форматирования всех списков (задевает списки всех уровней). Параметры параграфа для элементов списка задаются в стиле 'List1' |
| 4 | Format_Tables_old | используется для форматирования всех таблиц в документе. Включает решетку таблицы (или приводит к простому виду), шрифт Courier New 10. Параметры задаются в функции Change_Table_Formatting_old(tbl As Word.Table). [если документ большой и таблиц много, то процесс займет значительное время] |
| 5 | Format_Tables_in_Tables | для форматирования таблиц внутри таблиц (таблицы второго уровня) и таблиц первого уровня. Для работы необходимы функции Change_Table_Type(), в ней задаются параметры основных таблиц, Change_Table_Formatting_CodeBox() - задает параметры таблицы для блоков кода (1 строка, 1 столбец). Также задает размеры некоторых таблиц |
| 6 | InsertTableCode | вставляет ячейку таблицы с шрифтом Courier New 10. Можно сделать активацию по нажатию клавиш, например Cmd+Alt+T в MacOS |
| 7 | Picture_Center_Border | выравнивает рисунки по центру и вставляет рамку, делает интервал одинарным, сверху и снизу по 6 pt |
| 8 | Remove_Hyperlinks | удаляет все ссылки из документа (ссылки остаются только в виде текста) |
| 9 | TableSizeCorrect | для окончательной коррекции размера таблицы. Параметры в FuncTableSizeCorrect(). Размеры таблицы заданы для документа с полями: верхнее и нижнее – 1,5 см.; левое – 2 см.; правое – 1 см |
| 10 | Footnote_add | вставляет сноски в Word. Для этого в тексте указываем ссылку в таком виде: [footnote:<link>]. Указанная ссылка перемещается в сноску, из текста данная строка удаляется. |