Sub Click(Source As Button)
    Dim ws As New NotesUIWorkspace
    Dim udoc As NotesUIDocument
    Set udoc = ws.CurrentDocument
    Dim doc As NotesDocument
    Set doc = udoc.Document
    
    Dim worddoc As Variant
    Dim WordApp As Variant
    Set WordApp = CreateObject ("Word.Application")
    WordApp.Visible=False
    mypatch$ = "C:\XML\123.docx"
    Set worddoc = WordApp.Documents.Open(mypatch$)    
    worddoc.Select
    Set myRange = worddoc.Content
    Msgbox Cstr(myRange.Text)
    WordApp.ChangeFileOpenDirectory "C:\XML\"
    Call    worddoc.SaveAs ("1234.html", 10,False, "",False,"",,,,,,,,,, )
    worddoc.Close
    WordApp.Quit
    
    Call doc.Save( False, True )
    Call udoc.Close
End Sub