打开Word文件.并使处理界面位于Word最顶端，适当调整Word位置，关闭Word其它功能并

WTM1

'打开Word文件.并使处理界面位于Word最顶端，适当调整Word位置，关闭Word其它功能。

PrivateSub cmdOpenFile_Click()



    CommonDialog1.ShowOpen()



    FileName = CommonDialog1.FileName

    If FileName = "" Then

        ExitSub

    EndIf

    OpenWordDocument(FileName)

    IsShowField(True)

    SetWordSize(0, 42, 2000, 2000)

    CloseCommandBar()



    Me.top = 0

    Me.Left = 0

    Me.width = 100000

    Me.height = 850



    Picture1.top = Me.top

    Picture1.Left = Me.Left + 2000

    cmdSave.Left = 2000

    cmdSave.top = cmdOpenFile.top



    Combo1.Enabled = True

    Combo2.Enabled = True

    cmdSave.Visible = True

    cmdOpenFile.Visible = False



EndSub



'保存Word文件.

PrivateSub cmdSave_Click()

    IsShowField(False)



    CommonDialog2.FileName = gSavePath + FileName

    CommonDialog2.FileName = gSavePath + FileName

    CommonDialog2.ShowSave()

    wdDoc.SaveAs(CommonDialog2.FileName)

EndSub