Як змінити стиль для всіх таблиць в Microsoft Word

Microsoft Word дозволяє застосувати форматування довеликі фрагменти перекладу тексту. Ви можете скопіювати форматування, застосоване до одного біта тексту, і застосувати його до цілих абзаців та розділів лише кількома клацаннями миші. На жаль, те саме не стосується таблиць. Якщо ви хочете змінити стиль для всіх таблиць у конкретному документі, вам доведеться вибирати кожну окремо та змінювати стиль. Альтернативою є використання макросу для цього.

Знайти стиль таблиці

Перш ніж створити макрос, потрібно знайтиназва стилю таблиці, який ви хочете застосувати. Це досить просто. Відкрийте документ Word, для якого потрібно змінити стилі таблиці. Клацніть всередині таблиці та перейдіть на вкладку Дизайн на вкладці Інструменти таблиці.

Наведіть курсор миші на стиль таблиці, який ви хочете застосувати до всіх таблиць, а підказка інструменту підкаже, як називається. Запишіть ім’я, і ви готові створити макрос.

Макрос стиль таблиці

Увімкніть вкладку "Розробник" у Word, перейшовши у меню Файл> Параметри> Налаштувати стрічку. Увімкніть панель інструментів розробника, а потім поверніться до документа.

На вкладці "Розробник" натисніть "Макроси". Дайте йому таку назву;

ApplyTableStyle

Клацніть створити та введіть у код наступнеполе, однак, вам потрібно відредагувати цей рядок: tbl.Style = "Середнє затінення 2 - наголос 1". Замініть біт всередині лапок на ім'я стилю таблиці, яке ви скопіювали на попередньому кроці. Не видаляйте лапки з коду. Просто введіть назву стилю таблиці та запустіть її.

Sub ApplyTableStyle()
Dim tbl As Table
For Each tbl In ActiveDocument.Tables
tbl.Style = "Medium Shading 2 - Accent 1"
Next
End Sub

Це все, що вам потрібно зробити. Як тільки макрос запуститься, він автоматично змінить стиль для всіх таблиць. Якщо вам коли-небудь потрібно використовувати інший стиль таблиці, вам потрібно буде видалити цей макрос, оскільки він попередньо змінює стиль усіх таблиць на той, який ви вказали в макросі.

Якщо вам коли-небудь потрібно змінити, який стиль макросузастосовується, вам потрібно буде відредагувати код і замінити ім'я стилю, який ви хочете застосувати. Макрос застосовує стилі до всіх поточних та всіх нових таблиць у документі. Це, очевидно, було б простіше, якби в Microsoft Word був вбудований варіант для цього. Це здається дивним недоліком програми.