我在编一个查找替换的宏遇到这样一个问题,有时运行有效果,有时没效果,为什么?
语法上应该没什么错误,请潘老师看看.(我把这个宏贴过来,有的字和音标不能显示)
Sub pdftodocipa ()
'
' pdftodocipa Macro
' 宏在 03-8-04 由 guqin 录制
'
WordBasic.EditReplace find:=" 犪", Replace:="", ReplaceAll:=1, Wrap:=1
WordBasic.EditReplace find:=" ", Replace:="", ReplaceAll:=1, Wrap:=1
WordBasic.EditReplace find:="  ", Replace:="", ReplaceAll:=1, Wrap:=1
WordBasic.EditReplace find:=" ", Replace:="", ReplaceAll:=1, Wrap:=1
WordBasic.EditReplace find:=" ?", Replace:="", ReplaceAll:=1, Wrap:=1
WordBasic.EditReplace find:=" 犲", Replace:="e", ReplaceAll:=1, Wrap:=1
WordBasic.EditReplace find:=" 犈", Replace:="", ReplaceAll:=1, Wrap:=1
WordBasic.EditReplace find:=" ", Replace:="", ReplaceAll:=1, Wrap:=1
WordBasic.EditReplace find:=" ", Replace:="", ReplaceAll:=1, Wrap:=1
WordBasic.EditReplace find:=" ", Replace:="", ReplaceAll:=1, Wrap:=1
WordBasic.EditReplace find:=" 狌", Replace:="", ReplaceAll:=1, Wrap:=1
WordBasic.EditReplace find:=" ", Replace:="", ReplaceAll:=1, Wrap:=1
WordBasic.EditReplace find:=" 狋", Replace:="t", ReplaceAll:=1, Wrap:=1
WordBasic.EditReplace find:=" 狓", Replace:="", ReplaceAll:=1, Wrap:=1
WordBasic.EditReplace find:=" 犿", Replace:="", ReplaceAll:=1, Wrap:=1
WordBasic.EditReplace find:=" 狀", Replace:="", ReplaceAll:=1, Wrap:=1
WordBasic.EditReplace find:=" ", Replace:="", ReplaceAll:=1, Wrap:=1
WordBasic.EditReplace find:=" 犻", Replace:="i", ReplaceAll:=1, Wrap:=1
WordBasic.EditReplace find:=" 犽", Replace:="k", ReplaceAll:=1, Wrap:=1
WordBasic.EditReplace find:=" ", Replace:="", ReplaceAll:=1, Wrap:=1
WordBasic.EditReplace find:=" ", Replace:="", ReplaceAll:=1, Wrap:=1
WordBasic.EditReplace find:=" 犱", Replace:="d", ReplaceAll:=1, Wrap:=1
WordBasic.EditReplace find:=" 狅", Replace:="o", ReplaceAll:=1, Wrap:=1
WordBasic.EditReplace find:=" ", Replace:="", ReplaceAll:=1, Wrap:=1
WordBasic.EditReplace find:=" 狔", Replace:="", ReplaceAll:=1, Wrap:=1
WordBasic.EditReplace find:=" ", Replace:="", ReplaceAll:=1, Wrap:=1
WordBasic.EditReplace find:=" 狆", Replace:="p", ReplaceAll:=1, Wrap:=1
WordBasic.EditReplace find:=" 犫", Replace:="b", ReplaceAll:=1, Wrap:=1
WordBasic.EditReplace find:=" 犳", Replace:="", ReplaceAll:=1, Wrap:=1
WordBasic.EditReplace find:=" 犾", Replace:="l", ReplaceAll:=1, Wrap:=1
WordBasic.EditReplace find:=" ", Replace:="", ReplaceAll:=1, Wrap:=1
WordBasic.EditReplace find:=" ", Replace:="", ReplaceAll:=1, Wrap:=1
WordBasic.EditReplace find:=" ", Replace:="", ReplaceAll:=1, Wrap:=1
WordBasic.EditReplace find:=" 狊", Replace:="s", ReplaceAll:=1, Wrap:=1
WordBasic.EditReplace find:=" ", Replace:="Ƨ", ReplaceAll:=1, Wrap:=1
WordBasic.EditReplace find:=" ", Replace:="", ReplaceAll:=1, Wrap:=1
WordBasic.EditReplace find:=" ", Replace:="S", ReplaceAll:=1, Wrap:=1
WordBasic.EditReplace find:=" 狏", Replace:="", ReplaceAll:=1, Wrap:=1
WordBasic.EditReplace find:=" 犺", Replace:="h", ReplaceAll:=1, Wrap:=1
WordBasic.EditReplace find:=" 狕", Replace:="", ReplaceAll:=1, Wrap:=1
WordBasic.EditReplace find:=" ", Replace:="", ReplaceAll:=1, Wrap:=1
WordBasic.EditReplace find:=" ", Replace:="’", ReplaceAll:=1, Wrap:=1
WordBasic.EditReplace find:=" ", Replace:="Ʒ", ReplaceAll:=1, Wrap:=1
WordBasic.EditReplace find:=" ", Replace:="", ReplaceAll:=1, Wrap:=1
WordBasic.EditReplace find:=" 犮", Replace:="", ReplaceAll:=1, Wrap:=1
WordBasic.EditReplace find:=" 狑", Replace:="w", ReplaceAll:=1, Wrap:=1
WordBasic.EditReplace find:=" 犐", Replace:="I", ReplaceAll:=1, Wrap:=1
WordBasic.EditReplace find:=" 犛", Replace:="S", ReplaceAll:=1, Wrap:=1
WordBasic.EditReplace find:=" 犅", Replace:="B", ReplaceAll:=1, Wrap:=1
WordBasic.EditReplace find:=" 犖", Replace:="N", ReplaceAll:=1, Wrap:=1
WordBasic.EditReplace find:=" 狉", Replace:="r", ReplaceAll:=1, Wrap:=1
WordBasic.EditReplace find:=" ", Replace:="-", ReplaceAll:=1, Wrap:=1
WordBasic.EditReplace find:=" ", Replace:="╳", ReplaceAll:=1, Wrap:=1
WordBasic.EditReplace find:=" ", Replace:="：", ReplaceAll:=1, Wrap:=1
WordBasic.EditReplace find:=" 瑏瑠", Replace:="○10", ReplaceAll:=1, Wrap:=1
WordBasic.EditReplace find:="犆", Replace:="C", ReplaceAll:=1, Wrap:=1


End Sub

好多空白啊。

还有，我放的主控室里的一本VB的书你是不是借走了？[em05]

我在WORD里都显示的,贴到这里就看不见了,为什么?
没有没有,偶没看到那书.
偶借了你DVD,但是不能放,已经还回来了.气~~~~
BTW:下个星期装远程控制的软件,我看过,机器没死,只是需要人工重启.

[此贴子已经被作者于2003-8-4 19:43:51编辑过]

你用的是Wordbasic的语句，而且没有格式。最好用VB的语句写宏。VB的替换语句如下：

    Selection.find.ClearFormatting  ‘清除以前的寻找的格式
    Selection.find.Replacement.Font.Name = "IpaPanADD"  ’设定被替换的字符的字体
    With Selection.find
      .Text = ""  ‘被替换的字符
        .Replacement.Text = ChrW(166)  ’替换成的字符，ASC码超过127的最好用字符的ASC码
        .Forward = True  '替换的方向往前
        .Wrap = wdFindContinue    '替换了一个字符以后接着替换
        .Format = True    '有格式的替换
    End With
    Selection.find.Execute Replace:=wdReplaceAll  '执行以上的替换过程
End Sub

谢谢,潘老师,我来试试.