Excel转Word：邮件合并如何导入表格及多单元格命名区域？

Hey there! Let’s tackle your problem of importing Excel tables or multi-cell named ranges into Word—especially since you’re stuck with single-cell mail merges right now and have thousands of fields to handle. Here are the most practical solutions tailored to your needs:

If you want to stick with mail merge but expand its capabilities, these tricks work well:

• Use INCLUDETEXT Fields for Named Ranges
  First, define your multi-cell ranges as named ranges in Excel (select the range, go to Formulas > Define Name). Then in Word, insert a field by pressing Ctrl+F9 (don’t just type the braces!) and paste this inside:

  { INCLUDETEXT "C:\\Path\\To\\Your\\ExcelFile.xlsx" "YourNamedRangeName" }
  

  Press F9 to update the field, and it’ll pull in the entire range as a formatted table. To do this in bulk, use Word’s Find/Replace to generate these fields for all your named ranges, or write a tiny Word macro to automate the process.
• Repeat Table Rows with the NEXT Field
  If your data is in an Excel table, set it as your mail merge source. In Word, create a table template where each cell maps to a merge field. Then add the { NEXT } field at the end of each table row (again, use Ctrl+F9 to insert it). When you run the merge, Word will loop through every row in your Excel table and populate the table in Word automatically.

For large-scale batch imports, VBA is your most flexible and efficient option. Here’s a ready-to-use macro you can tweak for Word:

Sub BatchImportExcelNamedRanges()
    Dim excelApp As Object
    Dim excelWB As Object
    Dim namedRange As Object
    Dim targetPos As Range
    Dim rangeTitle As String
    
    ' Set where you want the content inserted (starts at your current selection)
    Set targetPos = Selection.Range
    
    ' Launch Excel in the background
    Set excelApp = CreateObject("Excel.Application")
    excelApp.Visible = False ' Keep Excel hidden to speed things up
    Set excelWB = excelApp.Workbooks.Open("C:\\Your\\Excel\\File\\Path.xlsx")
    
    ' Loop through every named range in your Excel file
    For Each namedRange In excelWB.Names
        rangeTitle = namedRange.Name
        ' Add a heading for each range
        targetPos.InsertAfter "## " & rangeTitle & vbCrLf
        ' Copy the Excel range and paste it into Word
        excelWB.Worksheets(namedRange.RefersToRange.Parent.Name).Range(namedRange.RefersToRange.Address).Copy
        targetPos.Collapse wdCollapseEnd
        ' Paste as a formatted table (adjust parameters if you want linked content)
        targetPos.PasteExcelTable LinkedToExcel:=False, WordFormatting:=False, RTF:=False
        targetPos.InsertAfter vbCrLf & vbCrLf
    Next namedRange
    
    ' Clean up and close Excel
    excelWB.Close SaveChanges:=False
    excelApp.Quit
    Set excelWB = Nothing
    Set excelApp = Nothing
End Sub

How to use this: #

1. Open Word, press Alt+F11 to open the VBA Editor
2. Right-click your document in the Project pane > Insert > Module
3. Paste the code above, then edit the Excel file path to match yours
4. Go back to Word, place your cursor where you want the content, then run the macro (press F5 in the VBA Editor, or assign it to a button)

You can tweak this to filter specific named ranges (e.g., only those starting with "Data_") or adjust the paste format to match your Word style.

If your data is spread across multiple Excel ranges, use Power Query to consolidate it first:

1. In Excel, go to Data > Get Data > From Other Sources > Blank Query
2. Use Power Query to load all your named ranges into a single structured table (e.g., each range as a row with a "Range Name" column and a "Table Content" column)
3. Save this consolidated table as your mail merge source
4. In Word, set up a mail merge where you insert the "Table Content" field—this will pull in each multi-cell range as a table in your merged document

Quick Notes: #

• For thousands of fields, VBA is the fastest choice—mail merge can get sluggish with large datasets
• Always close your Excel file before running the macro to avoid file lock issues
• If you need linked content (so updates in Excel reflect in Word), change LinkedToExcel:=True in the VBA code

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