Word VBA动态导入TXT关键词时数组赋值失败问题排查

嘿，我一眼就发现你的代码问题所在啦！

你在第一次用Do Until EOF(1)循环统计行数的时候，已经把文件的读取指针移到了文件末尾。当你紧接着第二次用同样的循环尝试读取内容时，EOF(1)一开始就返回True，循环直接跳过，自然keywordlist(i) = textline这行代码根本没机会执行，数组也就没被正确赋值。

另外原代码里的变量i没有初始化，默认是Empty状态，也可能导致行数统计出错，这点也需要修正。

下面给你两种解决方案：

方案1：最小改动原代码——重置文件指针 #

在第一次统计行数的循环结束后，加上Seek #1, 1，把文件指针移回文件开头，这样第二次循环就能重新读取内容了。修改后的代码如下：

Sub getkeywords()
    On Error Resume Next
    MsgBox "Select text file with keywords."
    On Error GoTo 0
    
    Dim keyfile As String, textline As String
    With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = False
        .Title = "Select Text Files"
        .Filters.Clear
        .Filters.Add "Text files", "*.txt"
        .InitialView = msoFileDialogViewDetails
        .Show
        
        On Error Resume Next
        keyfile = .SelectedItems(1)
        Err.Clear
        On Error GoTo 0
    End With
    
    Open keyfile For Input As #1
    Dim i As Integer
    i = 0 ' 初始化i，避免默认空值导致统计错误
    Do Until EOF(1)
        Line Input #1, textline
        i = i + 1
    Loop
    
    ' 关键：把文件指针移回文件开头
    Seek #1, 1
    
    Dim j As Integer
    j = i - 1
    Dim keywordlist() As String
    ReDim keywordlist(0 To j) As String
    
    i = 0
    Do Until EOF(1)
        Line Input #1, textline
        keywordlist(i) = textline
        i = i + 1
    Loop
    Close #1
End Sub

方案2：更高效的单读取方案（推荐） #

其实完全不需要两次读取文件，我们可以一次性把整个文件的内容读入字符串，再用Split函数按换行符分割成数组，代码更简洁高效，还能自动处理不同系统的换行符：

Sub getkeywords()
    On Error Resume Next
    MsgBox "Select text file with keywords."
    On Error GoTo 0
    
    Dim keyfile As String
    With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = False
        .Title = "Select Text Files"
        .Filters.Clear
        .Filters.Add "Text files", "*.txt"
        .InitialView = msoFileDialogViewDetails
        .Show
        
        On Error Resume Next
        keyfile = .SelectedItems(1)
        Err.Clear
        On Error GoTo 0
    End With
    
    ' 一次性读取整个文件内容
    Dim fileContent As String
    Open keyfile For Input As #1
    fileContent = Input$(LOF(1), #1)
    Close #1
    
    ' 统一换行符格式后分割成数组
    Dim keywordlist() As String
    keywordlist = Split(Replace(fileContent, vbCrLf, vbLf), vbLf)
    
    ' 可选：移除文件末尾换行导致的空元素
    If keywordlist(UBound(keywordlist)) = "" Then
        ReDim Preserve keywordlist(UBound(keywordlist) - 1)
    End If
End Sub

这个方案的优势很明显：只读取一次文件，性能更优；代码逻辑更简洁，减少出错概率；还能兼容Windows和Unix系统的换行格式。

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