Sub使用VBA实现Word文档分区()
On Error Resume Next
Dimdoc1as document、newdocas document、a、第1页%、第2页%、第2页%、第2页%、i1%、I2%、i3%、dkas file dialog
Dimdoc2as文档
Dim zb、yb、sb、XB
A=InputBox('输入拆分页数(默认情况下每1页拆分一次)'，1)
If a '' Then
D=MsgBox(“选择拆分文档的存储路径”，1 64)
If d=1 Then
set dk=a(msofiledialogfolderpicker)
If dk。Show=-1 Then
Set doc1=ActiveDocument
第1页=doc 1 . con(wdnumberofpagesindocument)
Doc1。Con
Selec 1
For i1=1 To page1 Step a
If i1 a page1 Then
I2=page1
If a=1 Then
B='_ ' '我的' I2 '页'
Else
If page1 Mod a=1 Then
B='_ ' '我的' I2 '页'
Else
If i1 a-1=第1页then
B='_ ' '我的' i1 '-' I2 '页'
Else
B='_ ''第一页' (第1页-第1页模式a) 1'-'第1页' '
End If
End If
End If
Else
I2=i1 a-1
If a=1 Then
B='_ ' '我的' i1 '页'
Else
B='_ ' '我的' i1 '-' I2 '页'
End If
End If
Set newdoc=Documen
For i3=i1 To I2
Doc1。Activate
do C1 . bookmarks(' \ page '). range . copy
With Selec
Zb=。LeftMargin
Yb=。RightMargin
Sb=。TopMargin
Xb=。BottomMargin
End With
A=wdBrowsePage
a
Newdoc。Activate
单元欧共体
With Selec
.LeftMargin=zb
.RightMargin=Yb
.TopMargin=sb
.BottomMargin=XB
End With
next
Newdoc.saveas2 (1)' \' spli，'。doc') (0) b '。docx ')
Newdoc。Close -1
next
MsgBox ' split complete ' Chr(13)_
Chr(13) _
“保存位置”dk。SelectedItems(1)、0 64
End If
End If
End If
End Sub
1.《【word文档怎么拆分页示范】Word使用VBA代码拆分文档页数。》援引自互联网，旨在传递更多网络信息知识，仅代表作者本人观点，与本网站无关，侵删请联系页脚下方联系方式。
2.《【word文档怎么拆分页示范】Word使用VBA代码拆分文档页数。》仅供读者参考，本网站未对该内容进行证实，对其原创性、真实性、完整性、及时性不作任何保证。
3.文章转载时请保留本站内容来源地址，https://www.lu-xu.com/keji/2510344.html