Java Training in Chennai
Java Training in Coimbatore
Java Training in Bangalore
Kutools for Excel is a powerful add-in that frees you from performing time-consuming operations in Excel, such as combine sheets quickly, merge cells without losing data, paste to only visible cells, count cells by color and so on. 300+ powerful features / functions for Excel 2019, 2016, 2013, 2010, 2007 or Office 365!
It enables tabbed browsing, editing, and managing of Microsoft Office applications. You can open multiple documents / files in a single tabbed window, such as using the browser IE 8/9/10, Firefox, and Google Chrome. It's compatible with Office 2019, 2016, 2013, 2010, 2007, 2003 or Office 365. Demo
Kutools for Outlook is a powerful add-in that frees you from time-consuming operations which majority of Outlook users has to perform daily! It can save your time from using Microsoft Outlook 2019, 2016, 2013, 2010 or Office 365!
Kutools for Word is a powerful add-in that frees you from time-consuming operations which majority of Word users have to perform daily! It can save your time from using Microsoft Word / Office 2019, 2016, 2013, 2010, 2007, 2003 or Office 365!
Restores the old look and menus of Office 2003 to Microsoft Office 2019, 2016, 2013, 2010, 2007 or Office 365. Don’t lose time in finding commands on the new Ribbon. Easy to deploy to all computers in enterprises and organizations.
This article is talking about changing the font and font size in text boxes in current document or documents in a specified folder. Please try the VBA method in the article.
Change the font and font size in text boxes in current document
Change the font and font size in text boxes of all documents in a folder
For the text boxes you will change the font and font size in current document, please apply the below VBA code to solve the problem.
1. Press the Alt + F11 keys to open the Microsoft Visual Basic for Applications window.
2. In the Microsoft Visual Basic for Applications window, click Insert > Module, and then copy the following code into the Module window.
VBA code: Change the font and font size in all text boxes in current document
Sub FormatTextsInTextBoxes() 'Updated by ExtendOffice 20181128 Dim I As Long Dim xShape As Shape Dim xDoc As Document Set xDoc = ActiveDocument On Error Resume Next For Each xShape In xDoc.Shapes xShape.Select If xShape.GroupItems Is Nothing Then With xShape.TextFrame.TextRange.Font .Name = "Arial" .Size = 20 End With GoTo LblExit End If For I = 1 To xShape.GroupItems.Count With xShape.GroupItems(I).TextFrame.TextRange.Font .Name = "Arial" .Size = 20 End With Next LblExit: Next End Sub
Note: In the code, “Arial” and “20” is the specified font and font size in my case. You can change them based on your own needs.
3. Press the F5 key to run the code. Then all texts’ font and font size in the text boxes are changed to the specified font and font size. See screenshot:
For changing text boxes’ font and font size in bulk in multiple Word documents, you need to apply the below VBA code.
1. Please collect all target documents that contain text boxes you will change the font and font size under the same folder.
2. In an opening Word document, press the Alt + F11 keys to open the Microsoft Visual Basic for Applications window.
3. In the Microsoft Visual Basic for Applications window, click Insert > Module, and then copy the following code into the Module window.
VBA code: Change the font and font size in text boxes of multiple documents
Sub FormatTextsInTextBoxesInMultiDoc() 'Updated by ExtendOffice 20181128 Dim I As Long Dim xShape As Shape Dim xDlg As FileDialog Dim xFolder As Variant Dim xFileStr As String On Error Resume Next Set xDlg = Application.FileDialog(msoFileDialogFolderPicker) If xDlg.Show = -1 Then xFolder = xDlg.SelectedItems(1) + "\" xFileStr = Dir(xFolder & "*.doc", vbNormal) While xFileStr <> "" Documents.Open xFolder & xFileStr For Each xShape In ActiveDocument.Shapes xShape.Select If xShape.GroupItems Is Nothing Then With xShape.TextFrame.TextRange.Font .Name = "Arial" .Size = 20 End With GoTo LblExit End If For I = 1 To xShape.GroupItems.Count With xShape.GroupItems(I).TextFrame.TextRange.Font .Name = "Arial" .Size = 20 End With Next LblExit: Next ActiveDocument.Save ActiveDocument.Close xFileStr = Dir() Wend End If End Sub
4. Press the F5 key to run the code. In the opening Browse window, select the folder (contains documents you will change font and font size in the text boxes) and click the OK button.
Then all text boxes’ font and font size of documents in selected folder are changed to the specified font and font size.