Removing spaces in activedocument after empty bookmarks

[faustino909]

Hello



I have 4 bookmarks on the activedocument.
My bookmarks in activedocument is place in one line, but with 4 spaces in between bookmarks.

In userform, if user selects just one of the bookmarks, (and leave the other 3 empty) how do I remove the spaces (on the activedocument) between each empty bookmarks?

i.e.: if textbox2 is blank, i need to remove the bookmark and the 4 spaces after it in activedoc:

or: if OptionButton1 = False i want bookmark and 4 spaces after this deleted.


Thanks in advance.

Private Sub CommandButton1_Click()
 
Dim text1 As Range
Dim text2 As Range
Dim optionbox As Range
Dim checkbox As Range
 
Set text1 = ActiveDocument.bookMarks("BMtext1").Range
Set text2 = ActiveDocument.bookMarks("BMtext2").Range
Set optionbox = ActiveDocument.bookMarks("BMoptionbox").Range
Set checkbox = ActiveDocument.bookMarks("BMcheckbox").Range
    text1.Text = Me.TextBox1.Value
    text2.Text = Me.TextBox2.Value
    If OptionButton1.Value = True Then
    optionbox.Text = Me.OptionButton1.Caption
    ElseIf OptionButton1.Value = False Then
    ActiveDocument.bookMarks("BMoptionBox").Delete
 
 
    End If
 
    If CheckBox1.Value = True Then
    checkbox.Text = Me.CheckBox1.Caption
    End If
 
End Sub