循环对的代码？

ke3088

在文档表格1的行1列2内分别与"([0-9]{1,5})年第([0-9]{1,4})期"、"([一-龥]{1,15})办([0-9]{1,5})期"、"([一-龥]{1,15})通报([0-9]{1,5})期"进行对比，如果找见对应赋值xa、ya、za。现向各位大师求救，谢谢。虽然可以这样，但太繁琐了：
    With Selection.Find '查找操作
        .ClearFormatting '删除格式设置
        .Text = "([0-9]{1,5})年第([0-9]{1,4})期" '查找的文本
        .Forward = False '搜索方向：True 向下，False 向上
        .MatchWildcards = True '通配符：True 包含，False 不包含
        If .Execute Then '查找成功
           xa = Replace(.Parent, Chr(13), "")
        End If
    End With
    With Selection.Find '查找操作
        .ClearFormatting '删除格式设置
        .Text = "([一-龥]{1,15})办([0-9]{1,5})期" '查找的文本
        .Forward = False '搜索方向：True 向下，False 向上
        .MatchWildcards = True '通配符：True 包含，False 不包含
        If .Execute Then '查找成功
           xb = Replace(.Parent, Chr(13), "")
        End If
    End With
    With Selection.Find '查找操作
        .ClearFormatting '删除格式设置
        .Text = "([一-龥]{1,15})通报([0-9]{1,5})期" '查找的文本
        .Forward = False '搜索方向：True 向下，False 向上
        .MatchWildcards = True '通配符：True 包含，False 不包含
        If .Execute Then '查找成功
           xc = Replace(.Parent, Chr(13), "")
        End If
    End With
    If Trim(xa) <> "" Then
       TextBox7 = xa
    Else
    If Trim(xb) <> "" Then
       TextBox7 = xb
    Else
    If Trim(xc) <> "" Then
      TextBox7 = xc
    End If
    End If
    End If

413191246se

建议上传示例文档，说明如何处理。

ke3088

文件太大了，也涉及到部分不宜让外人知道的东西，我的要求就是简化我代码。请各位老师帮帮我，谢谢

kqbt

以下代码供参考：

1.   Dim varStr() As String, varTex(2) As String
   
2.   Dim intCou As Integer, rngDoc As Range
   
3.   varStr = Split("[0-9]{1,5}年第[0-9]{1,4}期;[一-龥]@办[0-9]{1,5}期;[一-龥]@通报[0-9]{1,5}期", ";")
   
4.   For intCou = 0 To UBound(varStr)
   
5.     Set rngDoc = ActiveDocument.Range
   
6.     With rngDoc.Find
   
7.       .ClearFormatting
   
8.       If .Execute(varStr(intCou), , , True) Then
   
9.         varTex(intCou) = rngDoc.Text
   
10.       End If
    
11.     End With
    
12.   Next
    
13.   Debug.Print Join(varTex, ";")

复制代码

ke3088

kqbt 发表于 2015-6-12 09:24
以下代码供参考：

kqbt兄，谢谢您！运行后，显示“下标越界”，并且“TextBox7
”放在什么地方。请指教。

ke3088

已成，是我调试不对，谢谢