Vba 在MS Word中运行宏时出现不匹配错误

我正在运行一个宏，该宏将十六进制代码转换为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的值是多少？谢谢！我不小心在代码中留下了内存地址。