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

gmayor · #2 09-10-2018, 01:34 AM

You appear to have some confusion with your syntax, and while I can't test it without access to the two documents the following should be a deal closer to what you require

Code:

Private Sub CommandButton1_Click()
Dim DocSrc As Document, DocTgt As Document
Dim RngSrc As Range, RngTgt As Range

    Set DocTgt = ActiveDocument
    Set DocSrc = Documents.Open("C:\Users\reception.AIRDG\Documents \Custom Office Templates\2019 Master Specification - Kate.dotm")

    If CheckBox1.Value = True Then
        Set RngSrc = DocSrc.Bookmarks("Demo").Range
        Set RngTgt = DocTgt.Bookmarks("spec").Range
        RngTgt.FormattedText = RngSrc.FormattedText
        RngTgt.Bookmarks.Add "spec"
    End If

    If CheckBox2.Value = True Then
        Set RngSrc = DocSrc.Bookmarks("Surveys").Range
        Set RngTgt = DocTgt.Bookmarks("surveys").Range
        RngTgt.FormattedText = RngSrc.FormattedText
        RngTgt.Bookmarks.Add "surveys"
    End If

    DocTgt.Range.Fields.Update
    Application.ScreenUpdating = True
    Set DocSrc = Nothing
    Set DocTgt = Nothing
    Set RngSrc = Nothing
    Set RngTgt = Nothing
End Sub

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