Excel VBA导入Word文本遇下标越界错误，求解决方法

核心问题分析 #

运行时错误'9'的本质是Split(extractedText, startString)仅返回1个元素，说明目标Word文档中不存在startString定义的标记文本，或是读取到的文档内容为空。

分步修复方案 #

1. 确保正确读取Word文档完整内容 #

替换原读取文本的代码，使用可靠的全文档内容读取逻辑，避免依赖Selection对象（打开文档后未必自动选中全部内容）：

Dim wordDoc As Word.Document
Dim filePath As Variant

' 获取用户选择的文件路径
filePath = Application.GetOpenFilename("Word文档 (*.docx;*.doc), *.docx;*.doc")
If filePath = False Then Exit Sub ' 用户取消选择时退出

' 打开文档并读取全量文本
Set wordDoc = GetObject(filePath)
extractedText = wordDoc.Content.Text ' 读取文档所有纯文本内容
wordDoc.Close SaveChanges:=wdDoNotSaveChanges
Set wordDoc = Nothing

2. 增加标记存在性检查 #

在执行Split前先验证标记文本是否存在，避免下标越界：

Dim splitArray As Variant
startString = "你的起始标记文本" ' 替换为你实际使用的标记

' 检查标记是否存在
If InStr(extractedText, startString) = 0 Then
    MsgBox "目标文档未找到指定标记文本，请检查文档内容或标记字符串。"
    Exit Sub
End If

splitArray = Split(extractedText, startString)
' 确保分割后有后续内容
If UBound(splitArray) >= 1 Then
    extractedText = splitArray(1)
    ' 继续后续处理逻辑（比如用结束标记二次分割）
Else
    MsgBox "标记文本后无有效内容，请检查文档。"
    Exit Sub
End If

3. 规范Word实例的操作逻辑 #

如果使用显式创建Word实例的方式，确保进程状态正常（调试阶段可设为可见，方便排查）：

Dim wordApp As Word.Application
Set wordApp = CreateObject("Word.Application")
wordApp.Visible = True ' 调试时打开可见，便于确认文档内容

Set wordDoc = wordApp.Documents.Open(filePath)
extractedText = wordDoc.Content.Text
' ...后续处理代码...
wordDoc.Close SaveChanges:=wdDoNotSaveChanges
wordApp.Quit
Set wordDoc = Nothing
Set wordApp = Nothing

4. 验证目标文档内容 #

手动打开选中的Word文档，确认：

• 文档中确实包含startString对应的文本
• 文本不在特殊区域（如文本框、页眉页脚），若在这些区域需调整读取范围（比如用wordDoc.Sections(1).Headers(wdHeaderFooterPrimary).Range.Text读取页眉）

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