Microsoft Office Forums - View Single Post - [Solved] Auto-populating a document pulling data from external doc using a Userform with Checkboxes

kateabode · 09-10-2018, 04:17 PM

Quote:

Originally Posted by gmayor

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

Thank you so much! This has helped a little bit. The document is now opening, however it's not copy and pasting the bookmarked sections from the other document to the activedocument, as it doesn't seem that there is anything in the code about copy and paste. Would it be better if I was pulling the data from an excel spreadsheet instead of a doc? Also, just for learning purposes, can you explain to me about the formatted text code, and the end code where you're setting them to Nothing? Your help is greatly appreciated!