単語ファイルの検索でエラーを解決するにはどうすればよいですか？

Question

次のエラーを出す単語ファイルの場所を開こうとしています。デバッグ中に私は次の場所にエラーが見つかりました。私はVBAのためnewbee誰かが私を助けることができています

私のコードは、その定義にnewを追加したり、後で新しいとして設定作成されていない

sub findBearingCopyFromExcel() 
    Dim i As Integer 
    Dim aCell As Range, rng As Range 
    Dim SearchString As String 
Set rng = Range("A750:A1790") 
SearchString = "(248_R), 38,7 %" 

For Each aCell In rng 
    If InStr(1, aCell.Value, SearchString, vbTextCompare) Then 
     ActiveSheet.Range(Cells(aCell.row + 4, 1), Cells(aCell.row + 9, 6)).Copy 
Exit Sub 
     Else: End If 
    Next aCell 
End Sub 
Sub bearingDataFromExcelToWord() 
Dim wrdApp As Word.Application 
Dim wdoc As Word.Document 
Set wdoc = wrdApp.Documents.Open("E:\ShareDrive_Ruehl\full-flexible-MBS-models_report\example-report\FullFlexibleGearbox - Copy.docx") 

wrdApp.Visible = True 
With wdoc 
.Application.Selection.Find.Text = "(248_R), 38,7 %" 
.Application.Selection.Find.Execute 


.Application.Selection.MoveDown Unit:=wdLine, Count:=1 
    .Application.Selection.EndKey Unit:=wdLine 
    .Application.Selection.EndKey Unit:=wdLine 
    .Application.Selection.MoveRight Unit:=wdCharacter, Count:=1 
    .Application.Selection.EndKey Unit:=wdLine 
    .Application.Selection.MoveDown Unit:=wdLine, Count:=6, Extend:=wdExtend 
    .Application.Selection.MoveLeft Unit:=wdCharacter, Count:=5, Extend:=wdExtend 
    .Application.Selection.Paste 
    End With 
End Sub 

Answer 1

wrdAppですが、使用する前にそれ。

Answer 2

wrdAppのインスタンスを作成する必要があります。

Dim wrdApp As Word.Application 
Set wrdApp = New Word.Application 
    wrdApp.Visible = True 

Dim wdoc as Word.Document 
Set wdoc = wrdApp.Documents.Open(...) 

Answer 3

ドキュメントを開くときに掛かっていると思われます。正しいパスとファイル名を使用してください。 「Wdocを設定...」の行の前に

wrdApp.Visible = True 

を移動し、ファイルを開いた場合