調用帶有參數的字VBA子從Excel VBA

Question

我有一個DOTM模板很簡單的字子：

Sub YHelloThar(msg As String) 
    MsgBox (msg) 
End Sub 

然後我有一個Excel子：

Sub CallWordSub() 
     Dim wdApp As Word.Application 
     Dim newDoc As Word.Document 

     'Word template location 
     strFile = "C:\Some\Folder\MyWordDoc.dotm" 
     'Get or create Word application 
     Set wdApp = GetObject(, "Word.Application") 
     If wdApp Is Nothing Then 
      Set wdApp = CreateObject("Word.Application") 
     End If 
     'Create new Word doc from template 
     Set newDoc= wdApp.Documents.Add(strFile) 
     'Call the YHelloThar sub from the word doc 
     Call wdApp.Run(strFile & "!YHelloThar", "Hello") 
    End If 
End Sub 

最後一行給出我「運行時錯誤'438'：對象不支持此屬性或方法。」

我不知道我在做什麼錯 - 我查過的所有東西都表明這是從不同的應用程序中調用子接口的正確方法。

此外，如果我將最後一行更改爲無參數調用，它突然正常工作。

Answer 1

久經考驗

Call wdApp.Run("YHelloThar", "Hello") 

而且在結尾有一個額外的End If。我猜猜錯了嗎？

提示：爲了避免運行時錯誤，你將不得不打電話只是

Set wdApp = GetObject(, "Word.Application") 

隨訪我的小費

的下面是一個例子之前，處理錯誤。此外，我還使用了Late Binding，以便它能夠與每個Office版本配合使用。

Sub Sample() 
    Dim wdApp As Object, newDoc As Object 
    Dim strFile As String 

    strFile = "C:\Some\Folder\MyWordDoc.dotm" 

    '~~> Establish an Word application object 
    On Error Resume Next 
    Set wdApp = GetObject(, "Word.Application") 

    If Err.Number <> 0 Then 
     Set wdApp = CreateObject("Word.Application") 
    End If 
    Err.Clear 
    On Error GoTo 0 

    wdApp.Visible = True 

    Set newDoc = wdApp.Documents.Add(strFile) 

    Call wdApp.Run("YHelloThar", "Hello") 

    ' 
    '~~> Rest of the code 
    ' 
End Sub