[已解决]word用VBA增加多页空白页？

小雨饰品

word用VBA增加多页空白的页面，我在网上找了一个，但一次只能增加一页，我想每次点击按钮时，出现对话框，然后自己输入多页，确定后就再增加多少页？谢谢各位帮忙！

最佳答案

月排行榜 / 总排行榜

苏子龙

2017-6-11 12:22

Sub InserNewPage()
Dim i As Integer, pg As Integer
pg = InputBox("请输入插入空白页数量", "插入页提示")
If i >= pg Then Exit Sub
    For i = 1 To pg
        Selection.EndKey Unit:=wdStory
        Selection.InsertBreak Type:=wdPageBreak
        'Selection.TypeText Text:="New Page"
    Next
End Sub可以套循环啊

跳转到最佳答案楼层

苏子龙

Sub InserNewPage()
Dim i As Integer, pg As Integer
pg = InputBox("请输入插入空白页数量", "插入页提示")
If i >= pg Then Exit Sub
    For i = 1 To pg
        Selection.EndKey Unit:=wdStory
        Selection.InsertBreak Type:=wdPageBreak
        'Selection.TypeText Text:="New Page"
    Next
End Sub可以套循环啊

小雨饰品

苏子龙 发表于 2017-6-11 12:22
Sub InserNewPage()
Dim i As Integer, pg As Integer
pg = InputBox("请输入插入空白页数量", "插入页提 ...

谢谢老师