2017-03-28 95 views
-3

安裝Office 365在VBA我的應用程序代碼 後不工作了GetObject的( 「Word.Application」)的Office 365

Set wrd = GetObject(, "Word.Application") 
wrd.Visible = True 
wrd.Documents.Open "C:\My Documents\Temp.doc" 
Set wrd = Nothing 

是否有人有任何想法

它一點兒也不recornize辦公室365這個代碼上面 但如果我安裝Office 2016或2013它的工作原理。

+1

這不是VB.NET,這是非常清楚的VBA,所以爲什麼要這樣標記它? –

+1

看起來不像ASP-Classic – ThunderFrame

+1

在註冊表中搜索正確的應用程序名稱。在Windows 7上,您可以找到它「HKEY_LOCAL_MACHINE \ SOFTWARE \ Wow6432Node \ RegisteredApplications」,然後替換「Set wrd = GetObject(,」Word.Applicat離子「)」「。然後它可能會工作 – Naidu

回答

0

已解決!

在註冊表中搜索正確的應用程序名稱。在Windows 7上,您可以在 「HKEY_LOCAL_MACHINE \ SOFTWARE \ Wow6432Node \ RegisteredApplicati ons」中找到它。 可以在 中找到它。 然後在「設置WRD = GetObject的(, 「更換新的名稱Word.Application」)

由於@pavanc

它被調用,而不是Word.Application

Word.Application.16
0

我不知道,如果它只是你一個降價的錯誤,但你的代碼需要分隔行:

Set wrd = GetObject(, "Word.Application") 
wrd.Visible = True 
wrd.Documents.Open "C:\My Documents\Temp.doc" 
Set wrd = Nothing 

如果這沒有幫助,也許你可以更精確的有關該錯誤你越來越?