Silly of me, I'd say I knew that but I didn't
Worked great! ONE more thing..Graham wrote the following code (he's
awesome), how do I incorporate this code so some word art disappears when the
text goes white and appears when the text is turned back to black?
With sSource
For Each aShape In .Shapes
If aShape.Type = msoTextEffect Then
aShape.Select
With Selection
.ShapeRange.Fill.Transparency = sTrans
.ShapeRange.Line.Visible = sLine
End With
End If
Next aShape
End With
This is what I have..The word art appears but I can't get it to disappear:
Sub ShowAnswers()
Dim Flag As Boolean
Dim aShape As Shape
Dim sLine As String
Dim sTrans As String
Dim sSource As Document
Set sSource = ActiveDocument
Flag = False
Selection.HomeKey wdStory
Selection.Find.ClearFormatting
Selection.Find.Font.Color = wdColorWhite
With Selection.Find
If .Execute = True Then
Flag = True
End If
Do While .Execute(FindText:="", MatchWildcards:=False, MatchCase:=True,
Wrap:=wdFindContinue, Forward:=True) = True
With Selection.Font
..Color = wdColorAutomatic
..Bold = True
End With
Loop
End With
If Flag = True Then
Exit Sub
End If
Selection.HomeKey wdStory
Selection.Find.ClearFormatting
Selection.Find.Font.Color = wdColorAutomatic
Selection.Find.Font.Bold = True
With Selection.Find
Do While .Execute(FindText:="", MatchWildcards:=False, MatchCase:=True,
Wrap:=wdFindContinue, Forward:=True) = True
With Selection.Font
..Color = wdColorWhite
End With
Loop
End With
If ActiveWindow.View.ShowHiddenText = False Then
Options.PrintHiddenText = False
sTrans = 0#
sLine = msoTrue
Msg = "Hidden Text Hidden"
Else
Options.PrintHiddenText = True
sTrans = 1#
sLine = msoFalse
Msg = "Hidden Text Displayed"
End If
With sSource
For Each aShape In .Shapes
If aShape.Type = msoTextEffect Then
aShape.Select
With Selection
.ShapeRange.Fill.Transparency = sTrans
.ShapeRange.Line.Visible = sLine
End With
End If
Next aShape
End With
End Sub
