Lines Matching refs:aDoc

127     Dim aDoc As Document
151     Set aDoc = Documents.Open(fileName, False, False, False, _
156         Set aDoc = Documents.Open(fileName, False, True, False, _
171     If aDoc Is Nothing Then GoTo FinalExit
174     Analyze_Password_Protection aDoc.HasPassword, aDoc.WriteReserved
175     Analyze_Document_Protection aDoc
177     If aDoc.ProtectionType <> wdNoProtection Then
179             aDoc.Unprotect (myPassword)
181             aDoc.Unprotect
186     SetDocProperties mAnalysis, aDoc, fso
190     Analyze_Tables_TablesInTables aDoc
191     Analyze_Tables_Borders aDoc
192     Analyze_TOA aDoc
194         Analyze_FieldAndFormFieldIssues aDoc
196     Analyze_OLEEmbedded aDoc
197     Analyze_MailMerge_DataSource aDoc
198     Analyze_Macros mAnalysis, userFormTypesDict, aDoc
212                     aDoc.SaveAs preparedFullPath
222     If Not aDoc Is Nothing Then 'If Not IsEmpty(aDoc) Then
223         aDoc.Close (False)
225     Set aDoc = Nothing