Thread: [Solved] Can't apply shading to multiple sentences
View Single Post
 
Old 06-10-2020, 06:32 AM
gmaxey gmaxey is offline Windows 10 Office 2016
Expert
  
Join Date: May 2010
Location: Brasstown, NC
Posts: 1,429
gmaxey is a jewel in the roughgmaxey is a jewel in the roughgmaxey is a jewel in the roughgmaxey is a jewel in the rough
Default
How about:
Code:
Sub B()
  Selection.Font.Shading.BackgroundPatternColor = wdColorAutomatic
  Selection.Shading.BackgroundPatternColor = wdColorAqua
End Sub
__________________
Greg Maxey
Please visit my web site at http://www.gregmaxey.com/
Reply With Quote