Removing spaces in activedocument after empty bookmarks

faustino909 · #1 08-03-2018, 09:37 AM

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.

Code:

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

faustino909 · #2 08-03-2018, 01:33 PM

I did not know I only needed ONE String and ONE Bookmark and just kept appending all data gathered (button caption, textbox, checkbox caption etc)

So I just created 1 bookmark and just kept appending to same string:
partial code, where SmokingData0 is the string attached to one bookmark. So I just kept adding to same string.

Code:

Dim SmokingData0 As Range
 
    Set SmokingData0 = ActiveDocument.Bookmarks("BMsmokingData0").Range
    
    
    If CBsmoking.Value = True Then
        SmokingData0.Text = Me.CBsmoking.Caption & "  "
    End If
    
    If CBcigarettes.Value = True Then
       SmokingData0.Text = "Cigarette smoking since " & TBcigaretteSince.Text & ".  "
        If OBcigaretteStill.Value = True Then
            SmokingData0.Text = SmokingData0.Text & "Currently smokes up to " & TBcigaretteStill.Text & ".  "
            ElseIf OBcigaretteStill.Value = False Then
                If Not TBcigaretteStop.Text = "" Then
                SmokingData0.Text = SmokingData0.Text & "Stopped since " & TBcigaretteStop.Text & ".  "
                End If
        End If
    End If

faustino909 · #3 08-03-2018, 01:34 PM

Also I don't know how to mark this SOLVED!

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Removing Empty Brackets In Batch	Agog	Word VBA	16	07-16-2018 05:39 AM
How to find and replace random empty spaces in beginning of lines?	Pauliina	Word	4	05-24-2018 10:01 PM
removing spaces in cell	Tonykiwi	Excel	4	11-06-2016 09:30 PM
Word-Help with removing unwanted spaces in text	greshoff	Word	9	12-30-2011 03:24 PM
double spaces in field ref (bookmarks)	GLENCOE	Word	3	10-25-2011 07:35 AM