[Word 2016] Macro con errore 91

[biasutti]

Ho questa macro che dovrebbe estrarre da un file di word tutte le righe che hanno al loro interno la scritta Vedi pag.
Eseguendola da come errore: errore 91 variabile oggetto o variabile del blocco with non impostata
=================

Sub CercaAll()
Dim fString As String
Dim wdStory As String
Dim HomeKey As String
Dim fCount As Long, dDoc As Document
'
fString = "Vedi Pag." '<<< La stringa da cercare
'
Documents.Add 'DocumentType:=wdNewBlankDocument
Set dDoc = ActiveDocument
ThisDocument.Select
Application.ScreenUpdating = False
fCount = 0
With Selection
.HomeKey unit:=wdStory
With .Find
.ClearFormatting
.Text = fString
'Cerca:
Do While .Execute
DoEvents
fCount = fCount + 1
Selection.HomeKey unit:=wdLine
Selection.EndKey unit:=wdLine, Extend:=wdExtend
Selection.Copy
dDoc.Activate
Selection.EndKey unit:=wdStory
Selection.Range.Text = vbCrLf
Selection.PasteSpecial datatype:=wdPasteText
ThisDocument.Activate
Selection.MoveRight unit:=wdWord, Count:=1
Loop
End With
Debug.Print fString & " - "; fCount & " volte"
End With
Application.ScreenUpdating = True
MsgBox ("Completato...")
End Sub


Qualcuno può risolvere il mio problema segnalando dove intervenire per eliminare l'errore
Grazie anticipatamente