Office中国论坛/Access中国论坛

标题: 打开Word文件.并使处理界面位于Word最顶端，适当调整Word位置，关闭Word其它功能并 [打印本页]

作者: WTM1 时间: 2002-9-21 02:00
标题: 打开Word文件.并使处理界面位于Word最顶端，适当调整Word位置，关闭Word其它功能并
'打开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

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)