vbaword论文模板

给你段示例，你再接着完善你的： Dim wdApp As '定义WORD对象 Dim wdDoc As '定义WORD文档对象 Dim wkSheet As Worksheet '定工作表对象 Dim I As Long '实例化WORD对象 Set wdApp = New '创建WORD文档 Set wdDoc = '给工作表变量赋值 Set wkSheet = ("WriteWord") '保存新创建的WORD文档 & "\" '关闭新创建的WORD文档 With wdApp '打开WORD文档 . & "\" '循环将工作表中的记录转换为WORD文档内容 For I = 2 To ("a1048576").End(xlUp).Row '题头内容 . "亲爱的" & Trim((I, 1).Value) '根据性别确定人物称呼 If (I, 2).Value = "男" Then . "先生：" Else . "女士：".... .....

1、在Word里面打开那个需要分割的文档（假设它的文件名叫做“原始文档.doc”）；2、键入ALT+F11打开VBA编辑器，选择菜单“插入-模块”；3、粘贴下面的代码：Option ExplicitSub SplitPagesAsDocuments()Dim oSrcDoc As Document, oNewDoc As DocumentDim strSrcName As String, strNewName As StringDim oRange As RangeDim nIndex As IntegerDim fso As ObjectSet fso = CreateObject("")Set oSrcDoc = ActiveDocumentSet oRange = nIndex = 1 To (wdNumberOfPagesInDocument)("page").(1). = = = ((strSrcName), (strSrcName) & "_" & nIndex & "." & (strSrcName))Set oNewDoc = FalseNextSet oNewDoc = NothingSet oRange = NothingSet oSrcDoc = NothingSet fso = NothingMsgBox "结束！"End Sub4、键入F5运行，看到“完成！”结束。5、检查当前文档所在路径下是否生成若干名为“原始文档”（n代表其对应原始文档中的第几页）的文档，检查它们的内容是否就对应于原始文档每个页面的内容。

模版文档只能有一个，所以你另存时把原来那个文档替换就行啦 文档是一页，不能设置多页，只能做一页 你把你的模版存的名子是这个Normal名子才行，必须存在这个文件夹Templates里 它就认这个名子，你可以试一试，比如说： Photoshop 的外挂滤镜，它就在指定的文件夹内 为这个，我也试了一下，没有问题，我的是word2003，要不你重新装一下office