Dim docCurrent As Document ' variable for the currently open file
    Dim docBraillePrelim As Document ' variable for the document where we are lifting content from
    Dim rngCurrent As Range ' variable for content of our current working file
    Dim rngPub As Range
    Dim rngBraillePrelim As Range  ' variable for content of source file
    Dim strBraillePrelimName As String ' Variable for name of file to open
    
    ' auto-update year mentioned in Braille prelims
    
    Dim rngOrg As Range
    Dim rngOrgName As Range
    Dim dtYear As Date
    Dim strDateYear As String
        strDateYear = CStr(Format(Now, "yyyy"))
    Dim strYear As String
        strYear = "[year]"

    
    strBraillePrelimName = "G:\Accessible Format Transcription\AUTOMATION TOOLKIT\TOOLKIT FILES\PRELIM TEXT\BRAILLE PRELIMS TEXT.docx"
    
    On Error GoTo ErrorHandling
    
    ' Open Braille Prelims doc and define range of its contents

    Set rngCurrent = ActiveDocument.Paragraphs(3).Range.FormattedText ' define target range of insertion of the text
                    
    Debug.Print rngCurrent
    
    Set docBraillePrelim = Documents.Open(fileName:=strBraillePrelimName)
    Set rngBraillePrelim = docBraillePrelim.Range ' This is the range content of the Braille prelims

etc etc