When check box is selected, need text to be written on bookmark

Guessed · #4 01-24-2019, 11:06 PM

Graham is correct about the bookmark position not 'including' the text so you couldn't revisit the dialog multiple times. To resolve this on my previous code, the function should be amended to...

Code:

Function PopulateBM(aCtl As Control)
  Dim sBkmk As String, sText As String, aRng As Range
  sBkmk = aCtl.Tag
  sText = aCtl.ControlTipText
  With ActiveDocument
    If .Bookmarks.Exists(sBkmk) Then
      Set aRng = .Bookmarks(sBkmk).Range
      If aCtl Then
        aRng.Text = sText
      Else
        aRng.Text = ""
      End If
      aRng.Bookmarks.Add sBkmk
    End If
  End With
End Function

You could then query the values in those bookmarks to prefill the status of both settings as part of the UserForm_Initialize macro.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Any efficient way to lock text that’s always written in a certain format?	Gilvv	Word	25	11-25-2018 04:52 PM
Macro to insert different sets of text at bookmark depending on sequence of selected check boxes	chipper09	Word VBA	0	06-21-2018 01:49 PM
Moving Selected Items from a Multiselect Listbox on a userform to a bookmark in Word	marksm33	Word VBA	3	01-15-2015 07:55 PM
Getting mult resps. selected in listbox to concatenate & paste at a bookmark in Word	marksm33	Word VBA	3	01-15-2015 05:59 PM
Animation: text appears as if written by pen	ionas.iona	PowerPoint	0	03-31-2011 05:23 PM