Document.UserControl (Word)

True se o documento foi criado ou aberto pelo usuário. Boolean de leitura/gravação.

Essa propriedade retorna false se o documento foi criado ou aberto por programação a partir de outro aplicativo do Microsoft Office com o método Open ou o comando CreateObject ou GetObject do Visual Basic.

Set wd = New Word.Application 
Set wdDoc = _ 
 wd.Documents.Open("C:\My Documents\doc1.doc") 
If wdDoc.UserControl = True Then 
 MsgBox "This document was created or opened by the user." 
Else 
 MsgBox "This document was created programmatically." 
End If