Microsoft Office Forums - View Single Post - Using a UserForm to fill blanks in a letter

gmaxey · 04-05-2019, 07:06 AM

As for the checkbox (included specific paragraphs). That depends on the strategy you use. One is to just include everything in the template and then delete the pieces you don't want:

Code:

Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim bCheckTarget1 As Boolean 'Simulates a checkbox value
Dim oRng As Range
  bCheckTarget1 = False
  If Not bCheckTarget1 Then
    Set oRng = ActiveDocument.SelectContentControlsByTitle("Target1").Item(1).Range
    ActiveDocument.SelectContentControlsByTitle("Target1").Item(1).Delete True
    oRng.Paragraphs(1).Range.Delete
  End If
lbl_Exit:
  Exit Sub
End Sub