View Single Post
 
Old 09-28-2020, 07:15 PM
macropod's Avatar
macropod macropod is offline Windows 10 Office 2010
Administrator
 
Join Date: Dec 2010
Location: Canberra, Australia
Posts: 21,963
macropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond repute
Default

Quote:
Originally Posted by amandalee View Post
Thank you so much, I did try that and it certainly works. How do I go in to change the words and also the yellow colour to orange ?
Further down the same thread is more code for changing the font colour: https://www.msofficeforums.com/103931-post21.html

For orange, you could use code like:
Code:
Const wdOrange As Long = 41215
'...
  .Cells(1).Shading.BackgroundPatternColor = wdOrange
  .Font.Color = wdOrange
or simply:
Code:
  .Cells(1).Shading.BackgroundPatternColor = wdColorOrange
  .Font.Color = wdColorOrange
__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]
Reply With Quote