FindFile_Word

Finds a file within open documents of current instance


Public

Tested

My Own Work
Function FindFile_Word(FileOnlyName)
' Finds a file within open documents
Found1 = False
For i = 1 To Documents.Count
If UCase(FileOnlyName) = UCase(Documents(i).Name) Then
Found1 = True
Exit For
End If
Next
FindFile_Word = Found1
End Function

FileOnlyName

If FindFile_Word("Resume 2018.doc") Then Msgbox "Please open doc first"

Views 3274 Downloads 1267

VBA-Word Components
ANmarAmdeen
813
Revisions

v1.0