I've had a good look and it seems to find the correct words, just it doesn't modify the formats.
Sub Branding()
Dim objOL As Outlook.Application
Dim objNS As Outlook.NameSpace
Dim objDoc As Word.Document
Dim objSel As Word.selection
Dim strStamp As String
On Error Resume...
I am trying to build an Outlook Macro for use when composing an email message to reformat several specific words at once in the email body so they are in their correct branding colours depending on what word they are.
The code needs to find a word that starts with the string "xp" and then...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.