如何用VBA选择第N页中的第一个表格

作者：绿色风分类：时间：2022-08-17 浏览：206

楼主芐雨	Q：如何用VBA选择第N页中的第一个表格 A：解决思路： 1.遍历文档所有的表格 2. 判断表格所在的页是否第N页 Sub 选择第N页中的第一个表格_芐雨() Dim i As Table, N As Integer, Pages As Integer On Error Resume Next '****当前共多少页，设为Pages* Pages = ActiveDocument.Content.Information(wdActiveEndAdjustedPageNumber) '**输入第几页,设为N** N = InputBox("请输入选择的页数（仅限数字）" & "数字范围1-" & Pages) For Each i In ActiveDocument.Tables '**通过选择表格实现页的跳转** i.Select '**当前页是否是输入的第N页** If Selection.Information(wdActiveEndPageNumber) = N Then '**选择表格** i.Select '**跳出**** Exit Sub End If Next End Sub
2楼 rongjun	学习了！
3楼芐雨	谢谢支持
4楼水星钓鱼	感谢分享

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表