How to check word document file is empty or not from excel macro?

You can check the characters count of the document like this to see if the document is empty...

Dim doc As Document
Set doc = ActiveDocument
If doc.Range.Characters.Count = 1 Then
    MsgBox "The document is empty.", vbInformation
End If

Select allOpen in new window

Thanks for your answer Mr. Neeeraj.

But, its work only if document include text and picture, not working document only include shape object (eg. following image).

Thanks for helping me.

Test the file size:

Function IsFileEmpty (strFileName As String) As Boolean
    IsFileEmpty = FileLen(strFileName) = 0
End Function

Select allOpen in new window

Thanks for everyone, Thanks @Rgonzo1971. Its work now. :)

Just out of curiosity, did you try my proposed solution?

That's my fault. I should have asked you about the criteria for considering a document empty. Never mind, glad your issue has been resolved. :)