Lines Matching refs:wrd
3116 Dim wrd As Word.application
3137 Set wrd = New Word.application
3138 If val(wrd.Version) < CSUPPORTED_VERSION Then
3140 TOPIC_STR, wrd.Version, CR_STR, Chr(13))
3147 If Not CheckForAccesToWordVBProject(wrd) Then
3149 If Not GiveAccessToMacroProject(APP_WORD, wrd.Version, RegValue) Then
3164 Set aDoc = wrd.Documents.Open(fileName:=sWordDriverDocPath)
3174 wrd.Run ("AnalysisTool.AnalysisDriver.AnalyseDirectory")
3176 wrd.Visible = False
3181 SetDefaultRegValue APP_WORD, wrd.Version, RegValue
3184 DeleteRegValue APP_WORD, wrd.Version
3189 If Not wrd Is Nothing Then wrd.Quit (False)
3190 Set wrd = Nothing
3200 Set wrd = Nothing