Auto-populating a document pulling data from external doc using a Userform with Checkboxes

gmayor · #1 10-11-2018, 12:18 AM

Use the following

Code:

On Error Resume Next
        If CheckBox1.Value = True Then
        Set RngSrc = DocSrc.Bookmarks("A").Range
        Set RngTgt = DocTgt.Bookmarks("A").Range
        RngTgt.FormattedText = RngSrc.FormattedText
        RngTgt.Bookmarks.Add "A"
    Else
        Set RngTgt = DocTgt.Bookmarks("A").Range
        RngTgt.Text = ""
        RngTgt.Bookmarks.Add "A"
    End If

kateabode · #2 10-11-2018, 05:08 PM

Quote:

Originally Posted by gmayor

Use the following

Code:

On Error Resume Next
        If CheckBox1.Value = True Then
        Set RngSrc = DocSrc.Bookmarks("A").Range
        Set RngTgt = DocTgt.Bookmarks("A").Range
        RngTgt.FormattedText = RngSrc.FormattedText
        RngTgt.Bookmarks.Add "A"
    Else
        Set RngTgt = DocTgt.Bookmarks("A").Range
        RngTgt.Text = ""
        RngTgt.Bookmarks.Add "A"
    End If

Thanks for your response Greg, however this hasn't worked. It hasn't done anything I don't think. When I didn't select the checkbox corresponding to bookmark A, the bookmark remained in the activedocument.
I am hoping that if not selected then the bookmark will be deleted.
Basically I have a document with lots of bookmarks line after line on an empty page and if i don't check a lot of the bookmarks then there are a whole lot of spaces in the document from where the bookmarks are. I hope that makes sense.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Userform with Multiple Cascading Drop Down Lists Populated with External Source Data	venganewt	Word VBA	21	05-16-2018 02:05 PM
Auto Populating Data with Drop Down Menu	vmangano	Excel	4	12-20-2016 09:03 AM
UserForm Dropdown List Not Populating	highrise955	Word VBA	14	04-10-2016 12:10 PM
Lack of email addresses auto-populating	LarryK	Outlook	0	10-10-2012 08:09 AM
"Auto-populating" data-worksheet to worksheet.	meggenm	Excel	4	02-04-2012 02:04 AM