如何在word中编写一个宏,使得文档的每一页生成一个的word文档?
发布网友
发布时间：2022-04-26 07:06
共2个回答
热心网友
时间：2022-04-26 18:17
第一步：启动word
2003(其他版本操作类似)，然后单击菜单“工具→宏→宏”命令，打开“宏”对话框，接着在该对话框“宏名”下边的文本框内输入“autoexec”(不包括外侧引号)，再单击“宏的位置”右边的下拉箭头，选择“normal.dot(共用模板)”，最后单击“创建”按钮，创建一个名为“autoexec”的宏。
第二步：完成名为“autoexec”的宏的创建工作之后，这时就会自动打开一个代码窗口，接着将“sub
autoexec()”和“end
sub”之间的所有内容替换为以下代码：
dlganswer
=
application.dialogs
(wddialogfileopen).show
完成代码的替换工作后，关闭代码窗口，窗口中的所有代码就会自动保存，退出并重新启动word
2003，就可以看到自动弹出的“打开”对话框了。
热心网友
时间：2022-04-26 19:35
每页一个：
---------------------------------------------
Sub aa()
myPath = "D:\temp\"
Selection.HomeKey Unit:=wdStory
Set myRange = Selection.Range
curpage = 0
Application.ScreenUpdating = False
Do
prepage = curpage
pagenum = pagenum + 1
Set myRange = myRange.GoToNext(What:=wdGoToPage)
curpage = myRange.Start
endpage = myRange.Previous.End 'Start
If curpage = prepage Then _
endpage = ActiveDocument.Content.End
ActiveDocument.Range(prepage, endpage).Copy
With Documents.Add
.Content.Paste
.SaveAs myPath & "Page" & pagenum & ".doc"
.Close
End With
If curpage = prepage Then Exit Do
Loop
Application.ScreenUpdating = True
End Sub
---------------------------------------------------
如按10页分，改动如下，依次类推：
pagenum = pagenum + 10
