如何将excel每次输入的数据，生成新的一份WORD文件（word文件是以表格形式反映）

发布网友 发布时间：2022-04-25 03:11

我来回答

共5个回答

热心网友 时间：2023-10-22 19:14

1、在Word里面打开那个需要分割的文档（假设它的文件名叫做“原始文档.doc”）；

2、键入ALT+F11打开VBA编辑器，选择菜单“插入-模块”；

3、粘贴下面的代码：

             Option Explicit

             Sub SplitPagesAsDocuments()

             Dim oSrcDoc As Document, oNewDoc As Document

             Dim strSrcName As String, strNewName As String

             Dim oRange As Range

             Dim nIndex As Integer

         Dim fso As Object

   Set fso = CreateObject("Scripting.FileSystemObject")

   Set oSrcDoc = ActiveDocument

   Set oRange = oSrcDoc.Content

   oRange.Collapse wdCollapseStart

   oRange.Select

   For nIndex = 1 ToActiveDocument.Content.Information(wdNumberOfPagesInDocument)

       oSrcDoc.Bookmarks("\page").Range.Copy

       oSrcDoc.Windows(1).Activate

       Application.Browser.Target = wdBrowsePage

       Application.Browser.Next

       strSrcName = oSrcDoc.FullName

       strNewName = fso.BuildPath(fso.GetParentFolderName(strSrcName), _

                    fso.GetBaseName(strSrcName) & "_" & nIndex &"." & fso.GetExtensionName(strSrcName))

       Set oNewDoc = Documents.Add

       Selection.Paste

       oNewDoc.SaveAs strNewName

       oNewDoc.Close False

   Next

   Set oNewDoc = Nothing

   Set oRange = Nothing

   Set oSrcDoc = Nothing

   Set fso = Nothing

   MsgBox "结束！"

End Sub

4、键入F5运行，看到“完成！”结束。

热心网友 时间：2023-10-22 19:14

如果想要自动化一些，可以这样做。在表中加入一个按钮，加入代码，把选中的部分复制然后自动打开一个新的word文档，把表格粘贴进去，并以适当的名字保存。

热心网友 时间：2023-10-22 19:15

先打开一个空白WORD文件，打开excel文件，选定要生成WORD文件的数据，点右键选“复制”，点击空白WORD文件，在空白处点右键选“粘贴”即可。

热心网友 时间：2023-10-22 19:15

选定单元格，复制，打开一个新的word文档，粘贴即可。粘贴后可能表格样式会不满足页面设计，那就得需要稍稍调整表格了。
为什么非得要生成Word文档呀？表格的话，用excel不是挺好吗

热心网友 时间：2023-10-22 19:16

1：WORD中，插入--域--选择database（插入数据库），在提示表格中选择获取数据（就是你的excel表格），选择工作簿中的哪个工作表，确定，点击插入数据，在插入数据菜单中选择全部，注意勾选“将数据作为域插入”（否则只插入当前数据不会自动更新）点击确定，就可以了
2：当excel数据更改时，注意word中在可变数据中单击右键选择更新域此时word就会自动与excel同步变化