VBA表单文本提取：工作范围单行/多行内容获取异常咨询

你的问题出在赋值语句的位置和单行场景下的逻辑覆盖上。修改后的代码把Me.ExtentofWork = Trim(strExtWork)放在了While循环内部，导致单行内容时循环根本不执行，控件也就得不到赋值。

修正后的代码 #

Dim rowOffset As Long
If InStr(1, abody(j), "Extent of Work:", 1) Then
    ' 先提取当前行的核心内容
    strExtWork = Mid(abody(j), InStr(abody(j), "Extent of Work:") + 16)
    rowOffset = 1 ' 初始化偏移量
    
    ' 循环检查后续行，直到遇到"Remarks:"，同时避免数组越界
    Do While (j + rowOffset) <= UBound(abody)
        If Left(abody(j + rowOffset), 8) = "Remarks:" Then
            Exit Do ' 遇到终止标记，退出循环
        Else
            ' 拼接后续行内容，加vbCrLf保留原文本换行格式
            strExtWork = strExtWork & vbCrLf & abody(j + rowOffset)
            rowOffset = rowOffset + 1
        End If
    Loop
    
    ' 统一赋值，单行/多行场景都会执行
    Me.ExtentofWork = Trim(strExtWork)
End If

关键改进点 #

1. 赋值移到循环外：不管是单行还是多行，提取完成后统一给控件赋值，确保所有场景都被覆盖。
2. 增加数组越界检查：避免j + rowOffset超出abody数组范围导致报错（比如"Extent of Work"在文本最后一行的极端情况）。
3. 优化循环逻辑：用Do While...Exit Do替代原While循环，遇到终止条件直接退出，可读性更强。
4. 保留格式可选：拼接时添加vbCrLf，让提取的多行内容和原文本格式一致，不需要的话可以删掉。

问题根源回顾 #

• 单行场景下，abody(j + 1)就是"Remarks:"，原代码的While循环条件一开始就不成立，循环体完全不执行，而赋值语句在循环内，自然不会给控件赋值。
• 多行场景下，循环会执行多次，拼接所有后续内容后赋值，所以能正常工作。

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