使用VBA可以批量获得。"C:\Users\sigmaxu\Desktop\1.xlsx"是excel文档路径。
Sub Test()
Dim my_Object As Object
Set my_Object = GetObject("C:\Users\sigmaxu\Desktop\1.xlsx")
Dim row_Count As Single
row_Count = InputBox("请输入行数", Default:=2)
ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=row_Count * 3, NumColumns:= _
2, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
wdAutoFitFixed
With ThisDocument.Tables(1)
Dim i As Single
For i = 2 To row_Count
.Cell(1 + 3 * (i - 2), 1).Range = "姓名"
.Cell(2 + 3 * (i - 2), 1).Range = "性别"
.Cell(3 + 3 * (i - 2), 1).Range = "年龄"
.Cell(1 + 3 * (i - 2), 2).Range = my_Object.worksheets(1).Cells(2, 1).Value
.Cell(2 + 3 * (i - 2), 2).Range = my_Object.worksheets(1).Cells(2, 2).Value
.Cell(3 + 3 * (i - 2), 2).Range = my_Object.worksheets(1).Cells(i, 3).Value
Next
End With
my_Object.Close
End Sub
为啥需要Word呢?如果是打印输出,在Excel里面也可以。
百度一下
word邮件合并
你就有答案了。