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第二页