Question

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

楼下几位想的太简单了，可能是我说的不够清楚吧。我的意思是，我在现有的excel表格中输入某些特定的数据--例如在excel特定的一栏中输入“金额--120元”，能在WORD文件的表格中指定一栏直接生成“金额--120元”（不需要，我再去新建一个WORD文档，也不要我再去复制excel表格中的内容到新建word文档的表格中）

简单的说，就是实现--excel与word文档的同步更新（但是要做到，能保证每次在excel里面输入后必须生成一个新的word文档）

哎···就是想偷懒。可惜不知道怎么弄

Answer 1

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运行，看到“完成！”结束。

Answer 2

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

Answer 3

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

Answer 4

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

Answer 5

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