When you compose an email, you may want to change the font of the specific text to highlight the specific text. This article will teach you how to quickly accomplish it by 2 means.
In order to highlight important information when composing an email, at times, you may hope to make specific text stand out by showing it in the different fonts. Here we will expose 2 quick methods to you.
Method 1: Replace the Font of Specific Text via “Replace” Feature
- At the very outset, compose an email as usual.
- Then turn to “Format Text” tab.
- Subsequently, click the “Replace” button in “Editing” group.
- Next in the popup dialog box of “Find and Replace”, you can enter the texts whose font you want to change in “Find what” and “Replace with”.
- And then click “More”.
- Now click the “Format” button at bottom and choose “Font”.
- After that, in the next popup dialog box, specify the font style.
- Eventually click several “OK” to start “find” and “replace”.
Method 2: Replace the Font of Specific Text via Outlook VBA
- In the first place, you should launch your Outlook program properly.
- After getting into the main Outlook window, press “Alt + F11” key shortcuts.
- Then you will enter Outlook VBA editor successfully.
- Next you need to open a module which is not in use or directly insert a new module.
- Subsequently, you ought to copy and paste the following VBA codes into the module.
Sub ChangeFontStyleSpecificTextsinanEmail() Dim objMail As Outlook.MailItem Dim objInspector As Outlook.Inspector Dim objWordApp As Word.Application Dim objDocument As Word.Document Dim objWordSelection As Word.Selection Set objMail = Outlook.Application.ActiveInspector.CurrentItem 'Ensure the current item is an email If TypeOf objMail Is MailItem Then 'Access the word editor for Outlook email Set objInspector = objMail.GetInspector If objInspector.EditorType = olEditorWord Then Set objDocument = objInspector.WordEditor Set objWordApp = objDocument.Application Set objWordSelection = objWordApp.Selection With objWordSelection.Find 'Specify what texts to be searched .Text = InputBox("Enter the specific texts whose font style you want to change.(Case Sensitive)") .Forward = True .Wrap = wdFindContinue .MatchCase = True End With objWordSelection.Find.ClearFormatting objWordSelection.Find.Replacement.ClearFormatting 'Specify the font style of the specific texts 'You can change the font style as per your needs With objWordSelection.Find.Replacement.Font .Name = "Times New Roman" .Color = wdColorRed .Size = 18 .Bold = True End With 'Excute the actions of "find" and "change" objWordSelection.Find.Execute Replace:=wdReplaceAll End If End If End Sub
- After that, you can close the VBA editor window.
- Later you should add the new macro to the Quick Access Toolbar of Message window, instead of the main Outlook window.
- Finally you can have a try.
- Firstly, open a new email and compose the email as usual.
- Then click the according macro button in the Quick Access Toolbar.
- Next, you will see an input box, in which you need to enter the specific texts whose font style you want to change.
- After that, you can press “Enter” key button.
- Finally, all the specific texts will be changed to the specific font style that you’ve preset in the VBA codes.
Make Efforts to Avert PST Corruption
Since Outlook is error prone, you should spend a great amount of efforts to avoid PST damage. The most effective way to prevent Outlook data loss is to make a consistent and up-to-date data backup for Outlook PST. In addition, it is also wise to get hold of a potent repair tool, such as DataNumen Outlook Repair, which will come in handy.
Shirley Zhang is a data recovery expert in DataNumen, Inc., which is the world leader in data recovery technologies, including repair SQL Server and outlook repair software products. For more information visit www.datanumen.com