wordvba第二页

1. VBA怎样选择第二页或者第三页的表格

Sub 选择第N页中第一个表格_芐雨（）

Dim i As Table, N As Integer, Pages As Integer

Pages = ActiveDocument.Content.Information(wdActiveEndAdjustedPageNumber) '当前共多少页，设为Pages

N = InputBox（"请输入需要选择的表格序号（仅限数字）" &； "数字范围1-" & Pages） '输入第几页，设为N

For Each i In ActiveDocument.Tables

i.Select '通过选择表格实现页的跳转

If Selection.Information(wdActiveEndPageNumber) = N Then '当前页是否是输入的第N页

i.Select '选择表格

Exit Sub '跳出

End If

Next

End Sub虽然操作上支持可以用ctrl选择一页的多个表格，不过VBA中好像没有此类方法，这个是选择第N页的第一个表格。

2. vba确定word指定文字在第几页

亲，代码如下，查找第一次出现“ABC”的所在页的页码。请根据情况自行修订需要查找的字符：

Sub cz()

Dim MyRange As Range

Set MyRange = ActiveDocument.Content

MyRange.Find.Execute FindText:="ABC", Forward:=True

MsgBox MyRange.Information(wdActiveEndPageNumber)

End Sub

3. word如何在第二页插入页码

首先将光标放到首页的最后位置。

切换至“页面布局”选项卡，点击“分隔符”→“下一页”来插入一个分节符。接着再重新排版。

然后切换至“插入”选项卡，点击“页码”来插入一种样式的页码。 接着将光标定位到第二页的页脚处，通过点击取消”链接到前一条页眉“。

接着将第二页的页码删除，然后重启插入一次页码，选择”页码“→”设置页码格式“，在打开的窗口中勾选”起始页码“为”1“。接着选择第三页的页码，点击”链接到前一条页眉“ ，在弹出的窗口中点击”确定“按钮。

最后删除第一页的页码，就大功告成啦。

转载请注明出处51数据库 » wordvba第二页