
Sub ApriWord()
Dim MioWord As Object, MioDocumento As Object
Dim A, I, NumParag
Dim MiaFrase As Object
On Error Resume Next
Set MioWord = CreateObject("word.application")
Set MioDocumento = MioWord.documents.Open("c:USCITESCUOLAAFFIDO.docx")
MioWord.Visible = True
'MioDocumento.Close
'MioWord.ClearContents
On Error GoTo 0
End Sub
|
