基于Excel工作簿创建Word文档并自动运行邮件合并，简化流程咨询

Hey Rick, I’ve dealt with exactly this kind of nested Word/Excel workflow mess before—let’s walk through some practical ways to simplify it so you don’t have to manually copy files every time.

First, let’s call out the main headaches here:

• The INCLUDETEXT fields in your template use absolute paths, so they break when you copy files to a new folder
• Manually copying two files every time is error-prone and slow
• Mail merge links to the Excel workbook can also break after copying

Solution 1: Use Relative Paths (Quickest Fix) #

This fixes the broken INCLUDETEXT links without any code:

1. Open your Plan Doc Template, right-click any INCLUDETEXT field, and select Toggle Field Codes
2. Replace the absolute path (e.g., C:\OldFolder\Source Plan Doc.docx) with a relative path like ./Source Plan Doc.docx
   • The ./ tells Word to look for the source document in the same folder as the template
3. Save the template. Now you can copy the entire folder containing all three files (template, source doc, Excel workbook) instead of individual files—all links will stay intact.

Solution 2: VBA Macro for One-Click Project Setup (Full Automation) #

If you want to eliminate manual copying entirely, create a macro that handles everything:

1. Open Plan Doc Template, press Alt+F11 to open the VBA Editor
2. Insert a new module, then paste this code:

Sub CreateNewPlanProject()
    Dim targetFolder As String
    Dim templatePath As String
    Dim sourceDocPath As String
    Dim workbookPath As String
    
    ' Let user pick where to create the new project folder
    With Application.FileDialog(msoFileDialogFolderPicker)
        .Title = "Choose Folder for New Plan Project"
        If .Show = -1 Then
            targetFolder = .SelectedItems(1) & "\"
        Else
            Exit Sub ' User canceled
        End If
    End With
    
    ' Get paths of original files (assumes all 3 are in the same folder)
    templatePath = ThisDocument.FullName
    sourceDocPath = Replace(templatePath, "Plan Doc Template.docx", "Source Plan Doc.docx")
    workbookPath = Replace(templatePath, "Plan Doc Template.docx", "Mail Merge Workbook.xlsx")
    
    ' Copy all 3 files to the target folder
    FileCopy templatePath, targetFolder & "Plan Doc Template.docx"
    FileCopy sourceDocPath, targetFolder & "Source Plan Doc.docx"
    FileCopy workbookPath, targetFolder & "Mail Merge Workbook.xlsx"
    
    ' Open the new template and update all fields + mail merge links
    Dim newDoc As Document
    Set newDoc = Documents.Open(targetFolder & "Plan Doc Template.docx")
    newDoc.Fields.Update ' Refresh INCLUDETEXT fields
    
    ' Fix mail merge data source link
    With newDoc.MailMerge
        .OpenDataSource Name:=targetFolder & "Mail Merge Workbook.xlsx", _
        LinkToSource:=True, _
        Connection:="Data Source=" & targetFolder & "Mail Merge Workbook.xlsx;Mode=Read", _
        SQLStatement:="SELECT * FROM `Sheet1$`" ' Replace "Sheet1" with your actual worksheet name
    End With
    
    MsgBox "New plan project created successfully!", vbInformation
End Sub

3. Save the template as a macro-enabled document (.docm format)
4. Add a button to the ribbon for the macro—users can now click it once to generate a fully linked new project folder, no manual copying required.

Solution 3: Team-Friendly Template Set (Enterprise Standardization) #

If this is for a team, package the files into a Word template set to ensure consistency:

1. Enable the Developer tab in Word (File → Options → Customize Ribbon → Check "Developer")
2. Go to Developer → Templates and Add-Ins → Add to link Source Plan Doc and Mail Merge Workbook to the template
3. Save the template set to a shared team folder
4. Users can create new plans directly from the template set, and all links will automatically point to the correct files in their new project workspace.

内容的提问来源于stack exchange，提问作者Rick