In this article, we will show you 3 methods to apply same style to all text boxes in your Word document.
Have it ever occurred to you that how can you unite the style of all text boxes in a document? Here today, we will offer you 3 ways to do so without manually set style for each text box.
Method 1: Save a Text Box to Gallery
You can unite the style of text boxes by starting dealing with the first one.
- First of all, insert a text box into document.
- Next apply style for the box. For example, set the shape outline, shape fill, font color, etc.
- Then click on the outline of text box to select it.
- Click “Insert” tab and click “Text Box”.
- Now choose “Save Selection to Text Box Gallery”.
- You will have the “Create New Building Block” dialog box open. Enter the name in the first text box.
- Then click the drop-down button on “Category”.
- In “Create New Category” box, input the new category name.
- Lastly, click “OK” in both boxes.
The next time you need a text box, just go to click “Insert” and “Text Box”. Then scroll down to select your customized text box.
Method 2: Apply Style to All Text Boxes on One Page
This method works best when the document is of a few pages, and there are not so many text boxes to handle.
- First of all, click on one text box to trigger the “Format” tab.
- Then click “Selection Pane” in “Arrange” group.
- In the window open on the right side, use “Ctrl” to select all text boxes on a specific page.
- Now you can set the same style to all text boxes selected. Repeat above steps if you have multiple text boxes on different pages.
Method 3: Run Word Macro
In case you need to handle all existing text boxes in a document, you’d better choose the macro way to help save time.
- First and foremost, press “Alt+ F11” to open VBA editor in Word.
- Then click “Normal” and then “Insert”.
- Next choose “Module” on the drop-down menu.
- Double click the module to open it and paste the following codes:
Sub SetTextBoxStyle() Dim objTextBox As Shape Dim objDoc As Document Application.ScreenUpdating = False Set objDoc = ActiveDocument For Each objTextBox In objDoc.Shapes ' Set line style. With objTextBox.Line .Visible = msoTrue .foreColor.RGB = RGB(0, 0, 0) End With ' Set fill color. objTextBox.Fill.foreColor.RGB = RGB(198, 217, 241) ' Set text color. objTextBox.TextFrame.TextRange.Font.TextColor.RGB = RGB(0, 0, 0) ' Set text size. objTextBox.TextFrame.TextRange.Font.Size = 12 ' Set font face. objTextBox.TextFrame.TextRange.Font.Name = "Calibri" ' Align text. objTextBox.TextFrame.TextRange.ParagraphFormat.Alignment = wdAlignParagraphJustify Next objTextBox Application.ScreenUpdating = True End Sub
- Last but not the least, click “Run” or hit “F5” to execute codes.
Certainly, you can alter the codes to meet your particular needs.
Cope with Word Errors
Errors can occur anytime. They are not unfixable. It is the way you handle it that matters most. Once you notice a doc damage, you should obtain a repairing tool as soon as possible. Or some further damages can happen to your file, and you will risk losing it forever.
Author Introduction:
Vera Chen is a data recovery expert in DataNumen, Inc., which is the world leader in data recovery technologies, including xlsx repair and pdf repair software products. For more information visit www.datanumen.com