如何宏代码选中制定文字段落

mengyakay

     在word排版中，经常会有一些特征性的段落标题选中，比如
    第一章 XXXXXXXXXX
    第二章 XXXXXXXXXX
    第三章 XXXXXXXXXXX
   我只会利用通配符查找，但不知道宏代码怎么写
   查找：<第([一二三四五六七八九十]{1,})([章节条款]^32{1,}*^13
我用宏代码录制，在查找里输入以上内容，进行查找全部，但是录制出来的宏代码不能用，无法实现特征文字段落选中。请大神指教，如何写代码，实现类似查找选中！非常感谢！

zhanglei1371

参考下这个：
Sub 选择所有表格()
Dim tempTable As Table
Application.ScreenUpdating = False
ActiveDocument.DeleteAllEditableRanges (wdEditorEveryone)
For Each tempTable In ActiveDocument.Tables
tempTable.Range.Editors.Add wdEditorEveryone
Next
ActiveDocument.SelectAllEditableRanges wdEditorEveryone
ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
Application.ScreenUpdating = True
End Sub
Ps:如果你只是处于会录制宏的阶段，看不懂上面代码的话，可以去Word & VBA 257182022，有热心人会回答你^-^

413191246se

楼主，本页我的——Word2003通用模板里面就有现成的代码，希望你看看。

mengyakay

zhanglei1371 发表于 2015-5-11 17:41
参考下这个：
Sub 选择所有表格()
Dim tempTable As Table

这个代码我找过，但是看不懂，还是不会写。。。

mengyakay

413191246se 发表于 2015-5-12 09:25
楼主，本页我的——Word2003通用模板里面就有现成的代码，希望你看看。

不好意思，你这个代码不知道怎么看。。。直接粘帖出来行吗

413191246se

下面是代码，请楼主看看吧！
Sub 第一章()
    Dim i As Paragraph
    For Each i In ActiveDocument.Paragraphs
        If i.Range.Characters(1) = "第" Then
            If i.Range.Characters(3) = "章" Or i.Range.Characters(4) = "章" Or i.Range.Characters(5) = "章" Then
                i.Style = ActiveDocument.Styles(wdStyleSubtitle)
                With i.Range
                    With .Font
                        .Name = "黑体"
                        .Name = "Arial"
                    End With
                    With .ParagraphFormat
                        .SpaceBefore = 30
                        .SpaceAfter = 24
                        .AutoAdjustRightIndent = False
                        .DisableLineHeightGrid = True
                    End With
                End With
            End If
        End If
    Next
End Sub
*******************还有第一条的代码：
Sub 第一条()
    With ActiveDocument.Content.Find
        .ClearFormatting
        .MatchWildcards = True
        With .Replacement
            .ClearFormatting
            With .Font
                .Name = "黑体"
                .Bold = True
            End With
        End With
        .Execute FindText:="第[一二三四五六七八九十百零]{1,}条", replacewith:="", Format:=True, Replace:=wdReplaceAll
    End With
End Sub

mengyakay

413191246se 发表于 2015-5-12 21:16
下面是代码，请楼主看看吧！
Sub 第一章()
    Dim i As Paragraph

非常感谢您！只是能否稍微修改下，我只要选中所有特征段落，不要在代码中进行样式、字体字号的定义。。。我自己试了下，不会改。

413191246se

楼主，不进行样式、格式的定义，选中有什么用啊？（第一章宏是我自编的，第一条是网上撷取。）

wt_hck

你的问题解决了吗？我也遇到类似问题了，可是没人回复我