Excel 2010 VBAランタイムエラー462：リモートサーバーマシンが存在しないか利用できません

Question

ExcelからWord文書に書き込んでいますが、マクロが最初に完了し、すべてのWordアプリケーションが実行されると462エラーが発生しますマクロが再実行されます。私は、非修飾リファレンスに関するMicrosoftの情報をよく読んでいます。この行に何が起きてエラーが発生するのかわからないので、誰かがそれを見つけることができるようにしたいと思っています。

宣言

Dim wrdApp As Word.Application 
Dim wrdDoc As Word.Document 
Dim i As Integer 
Dim titleCount As Long 
Dim Count3, Count4, Count5, endCount3, endCount4, endCount5 As Long 
Dim QLRVar As New Scripting.Dictionary 
Dim IsOffice2013 As Boolean: IsOffice2013 = False 
Dim IsOffice2010 As Boolean: IsOffice2010 = False 

Word文書が開かれた方法/

With wrdApp.ListGalleries(wdOutlineNumberGallery).ListTemplates(1).ListLevels(1) 
    .NumberFormat = "%1. " 
    .TrailingCharacter = wdTrailingTab 
    .NumberStyle = wdListNumberStyleArabic 
    .NumberPosition = InchesToPoints(0) 
    .Alignment = wdListLevelAlignLeft 
    .TextPosition = InchesToPoints(0) 
    .TabPosition = wdUndefined 
    .ResetOnHigher = 0 
    .StartAt = 1 
    .LinkedStyle = "Heading 0" 
End With 

エラーが.NumberPositionライン上でエラーと

On Error Resume Next 
Set wrdApp = GetObject(Class:="Word.Application") 
On Error GoTo 0 
If wrdApp Is Nothing Then 
    Set wrdApp = CreateObject("Word.Application") 
    wrdApp.Visible = True 
    Set wrdDoc = wrdApp.Documents.Add 
Else: 
    wrdApp.Visible = True 
    Set wrdDoc = wrdApp.Documents.Add 
End If 

節は振り返ります。

マクロが非常に大きいので、私は関連する部分だと思っていますが、必要に応じて追加します。

Answer 1

Microsoftは完全に参照してください、すべての参照を修飾する必要があります言う： Microsoft error explanation

私は、これらの参照を追加した「ことば。」あなたのコードに以下の追加：InchesToPointsは（）Wordの機能ですが、私はそれがあることを推測している場合、私は覚えていないこと

With wrdApp.ListGalleries(Word.wdOutlineNumberGallery).ListTemplates(1).ListLevels(1) 
    .NumberFormat = "%1. " 
    .TrailingCharacter = Word.wdTrailingTab 
    .NumberStyle = Word.wdListNumberStyleArabic 
    .NumberPosition = Word.InchesToPoints(0) 
    .Alignment = Word.wdListLevelAlignLeft 
    .TextPosition = Word.InchesToPoints(0) 
    .TabPosition = Word.wdUndefined 
    .ResetOnHigher = 0 
    .StartAt = 1 
    .LinkedStyle = "Heading 0" 
End With 

。私はあなたがそのアイデアを得ることを望みます。

残りのコードも確認してください。すべての修飾されていない参照がこのエラーを引き起こす可能性があります。参照されているすべてのライブラリ（たとえば、Outlook、Excel、ADODBなど）を確認してください。

幸い、それらすべてを見つけることができます。このエラーは、大規模なコードブロックの獣です。私はいつも見逃す1つの参照を見つける方法を知らない。他の誰かが知っている場合は、分かち合ってください。

あなたがどのように作り出したか知ってください。私たちは皆、何が働いているのか、何がないのか分かち合う必要があります