Med Microsoft Word kan du tillämpa formateringen påstora utdrag av text enmasse. Du kan kopiera formateringen som tillämpas på en bit text och tillämpa den på hela stycken och avsnitt med bara några klick. Tyvärr gäller inte samma sak för tabeller. Om du vill ändra formatet för alla tabeller i ett visst dokument måste du välja var och en för sig och ändra formatet. Alternativet är att använda ett makro för att göra det.
Hitta tabellstil
Innan du kan skapa makro måste du hittanamnet på tabellstil som du vill använda. Det här är ganska enkelt. Öppna Word-dokumentet som du vill ändra tabellformat för. Klicka inuti en tabell och gå sedan till fliken Design på fliken Tabellverktyg.
Håll muspekaren över tabellformen som du vill använda på alla tabeller, och ett verktygstips berättar vad det heter. Skriv ner namnet så är du redo att skapa makro.
Tabellstil makro
Aktivera fliken Utvecklare i Word genom att gå till Arkiv> Alternativ> Anpassa band. Aktivera verktygsfältet för utvecklare och återgå sedan till ditt dokument.
På fliken Utvecklare och klicka på Makron. Ge det följande namn;
ApplyTableStyle
Klicka på skapa och ange följande i kodenmen du måste redigera den här raden: tbl.Style = “Medium Shading 2 - Accent 1”. Byt ut biten i citaten med namnet på tabellstilen du kopierade i föregående steg. Ta inte bort citattecken från koden. Ange bara namnet på tabellformen och kör den.
Sub ApplyTableStyle() Dim tbl As Table For Each tbl In ActiveDocument.Tables tbl.Style = "Medium Shading 2 - Accent 1" Next End Sub
Det är allt du behöver göra. När makroet körs kommer det automatiskt att ändra stilen för alla tabeller. Om du någonsin behöver använda en annan tabellstil, kommer du att behöva ta bort detta makro eftersom det proaktivt ändrar stilen för alla tabeller till den du angav i makroen.
Om du någonsin behöver ändra vilken stil makrogäller, måste du redigera koden och ersätta namnet på den stil du vill använda. Makroen tillämpar stilar på alla aktuella och alla nya tabeller i dokumentet. Detta skulle uppenbarligen vara enklare om Microsoft Word hade ett inbyggt alternativ för att göra detta. Det verkar som en udda brist för appen.
kommentarer