See it in Action!Watch this video to see this macro in action.
The CodeHere is the code behind this macro.
'Leverage & Lean "Less Clicks, More Results" Sub QuickFormat() ' Means variable is in use Dim objItem As Object ' Dim objApp As Object ' 'Reference the current Object Set objApp = Word.Application Set objItem = objApp.Selection.Document.Content 'If nothing is selected format the entire document. If Word.Selection.Type <> 2 Then ActiveDocument.Range.Select End If 'If something is selected format that selection. 'Formatting Options With Selection.Font .Color = RGB(0, 0, 0) .Size = 12 .Bold = False .Italic = False .Underline = False .Name = "Times New Roman" End With 'Jump to the beginning of the document and Exit Sub Selection.HomeKey Unit:=wdStory Set objItem = Nothing End Sub 'Stay Awesome!
Macro InstructionsWatch this video to get started using this macro.
CustomizationThese lines of code can be customized to personalize this macro.
19 .Color = RGB(0, 0, 0) ‘Color is set to Black
20 .Size = 12 ‘Size is set to 12
21 .Bold = False ‘Bold is set to False. Set to True for Bold text.
22 .Italic = False ‘Italic is set to False. Set to True for Italic text.
23 .Underline = False ‘Underline is set to False. Set to True for Underline text.
24 .Name = “Times New Roman” ‘Change Font here. (“Calibri”, “Arial”, etc.)