VBA的宏显示“子过程或函数未定义”

在网上找到一个用来检查文章中重复词的宏，但是在测试时提示子过程或函数未定义，不知道怎么修改，求个高手帮帮忙。
代码如下：

Sub FinReP()
Dim iRng As Range, jRng As Range
Dim i As Integer, j As Integer, o As Integer
Set iRng = ActiveDocument.Content
With iRng.Find
.ClearFormatting
.Replacement.ClearFormatting
Do While .Execute(findtext:="<[!^13]@^13<[!^13]@^13", MatchWildcards:=True)
Set jRng = iRng.Duplicate
i = 1
For j = 0 To Len(iRng) - 1
Set jRng = Range(iRng.Start + j, iRng.Start + j + 1)
If jRng Like "[一-﨩]" And jRng.Font.Color = wdColorAutomatic Then
Set fRng = Range(jRng.End, iRng.End)
o = 0
Do While fRng.Find.Execute(findtext:=jRng, MatchWildcards:=False)
i = i + 1
jRng.Font.ColorIndex = i - o
fRng.Font.ColorIndex = i - o
fRng.SetRange fRng.End, iRng.End
o = o + 1
Loop
End If
Next
iRng.SetRange iRng.End, ActiveDocument.Content.End
Loop
End With
End Sub

推荐答案 2018-07-28

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/fvjxyfvjj7e72y3jre.html

其他回答

第1个回答 2015-06-16

代码放在 ThisDocument中不会报错，代码放在模块中就会报错，因为Range需要限定
所有的Range前要加上ActiveDocument.本回答被提问者采纳

第2个回答 2015-06-16

Sub Auto_Open()
ThisWorkbook.Application.Caption = APP_NAME_STR

CreateTableMenu

End Sub

Sub CreateTableMenu()

DeleteTableMenu

MenuBars(xlWorksheet).Menus.Add (MENU_REPORT_STR)

MenuBars(xlWorksheet).Menus(MENU_REPORT_STR).MenuItems.Add Caption:=MENU_REPORT_HISTDATA_SEARCH_STR, OnAction:="FormShow"

End Sub

Sub DeleteTableMenu()

On Error Resume Next

MenuBars(xlWorksheet).Menus(MENU_REPORT_STR).MenuItems(MENU_REPORT_HISTDATA_SEARCH_STR).Delete

On Error Resume Next

MenuBars(xlWorksheet).Menus(MENU_REPORT_STR).Delete

On Error Resume Next

End Sub

Sub FormShow()

UserForm2.Show

End Sub

Function ChangeDate(ByVal OldDate As String) As String

Dim DateLen, i As Long

Dim ss, EndDate As String

Dim mas As Integer

EndDate = ""

DateLen = Len(OldDate)

For i = 0 To DateLen - 1

ss = Mid$(OldDate, i + 1, 1)

mas = Asc(ss)

If mas <> 0 Then

EndDate = EndDate + ss

End If

Next i

ChangeDate = EndDate

End Function

Function GetVBString(ByVal OldStr As String) As String

Dim nLen, i As Long

Dim ss, strRet As String

Dim mas As Integer

Dim nSpacePos As Integer

nLen = Len(OldStr)

nSpacePos = nLen

For i = 0 To nLen - 1

ss = Mid$(OldStr, i + 1, 1)

mas = Asc(ss)

If mas = 0 Then

nSpacePos = i

Exit For

End If

Next i

GetVBString = Left(OldStr, nSpacePos)

End Function本回答被网友采纳

你可能感兴趣的内容

大家正在搜

子程序或函数未定义 MATLAB中未定义函数或变量t 未定义函数或变量wavread 未定义函数或变量x 未定义函数或变量plot 未定义函数或变量randint 函数未定义是什么意思表达式中函数未定义函数未定义类型默认

非常风气网www.verywind.cn

VBA的宏显示“子过程或函数未定义”

相关了解……

你可能感兴趣的内容