' For SG stuff
Sub SG_PDF()
ActiveDocument.Fields.Update
RenameSG_ANS
End Sub

Sub RenameSG_ANS()
Dim oShp As Word.Shape
For Each oShp In ActiveDocument.Shapes
    If oShp.Name = "~~~~~~~~~~~~ANS~~~~~~~~~~~TB" Then
        oShp.Name = "___ANS___"
    End If
    If oShp.Name = "?? 205" Then oShp.Delete
Next oShp
End Sub

Sub Hide_SG_ANS()
Dim oShp As Word.Shape
For Each oShp In ActiveDocument.Shapes
    If oShp.Name = "~~~~~~~~~~~~ANS~~~~~~~~~~~TB" Then
        oShp.Visible = msoFalse
    End If
Next oShp
End Sub

Sub Unhide_SG_ANS()
Dim oShp As Word.Shape
For Each oShp In ActiveDocument.Shapes
    If oShp.Name = "~~~~~~~~~~~~ANS~~~~~~~~~~~TB" Then
        oShp.Visible = msoTrue
    End If
Next oShp
End Sub
Sub Macro1()
'
' Macro1 Macro
'
'
    'ActiveDocument.Shapes.Range(Array("practice")).Select
    'ActiveDocument.Shapes.Range(Array("__ 205")).Select
End Sub