请教老师们如何用宏命令打开WORD？

程研

请教老师们如何用宏命令打开WORD程序？谢谢！

t小宝

用vba代码：
Dim MyWord As Object
Set MyWord = CreateObject("Word.Application")
MyWord.Documents.Add
MyWord.Visible = True

程研

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

谢谢老师！

程研

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

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

123shusheng

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

这一句报错，为什么？