[讨论]VBA中有没有办法自动插入一页，并把上一页的内容复制下来？

gdqbx

文档格式是个表格，我想通过程序根据需要把已经制作好的格式复制到下一页，并用程序在表格中输入不同的内容。

如意

为什么一定要用程序，若能不用程序就能解决问题不好吗？

gdqbx

是这样的，假设有很多张表，每张表的都有一部分内容不一样，可变的内容储存在excel中，并且一行记录对应一张表，我想通过域把数据输入到word表格，现在的问题是我不知到每次操作时要产生几张表，因此我想根据excel记录数的多少，把设置好的第一张表就复制多少份，在通过循环把数据输入word表格中。excel宏如下：

Sub WirteWord() Dim WdApp As Word.Application, Doc As Word.Document Set WdApp = CreateObject("Word.Application") WdApp.Visible = True Set Doc = WdApp.Documents.Open("C:\Table1.doc") m = 1 k = 10 For n = m To k With Doc .Fields(n).Code.Text = " QUOTE " & Sheet1.Cells(n, 1) & " " End With Next Doc.Fields.Update 'Doc.Save 'WdApp.Quit End Sub

守柔

这个东东可以结合自动图文集来进行，有关类似的例子，你可以搜索一下本论坛，关键字“自动图文集”，除了本版外，基础版，函数版等，你搜索一下我的回复贴子，有用程序解答的，基本就是此类，即AUTOMATION功能。

算了，还是我搜一下吧，请参：

http://club.excelhome.net/viewth ... D=534222&skin=1

http://club.excelhome.net/dispbb ... id=88437&skin=0

gdqbx

谢谢守柔大哥，我先看看。