如何在EXCEL VBA执行WORD的“插入对象”命令

悉心 · 发表于 2009-3-5 16:32

新建文件夹.rar (58.51 KB, 下载次数: 16)
附件包含一个EXCEL，5个WORD文件。
EXCEL第一列里存放着这5个WORD文件的文件名。

现在我想实现的是：用一段VBA程序，把这5个文件合并在一个新的WORD文件里。
这里只是举例，实际中，可能文件名是乱序的，毫无规律的。

请高手指教！谢谢！

主要问题在下面的循环中，循环结束后，WORD实际上只保留了最后打开的那个文件。
对其中的Range不了解，不知道怎么修改或用什么‘方法’替换？

For i = 2 To 5
   nextfile = Cells(i, 1)
      wdApp.activedocument.Range.InsertFile Filename:=nextfile
   Next i

热浪2006 · 发表于 2009-3-5 16:45

2007？晕晕晕

悉心 · 发表于 2009-3-5 16:57

新建文件夹.rar (55.21 KB, 下载次数: 22)
另传文件，已经另存为EXCEL97-2003文件。
谢谢！

悉心 · 发表于 2009-3-5 17:46

各位高手都帮我看看啊！谢谢了！

悉心 · 发表于 2009-3-5 22:35

自己再顶一下，请高手帮忙看一下。谢谢！

悉心 · 发表于 2009-3-6 10:44

继续求助！谢谢

热浪2006 · 发表于 2009-3-9 08:52

原帖由悉心于 2009-3-5 16:57 发表
470167
另传文件，已经另存为EXCEL97-2003文件。
谢谢！

试试看

悉心 · 发表于 2009-3-9 10:55

原帖由 热浪2006 于 2009-3-9 08:52 发表

试试看

就是我要的功能！！谢谢！
今天心情特别好！！
不过，觉得速度挺慢的。
我的实际应用中，大概有30-50个文件要合并。
不知道有没有更快的方案？

我自己做了以下修改：速度快了一点。
With 导出Word对象
   .Documents.Open 导出路径文件名
   For i = 2 To 最后行号
      导入路径文件名 = 当前路径 & "\" & Range("A" & i)

      .Selection.EndKey Unit:=wdStory
      .Selection.InsertFile Filename:=导入路径文件名
      导入Word对象.Quit
      Set 导入Word对象 = Nothing
      Range("b1") = "已经完成" & i - 1 & "/" & 最后行号 - 1 & "个文件"
   Next i
End With

wangjigao · 发表于 2009-4-1 10:34

我一个word中插入了一个excel工作表对象，请问如何在word的vba代码中调用该excel的数据？

london201207 · 发表于 2016-10-10 19:09

求教一下，要是OPEN的文件还密码怎么办。

		自动登录	找回密码
密码			免费注册

[求助] 如何在EXCEL VBA执行WORD的“插入对象”命令

高人再解答