标题查询

Sub 标题查询()
'
' 标题查询 宏
' 用来查询样式为标题n（1≤n≤9）的标题
'
    Dim title_n
    Dim find_str As String
    find_str = InputBox("请输入要查找的内容：", "标题内容查询：输入查询内容")
    '做简单的合法性判断
    If (Len(find_str) = 0) Then
        MsgBox ("不允许输入空字符串")
        Exit Sub
    End If
    temp_value = InputBox("请输入内容所属的标题级别（1-9）：", "标题内容查询：输入标题级别")
    If (Len(temp_value) = 0) Then
        MsgBox ("不允许输入空字符串")
        Exit Sub
    End If
    temp_value = CInt(temp_value)
    title_n = Int(temp_value)
    '做简单的合法性判断
    If (title_n < 0 Or title_n > 9) Then
        MsgBox ("标题级别只能在1-9之间。")
        Exit Sub
    End If
    
    
    Selection.Find.ClearFormatting
    Selection.Find.Style = ActiveDocument.Styles("标题 " + CStr(title_n))
    With Selection.Find
        .Text = find_str
        '.Replacement.Text = ""     '不进行替换
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False          '是否区分大小写
        .MatchWholeWord = False
        .MatchByte = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
        .MatchWholeWord = True      '是否全字匹配
        .MatchPrefix = True         '匹配前缀
        .MatchSuffix = True         '匹配后缀
    End With
    If Not (Selection.Find.Execute) Then         '执行查找
        MsgBox ("没有查询到")
    End If
End Sub