如何设置样式？

zxdzzqzxd

请教一下各位高手，如何将下图内容，通过VBA，设置为“标题2”样式。

limonet

不用VBA吧，用替换，二步：
1、查找：^13（?）*。，替换为：^13（?）*。

2、查找：(（[一二三四五六]）*)。替换为：\1。样式2

zxdzzqzxd

limonet 发表于 2023-7-11 20:15
不用VBA吧，用替换，二步：
1、查找：^13（?）*。，替换为：^13（?）*。

你好！查找替换我知道怎么写，但录制成宏命令，再运行时就实现不了，系统会把整段都设置成“标题2”样式。

这个问题难就难在：
1、这个2级标题不能独立成行，必须与正文放在一起。
2、用VBA实现，是因为有一系列操作，这只是其中一步，现在卡在这里，总不至于代码完成一半，手动完成一半吧。

limonet

你的第一点word无法实现

zxdzzqzxd

limonet 发表于 2023-7-12 11:36
你的第一点word无法实现

第一点，手动是可以实现的
但录制成宏命令，再运行就会出问题
系统会把整段都设置为“标题2”样式

蜀中草莽

Sub test()
        Dim r As Range, i As Paragraph
        Selection.WholeStory
        With Selection
            Set r = .Range
        End With
        With r
            For Each i In .Paragraphs
                With i.Range
                    If .text Like "（[一二三四五六七八九十百零]*" Then
                        i.Range.Sentences(1).Select
                        Selection.InsertAfter Chr(13)
                        Selection.MoveLeft 1
                        Selection.InsertStyleSeparator
                        Selection.Style = wdStyleHeading2
                    ElseIf .text Like "#、*" Then
                        i.Range.Sentences(1).Select
                        Selection.InsertAfter Chr(13)
                        Selection.MoveLeft 1
                        Selection.InsertStyleSeparator
                        Selection.Style = wdStyleHeading2
                    End If
                End With
            Next
        End With
        MsgBox "标题格式已设置"
    End Sub

蜀中草莽

limonet 发表于 2023-7-12 11:36
你的第一点word无法实现

用样式分隔符可以实现的

413191246se

我的最新思考结果：公文排版无需样式！只设置格式即可（抛弃样式）。因为公文无需抽取目录。

413191246se

无需设置标题2（其实应该是标题3），只须设置为加粗、楷体即可。

zxdzzqzxd

蜀中草莽 发表于 2023-7-12 12:41
用样式分隔符可以实现的

高人啊！太谢谢了！

不好意思，代码不会写，再问一下，如何将下图的文字设置为3级标题。