请教大佬：如何加粗一篇Q&A中的所有Q段落

潮汐超人

请教大佬：如何加粗一篇Q&A中的所有Q段落？
我这边有一篇采访文本，现在想加粗所有提问的内容段（提问内容均以Q：开头，单独成段）
想达成的效果如下：

示意图

word附件也已附上……我只手动加粗了一半，实在太多了手都酸了

jiangxiaoyun

ming0018

通配查找　　Ｑ:[!^13]{1,}
替换选项：字体加粗

小花鹿

Sub xiaohualu()
    Dim ph As Paragraph
    With ActiveDocument.Content.Find
        Do While .Execute("^13Q:")
            With .Parent
                .MoveStart 1
                .Expand 4
                .Font.Bold = True
                .Collapse 0
                .MoveEnd 1, -1
            End With
        Loop
    End With
End Sub

潮汐超人

ming0018 发表于 2020-7-17 10:40
通配查找　　Ｑ:[!^13]{1,}
替换选项：字体加粗

我这边在替换界面中输入通配符，但是替换时提示替换0处，请问是什么原因呢

潮汐超人

jiangxiaoyun 发表于 2020-7-17 10:37

我这边在替换界面中输入通配符，但是替换时提示替换0处，请问是什么原因呢

潮汐超人

小花鹿 发表于 2020-7-19 09:10
Sub xiaohualu()
    Dim ph As Paragraph
    With ActiveDocument.Content.Find

这是VBA吗，大佬太厉害了，可惜我不太会

413191246se

楼主，加粗 要用在 替换为 上。