Wie löse ich den Fehler beim Auffinden der Word-Datei?

Question

Ich versuche, den Speicherort der Word-Datei zu öffnen, die den folgenden Fehler gibt. Während des Debugging habe ich den Fehler am folgenden Ort gefunden. Ich bin newbee für die VBA jemand mir helfen kann

Mein Code ist

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 nicht hinzufügen new seiner Definition erstellt oder als neu eingestellt später, aber bevor Sie verwenden es.

Answer 2

Sie müssen eine Instanz von wrdApp erstellen.

Answer 3

Bei einer Schätzung hängt es beim Öffnen des Dokuments - sind Sie sicher, dass Sie den richtigen Pfad und Dateinamen haben? Bewegen

wrdApp.Visible = True 

bis vor der „Set Wdoc ...“ Zeile und überprüfen, ob die Datei geöffnet wird