查找替换的问题

weiyingde

向大侠请教一个查找和替换的问题：
要求将找到的文字设置“标题 8”
代码如下：
Sub 对未设大纲级别的文档自动设置()
With ActiveDocument.Content.Find
    .Replacement.ParagraphFormat.Style  = wdStyleHeading8
     .Execute "[一二三四五六七八九十]@、", , , 1, , , , , , "^&", 1
End With
End Sub
运行时错误，请问如何表达？

weiyingde

regrettable [ri5^retEbl] adj.可遗憾的
regular [5re^julE] adj.正常的，有规律的
regularity [7re^ju5lAriti] n.整齐，规律
regularly [5re^jJlElI] adv.整齐地，有规律地
要求：将上面中括号中的字符变成音标。
代码如下：
Sub 替换音标()
With ActiveDocument.Content.Find
     .Replacement.Font.Name = "Kingsoft Phonetic Plain"
     .Execute "\[(*)\]", , , 1, , , , , , "^&", 2
End With
End Sub
问题：将中括号替换掉了。怎样保留中括号？
请大侠赐代码。
谢谢。

weiyingde

自己解决，代码如下，仅供参考：
Sub替换音标()
With ActiveDocument.Content.Find
     .Replacement.Font.Bold = True
     .Execute "\[(*)\]", , , 1, , , , , , "^&", 2
End With
With ActiveDocument.Content.Find
.Font.Bold = True
.Format = True
.Replacement.Font.Name = "Kingsoft Phonetic Plain"
.Replacement.Font.Bold = False
.Execute "[!\[\]]", , , 1, , , , , , "^&", 2
End With
End Sub

jiminyanyan

weiyingde 发表于 2017-4-8 07:48
自己解决，代码如下，仅供参考：
Sub替换音标()
With ActiveDocument.Content.Find

值得肯定．．．．．．．

weiyingde

jiminyanyan 发表于 2017-4-8 15:20
值得肯定．．．．．．．

谢谢鼓励，向你学习，继续努力。
顺便问问，
word 的find参数中，勾选“使用万用字符”怎么表达？

duquancai

weiyingde 发表于 2017-4-8 07:48
自己解决，代码如下，仅供参考：
Sub替换音标()
With ActiveDocument.Content.Find

Sub 替换音标()
    With ActiveDocument.Content.Find
        Do While .Execute("\[*\]", , , 1)
            With .Parent
                .Start = .Start + 1: .End = .End - 1
                .Font.Name = "Kingsoft Phonetic Plain"
                .Collapse 0
            End With
        Loop
    End With
End Sub

weiyingde

duquancai 发表于 2017-4-8 19:26
Sub 替换音标()
    With ActiveDocument.Content.Find
        Do While .Execute("\[*\]", , , 1)

每次看到你的代码，由一种惊喜，先生的代码精炼有智慧，谢谢，收下了，慢慢啃，细领会！

weiyingde

duquancai 发表于 2017-4-8 19:26
Sub 替换音标()
    With ActiveDocument.Content.Find
        Do While .Execute("\[*\]", , , 1)

.Collapse 0
我不懂，翻了一下资料，什么折叠……能讲解一下吗？

duquancai

weiyingde 发表于 2017-4-8 07:48
自己解决，代码如下，仅供参考：
Sub替换音标()
With ActiveDocument.Content.Find

Sub W_正则()
    With CreateObject("vbscript.regexp")
        .Global = True: .Pattern = "\[[^]]+]"
        For Each mt In .Execute(ActiveDocument.Content)
            With ActiveDocument.Range(mt.FirstIndex, mt.FirstIndex + mt.Length)
                .Start = .Start + 1: .End = .End - 1
                .Font.Name = "Kingsoft Phonetic Plain"
            End With
        Next
    End With
End Sub

jiminyanyan

weiyingde 发表于 2017-4-8 19:32
.Collapse 0
我不懂，翻了一下资料，什么折叠……能讲解一下吗？

F1 一下吧．．．．．
.Collapse Direction:=wdCollapseEnd
Range.Collapse 方法 （Word）

Office 2013 and later
将某一区域或所选内容折叠到起始位置或结束位置。折叠之后起始位置和结束位置相同。