VBA技术问题：如何将Word.Find结果赋值给变量或写入Excel单元格

我懂你现在的困扰：用通配符找到目标ID号后，结果把整个段落都塞进Excel单元格了，而不是只提取那串符合<[A-Z]{3} [0-9]{6}>格式的ID。问题出在你用了Para.Range.Text——这会返回整个段落的文本，而非Find匹配到的那一小段内容。

核心修复思路 #

Word的Find对象有个实用特性：当.Execute成功找到匹配内容后，你用来执行查找的Range（也就是这里的Para.Range）会自动缩小到匹配的文本范围。所以你只需要直接使用这个Range的Text，就能拿到你要的ID，而不是整段内容。

修改后的代码片段 #

替换你代码中出错的那部分逻辑：

With Para.Range.Find
    .ClearFormatting ' 重置查找格式，避免之前的设置干扰
    .Replacement.ClearFormatting
    .Text = "<[A-Z]{3} [0-9]{6}>" 
    .MatchWildcards = True
    .MatchCase = True
    .Wrap = wdFindStop
    .Forward = True
    .Execute
    If .Found = True Then
        ' 此时Para.Range已经是匹配到的ID范围，直接取它的Text即可
        ActiveSheet.Cells(x, 12).Value = Trim$(Para.Range.Text)
        ' 也可以先存到变量里再使用：
        ' Dim idNumber As String
        ' idNumber = Trim$(Para.Range.Text)
        ' ActiveSheet.Cells(x, 12).Value = idNumber
    End If
End With

额外优化建议 #

为了避免多次查找时的参数冲突，每次使用Find对象前都加上.ClearFormatting和.Replacement.ClearFormatting，确保查找参数是干净的。另外，用Trim$()处理文本可以去掉ID前后可能存在的多余空格，让写入Excel的内容更整洁。

你可以先通过Debug.Print Trim$(Para.Range.Text)来验证匹配到的内容是否正确，确认没问题后再写入单元格。

内容的提问来源于stack exchange，提问作者michal roesler