[求助]如何解决："替换内容"含有超出范围的一组数的错误?

ak144

我想把域里的源文件路径改为当前的所在的文件夹，但当选用通配符时总是如题报错，手动也不例外（不使用通配符时，就正常，但我想在VBA中处理，这就要用到通配符了），代码如下： Sub replepath() ' ' Dim a As String Dim d As String Dim c As String a = ActiveDocument.path b = a & Application.PathSeparator & "所得税汇算清缴工作底稿.xls" c = Replace(b, "\", "\\") MsgBox c ActiveWindow.View.ShowFieldCodes = Not ActiveWindow.View.ShowFieldCodes Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = """?:*""" .Replacement.Text = c .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = True .MatchWildcards = True .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ActiveWindow.View.ShowFieldCodes = Not ActiveWindow.View.ShowFieldCodes End Sub 弄了一天多，真不知如何解决。 y4JDiPw8.zip (227.38 KB, 下载次数: 37)

2006-2-1 01:41 上传

点击文件名下载附件
[求助]如何解决："替换内容"含有超出范围的一组数的错误?

[此贴子已经被作者于2006-2-1 1:45:29编辑过]

守柔

原因在于替换中有“\(\\）”的存在，WORD无法区分在使用通配符时的该标记。分两步替换。

Sub replepath()
Dim OldText As String, NewText As String
Application.ScreenUpdating = False
With ActiveDocument
.ActiveWindow.View.ShowFieldCodes = True
NewText = .path
NewText = VBA.Replace(NewText, "\", "//")
OldText = "LINK Excel.Sheet.8 ""*(所得税汇算清缴工作底稿.xls"")"
With .Content.Find
.ClearFormatting
.Text = OldText
.MatchWildcards = True
.Replacement.Text = "LINK Excel.Sheet.8 """ & NewText & "//" & "\1"
.Execute Replace:=wdReplaceAll
.ClearFormatting
.Text = "//"
.MatchWildcards = False
.Replacement.Text = "\\"
.Execute Replace:=wdReplaceAll
End With
.ActiveWindow.View.ShowFieldCodes = False
.Fields.Update
End With
Application.ScreenUpdating = True
End Sub

ak144

谢谢你的指教,我还想请教一下,

OldText = "LINK Excel.Sheet.8 ""*(所得税汇算清缴工作底稿.xls"")"

'我试过去掉括弧就会出错,括弧有什么作用?

.Replacement.Text = "LINK Excel.Sheet.8 """ & NewText & "//" & "\1"

"\1"有什么作用? 我去掉它好相也没有什么不同.

守柔

以下是引用[I]ak144[/I]在2006-2-1 11:28:24的发言：[BR]

谢谢你的指教,我还想请教一下,

OldText = "LINK Excel.Sheet.8 ""*(所得税汇算清缴工作底稿.xls"")"

'我试过去掉括弧就会出错,括弧有什么作用?

.Replacement.Text = "LINK Excel.Sheet.8 """ & NewText & "//" & "\1"

"\1"有什么作用? 我去掉它好相也没有什么不同.

你应该去看一下这个链接： http://club.excelhome.net/dispbbs.asp?BoardID=23&replyID=62420&id=111182&skin=0

ssq1109

如有通配符时，“\”用“^092”代替就不会有问题，不要用“\\”表示“\”，我用此法多次，屡试屡爽！

fzl

守柔大师:

能不能比较系统的详细介绍"替换"功能的"特殊字符"里的每一项选项的用法?

ssq1109

帮助文件是最好的老师,我前段有同样的疑问,有天我把WORD 2003有关查找替换的帮助文件调出来仔细体会试验,收获很大.

守柔大侠也会同意我这个观点吧!

守柔

以下是引用[I]ssq1109[/I]在2006-2-2 0:30:31的发言：[BR]如有通配符时，“\”用“^092”代替就不会有问题，不要用“\\”表示“\”，我用此法多次，屡试屡爽！

谢谢SSQ1109的提示! 我修改了一下,请楼主测试一下. Sub replepath() Dim OldText As String, NewText As String Application.ScreenUpdating = False With ActiveDocument .ActiveWindow.View.ShowFieldCodes = True NewText = .path NewText = VBA.Replace(NewText, "\", "^092^092") OldText = "LINK Excel.Sheet.8 ""*(所得税汇算清缴工作底稿.xls"")" With .Content.Find .ClearFormatting .Text = OldText .MatchWildcards = True .Replacement.Text = "LINK Excel.Sheet.8 """ & NewText & "\1" .Execute Replace:=wdReplaceAll End With .ActiveWindow.View.ShowFieldCodes = False .Fields.Update End With Application.ScreenUpdating = True End Sub