![]() |
#2
|
||||
|
||||
![]()
Hi David,
You could use a macro like: Code:
Sub Demo() With ActiveDocument If .ActiveTheme = "Theme1" Then .ActiveTheme = "Theme2" Else .ActiveTheme = "Theme1" End If End Sub
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
|
![]() |
||||
Thread | Thread Starter | Forum | Replies | Last Post |
![]() |
Katten03 | Word | 8 | 06-04-2012 07:04 PM |
![]() |
lczlcz | Office | 7 | 03-26-2012 11:37 PM |
CHange colour of footer if a cell changes to red | OTPM | Excel | 0 | 05-26-2011 07:15 AM |
Trying to clear the background colour from a theme | ezekiel181 | Word | 1 | 11-14-2010 07:29 AM |
"Change Word Options" don't change | ADKREV | Word | 0 | 11-12-2010 10:56 AM |