Office中国论坛/Access中国论坛

标题: 请教老师们如何用宏命令打开WORD？ [打印本页]

作者: 程研 时间: 2013-10-8 17:50
标题: 请教老师们如何用宏命令打开WORD？
请教老师们如何用宏命令打开WORD程序？谢谢！

作者: t小宝 时间: 2013-10-8 21:09
用vba代码：
Dim MyWord As Object
Set MyWord = CreateObject("Word.Application")
MyWord.Documents.Add
MyWord.Visible = True

作者: 程研 时间: 2013-10-11 11:04

t小宝发表于 2013-10-8 21:09
用vba代码：
Dim MyWord As Object
Set MyWord = CreateObject("Word.Application")

谢谢老师！

作者: 程研 时间: 2013-10-11 16:28
本帖最后由程研于 2013-10-11 16:29 编辑

程研发表于 2013-10-11 11:04
谢谢老师！

谢谢指点！已实验成功！请教一下老师：用同样的方法将代码中的“Word" 换成“Excel”后就打不开Excel程序呢？代码在“Excel.Visible = True”报错，请指导如何修改代码，打开Excel程序！谢谢！

作者: 123shusheng 时间: 2014-10-2 15:16
Private Sub Command81_Click()
Dim wordApp As New Word.Application
Dim wordArange As Word.Range
Dim wordSelection As Word.Selection

Set wordApp = CreateObject("Word.Application")
wordApp.Visible = True
wordApp.Documents.Open (CurrentProject.Path & "\1.doc")
Set wordSelection = wordApp.Selection
'指定文件编辑位置
Set wordArange = wordApp.ActiveDocument.Range(0, 1)
wordArange.Select
End Sub

这一句报错，为什么？

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