【发布时间】:2020-07-04 03:23:07
【问题描述】:
我正在运行一个将十六进制代码转换为 M68000 编程语言的宏。但是,我收到了错误消息
'类型不匹配'。
这里是相关代码。我在最后一行收到错误。
Dim hxad As String
Dim hx As Long
Dim rnga As Range
Set rnga = ActiveDocument.Paragraphs(1).Range
hxad = Mid(rnga.Text, 1, (InStr(rnga.Text, Chr(13)) - 1)
Set rnga = ActiveDocument.Paragraphs(par).Range
hx = CInt("&H" & Mid(hxad, 3, 4))
我以前可以完美地运行代码,但现在突然间,我无法运行它,即使我没有更改任何内容。
谁能给我一些提示来解决这个问题?
在此先感谢
【问题讨论】:
-
rnga设置后有值吗?如果有,rnga.Text的值是多少? (设置后可以使用Debug.Print rnga.Text查找)-接下来,hxad的值是多少?