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

wjl999

如动图所示，可以通过开始>选择>选定所有格式类似的文本，一次性选中所有黑体文字，但是我的目的是一次选中段落中第一次出现的黑体字，并将其按“每一段的黑体字；页码；文件名”的格式另存到一个新的Word文件中，这个需要用VBA实现，目前我是手动复制到新Word中的。问题有两个：
1. 如何一次性选中Word中每个段落中第一处的加粗文字。
2. 如何用VBA实现第1项操作并将其按“每一段的加粗文字；页码；文件名”的格式另存到一个新的Word文件中

小花鹿

第一，附件中没有黑体字
第二，附件中只有一个段落

gbgbxgb

小花鹿 发表于 2020-7-25 18:58
第一，附件中没有黑体字
第二，附件中只有一个段落

你还不如这样问楼主的目标：
A、双重目标：一目标要同时选择多处“段落”的第一次出现的黑体字（1个字符？2个字符？无数个字符？），这非常非常重要；二目标要生成文件
B、真正目标仅是：生成文件即可，其间采用的方法无所谓

如果楼主回复选B，那你接着问楼主，那何以强调选择黑体字？即为什么放屁要脱裤子？^_^

wjl999

小花鹿 发表于 2020-7-25 18:58
第一，附件中没有黑体字
第二，附件中只有一个段落

第一，我的本意是指加粗文字
第二，开始的附件中未将手动换行符改成段落标记。我将附件更新了一下

413191246se

两位大师不敢下手，我也不敢下手！楼主，第一个要求，同时选中每段第一处加粗文字，不能！请问：可不可以循环选中？

wjl999

413191246se 发表于 2020-7-26 13:42
两位大师不敢下手，我也不敢下手！楼主，第一个要求，同时选中每段第一处加粗文字，不能！请问：可不可以循 ...

多谢答复，第一个要求是为了页数少时手动处理用的。可以循环选中。主要目标是将第一处文字生成文件，用什么方法都可以。

小花鹿

我给你写一下吧：
Sub xiaohualu()
Dim mydoc As Document
Set mydoc = Documents.Add
With ThisDocument.Content.Find
    .Font.Bold = True
    Do While .Execute
        With .Parent
            mydoc.Bookmarks("\endofdoc").Range.FormattedText = .FormattedText
            mydoc.Bookmarks("\endofdoc").Range = "    页码：" & .Information(wdActiveEndPageNumber)
            mydoc.Bookmarks("\endofdoc").Range = vbCr
            .Expand 4
            .Start = .End
        End With
    Loop
End With
mydoc.Close 0
End Sub

wjl999

小花鹿 发表于 2020-7-28 08:43
我给你写一下吧：
Sub xiaohualu()
Dim mydoc As Document

多谢大师，完美实现了我想要的结果。

wjl999

小花鹿 发表于 2020-7-28 08:43
我给你写一下吧：
Sub xiaohualu()
Dim mydoc As Document

大师，请问一下那个页码怎样才能设置成4位数格式呀，比如1显示为0001，175显示为0175

小花鹿

wjl999 发表于 2020-7-30 20:04
大师，请问一下那个页码怎样才能设置成4位数格式呀，比如1显示为0001，175显示为0175

format