How to create a text strike-through macro using a ck box to in
Using the checkbox in a frame method as Cindy suggested, you could
bookmark the text (call it "Test") and use a macro something like this.
Private Sub CheckBox1_Change()
ActiveDocument.Unprotect
If Me.CheckBox1.Value = -1 Then
ActiveDocument.Bookmarks("Test").Range.Font.Strike Through = True
Else
ActiveDocument.Bookmarks("Test").Range.Font.Strike Through = False
End If
ActiveDocument.Protect wdAllowOnlyFormFields, NoReset:=True
End Sub
|