Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/15.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Vba 使用参数从Excel调用Word宏?_Vba_Excel_Ms Word - Fatal编程技术网

Vba 使用参数从Excel调用Word宏?

Vba 使用参数从Excel调用Word宏?,vba,excel,ms-word,Vba,Excel,Ms Word,我很难找到以下问题的答案。我想做的是用一个参数,一个文件名从Excel调用一个word宏。Excel创建一个.txt文件,然后我需要word来处理它。 问题是如何让word接收文件名 我有一些代码要开始,当在word宏中使用硬编码文件名时,我会让它工作,但我需要文件名作为变量传递 迄今为止的守则: Public Function convertTxt(txtFile As String) Dim WD As Object Set WD = CreateObj

我很难找到以下问题的答案。我想做的是用一个参数,一个文件名从Excel调用一个word宏。Excel创建一个.txt文件,然后我需要word来处理它。 问题是如何让word接收文件名

我有一些代码要开始,当在word宏中使用硬编码文件名时,我会让它工作,但我需要文件名作为变量传递

迄今为止的守则:

    Public Function convertTxt(txtFile As String)

      Dim WD As Object
        Set WD = CreateObject("Word.Application")

        WD.Documents.Open ThisWorkbook.Path & "\Word\" & "far.docm"

        ' Note that the project name and module name are required to
        ' path the macro correctly.
        WD.Run "runTxtConversion(txtFile)"

End Function
有什么建议吗

这是我第一次发布问题,因此对于我如何提问的任何建议,我们都将不胜感激。

尝试使用:

WD.Run "runTxtConversion", txtFile
Run方法有31个参数——第一个是宏名,其余的是需要传递的任何参数(所有这30个参数都是可选的)

您的代码将文本“runTxtConversion(txtFile)”作为宏的名称传递