运行时错误424 要求对象 。老问题,但我有点自己的疑问_涉及到赋值
关于 “运行时错误424 要求对象 ”这个可能是老问题了 。我搜了一下网上的解决 。没有解决关于我的疑问的。
-------- 下面这个例子 是word 帮助里的 , 当然，直接运行 ，肯定是有问题的 begin -----------------
Sub SelectRange()
Dim rngParagraph As Range
Set rngParagraph = ActiveDocument.Paragraphs(2).Range
rngParagraph.SetRange Start:=rngParagraph.Start, _
End:=ActiveDocument.Paragraphs(3).Range.End
rngParagraph.Select
Selection.Font.Italic = True
End Sub
-------- 下面这个例子 是word 帮助里的 当然，直接运行 ，肯定是有问题的 end -----------------
自己试了一下 ，代码如下：
Sub Test()
Dim objWordApp As Object
Dim objWord As Object
'Dim objWord As Word.Document
Dim myRange As Object
Dim mySelection As Word.Selection
' Dim mySelection As Object
' Dim mySelection As Selection
' Dim rngParagraph As Range
Dim rngParagraph As Object
Set objWordApp = CreateObject("Word.Application")
Set objWord = objWordApp.Documents.Open("d:\测试文件.doc")
Set rngParagraph = objWord.Paragraphs(1).Range
rngParagraph.SetRange Start:=rngParagraph.Start, _
End:=objWord.Paragraphs(2).Range.End
Set mySelection = rngParagraph.Select ' 运行到这里错误 ，错误为 “运行时错误424 要求对象”
'rngParagraph.Select 返回的不是selection 对象吗 ？为什么赋值出现问题,我要怎么声明才对了
' rang对象 要怎么样的方式 ，才可以转化为SELECTION 对象啊 ？
'以下三种方式都试了不可以
' Dim mySelection As Word.Selection
' Dim mySelection As Object
' Dim mySelection As Selection
mySelection.Font.Size = 25
objWord.Save
objWord.Close
objWordApp.Quit
End Sub
[解决办法]
