Sub Demo() With ActiveDocument If .ActiveTheme = "Theme1" Then .ActiveTheme = "Theme2" Else .ActiveTheme = "Theme1" End If End Sub