使用VBA识别Word文本字符串中的换行符以解析字段

我需要批量解析Word文件中的结构化段落，将内容写入Excel生成扁平分析数据表。每个Word段落包含多个由换行分隔的字段，格式示例：

Event Type: a short description of the event...
Location: Text description of the location where the event occurred
Time: a date-time text for when the event occurred

我编写了VBA函数Return_Text用于提取字段对应文本，但始终无法正确识别Word中的换行符——试过vbCr、vbLf、vbCrLf、Chr(10)、Chr(13)甚至"\n"都无效，导致字段内容提取失败。原函数代码如下：

Function Return_Text(strText as String, strFind as String) as String
' strText contains the text of the entire paragraph
' strFind is the text string for the desired field name

Dim intStart as Integer, ctr as Integer

If InStr(strText, strFind) Then
    intStart = InStr(strText, strFind)
    For ctr = intStart + Len(strFind) To Len(strText)
        If Mid(strText, ctr, 1) = vbLf Then     ' This is the comparison that is causing problems
            Return_Text = Mid(strText, intStart + Len(strFind), ctr)
            Exit For
        End If
        If Len(Return_Text) > 0 Then
            Exit For
        End If
    Next ctr
End If
End Function

核心原因：Word的换行符类型差异 #

Word中，**手动换行（Shift+Enter）**对应vbLf（Chr(10)），**段落结尾换行（Enter）**对应vbCr（Chr(13)），部分场景下还可能出现vbCrLf混合格式，单一字符判断会遗漏情况。

修复后的函数 #

调整判断逻辑，兼容多种换行符，并改用更高效的InStr直接定位，避免逐字符遍历：

Function Return_Text(strText As String, strFind As String) As String
    Dim intStart As Integer, intEnd As Integer
    
    ' 字段名不存在时直接返回空
    If InStr(strText, strFind) = 0 Then Exit Function
    
    ' 定位字段值的起始位置（跳过字段名长度）
    intStart = InStr(strText, strFind) + Len(strFind)
    ' 可选：跳过字段名后的空格/制表符（根据实际格式调整）
    Do While Mid(strText, intStart, 1) = " " Or Mid(strText, intStart, 1) = vbTab
        intStart = intStart + 1
    Loop
    
    ' 依次查找后续的换行符，优先手动换行，再找段落换行
    intEnd = InStr(intStart, strText, vbLf)
    If intEnd = 0 Then intEnd = InStr(intStart, strText, vbCr)
    ' 找不到换行符时，取到文本末尾
    If intEnd = 0 Then intEnd = Len(strText) + 1
    
    ' 提取文本并去除首尾空白
    Return_Text = Trim(Mid(strText, intStart, intEnd - intStart))
End Function

额外优化技巧 #

1. 从Word读取文本时，直接使用Range.Text获取原始文本，避免复制粘贴导致的换行符转换。
2. 统一替换所有换行符为单一类型，简化判断：

   ' 将所有换行符统一替换为vbLf
   strText = Replace(Replace(strText, vbCrLf, vbLf), vbCr, vbLf)
   

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