搜索某字符串所在位置上面x行和下面y行的特定字符

寅鹞

范例

各位老师，我用vba处理某个文档的字符串，遇到一个难题。
要求是这样：
1、首先搜索到“Pin Default”然后提取所在行的字符串。
2、提取Pin Default上面X行（具体是在上面几行不定）的Node 0x19这几个字符
3、提取Pin Default下面y行（一般是下面一行）Color=Pink这几个字符


第一个要求很容易达到我用for each i In ActiveDocument.Paragraphs 方法加上 instr函数判断就可以完成Pin Default所在行的内容的提取了。
可是第二个和第三个要求需要对选择范围做定位，不知道具体代码怎么写。请各位老师指导一下。原始文档的附件在下面
ALC1150-codec-VBA.zip (18.97 KB, 下载次数: 8)

2014-8-6 15:05 上传

点击文件名下载附件
文档

banjinjiu

    str = "Pin Default"
    'str = "Node 0x19"
    'str = "Color = Pink"
    For Each i In ActiveDocument.Paragraphs
      If InStr(i, str) <> 0 Then
不用的屏蔽掉（注释掉），向你上次一样的运行。

banjinjiu

讨厌的excelhome广告，经常遮住回复。

寅鹞

banjinjiu 发表于 2014-8-6 15:36
str = "Pin Default"
    'str = "Node 0x19"
    'str = "Color = Pink"

谢谢回复。可能您没看懂我的要求。
我需要提取的字符串是有条件的：
条件1：Node在文档里有很多个，需要遍历所有的段落。
条件2：有效的Node必须是Pin Default所在那段，其余没有Pin Default字样的Node是需要排除的条件3：Node和Pin Default的数据是需要一一对应的。也就是说，最终我要生成的字符串类似以下格式
Node 0x13 Pin Default 0x11223344 Color Black
Node 0x14 Pin Default 0x22334455 Color Blue
Node 0x15 Pin Default 0x33445566 Color Green