如何在Word中选择每个段落中第一处的加粗文字？

413191246se · 发表于 2020-7-30 21:55

楼主，请将小花鹿老师的代码第9行中的“.Information(wdActiveEndPageNumber)”修改为如下形式：
Format(.Information(wdActiveEndPageNumber), "0000")

wjl999 · 发表于 2020-7-31 17:36

413191246se 发表于 2020-7-30 21:55
楼主，请将小花鹿老师的代码第9行中的“.Information(wdActiveEndPageNumber)”修改为如下形式：
Format ...

多谢详细解答，这样我就看明白了

wjl999 · 发表于 2020-7-31 17:50

413191246se 发表于 2020-7-30 21:55
楼主，请将小花鹿老师的代码第9行中的“.Information(wdActiveEndPageNumber)”修改为如下形式：
Format ...

你好，请问一下我改了一句，将页码加上1696，出现运行时错误'4608' 数值超出范围该怎么修改代码呀？

mydoc.Bookmarks("\endofdoc").Range = ";" & vbTab & .Information(wdActiveEndPageNumber+1696)

wjl999 · 发表于 2020-7-31 17:55

413191246se 发表于 2020-7-30 21:55
楼主，请将小花鹿老师的代码第9行中的“.Information(wdActiveEndPageNumber)”修改为如下形式：
Format ...

mydoc.Bookmarks("\endofdoc").Range = ";" & vbTab & .Information(wdActiveEndPageNumber+1696)
你好，请问这一句提示运行时错误4608 数值超出范围，该怎么修改代码呀？

413191246se · 发表于 2020-8-1 12:12

删除“+1696”这 5 个字符！——因为，括号里面的字符，是固定的参数，人为修改不可以，不合乎语法。
你的目的是什么呢？

wjl999 · 发表于 2020-8-1 16:28

413191246se 发表于 2020-8-1 12:12
删除“+1696”这 5 个字符！——因为，括号里面的字符，是固定的参数，人为修改不可以，不合乎语法。
你的 ...

我的目的是得到一个将word文档的当前页码和一个数字相加的一个数字，比如当前页码是1，但是这个文档是从一个大文档中拆分出来的，在大文档中是从1000页开始的，所以需要将每个页码都加上999进行补偿以便得出真实的页码

413191246se · 发表于 2020-8-1 19:26

Format(.Information(wdActiveEndPageNumber)+999, "0000")

wjl999 · 发表于 2020-8-2 07:15

感谢帮助，现在能完美实现我的想法了

		自动登录	找回密码
密码			免费注册

[已解决] 如何在Word中选择每个段落中第一处的加粗文字？