Како променити стил за све табеле у програму Мицрософт Ворд

Мицрософт Ворд омогућава вам да примените обликовање навелике исечке текста енмассе. Обликовање примењено на један бит текста можете копирати и применити на читаве одломке и одељке са само неколико кликова. Нажалост, исто не важи за таблице. Ако желите да промените стил за све табеле у одређеном документу, мораћете да одаберете сваку појединачно и промените стил. Алтернатива је употреба макронаредбе да бисте то учинили.

Пронађи стил табеле

Пре него што креирате макро, морате да пронађетеназив стила табеле који желите да примените. Ово је прилично једноставно. Отворите Ворд документ за који желите да промените стилове табеле. Кликните унутар табеле, а затим идите на картицу Дизајн на картици Алати за таблицу.

Задржите показивач миша изнад стила табеле који желите да примените на све табеле, а врх алата ће вам рећи како се зове. Запишите име и спремни сте за креирање макроа.

Макро стила таблице

Омогућите картицу за програмере у програму Ворд тако што ћете отворити Датотека> Опције> Прилагодити траку. Омогућите алатну траку за програмере, а затим се вратите на свој документ.

На картици Програмер и кликните Макрои. Дајте му следеће име;

ApplyTableStyle

Кликните на Креирај и унесите следеће у кодкутија, међутим, морате да уредите ову линију: тбл.Стиле = „Средње сенчење 2 - акцент 1“. Замените бит унутар наводника са именом имена табеле коју сте копирали у претходном кораку. Не уклањајте наводнике из кода. Једноставно унесите назив стила табеле и покрените је.

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

То је све што мораш да урадиш. Једном када се макро покрене, аутоматски ће променити стил за све табеле. Ако ћете икада морати да користите другачији стил табеле, мораћете да уклоните овај макроналог јер он проактивно мења стил свих табела у онај који сте навели у макронаредби.

Ако икад требате да промените који стил макронаредбесе примењује, мораћете да измените код и замените име стила који желите да примените. Макронаредба примењује стилове на све тренутне и све нове табеле у документу. Ово би очигледно било лакше да је Мицрософт Ворд имао уграђену могућност да то уради. Чини се као чудан недостатак за апликацију.