[求助]为何VBA不能替换尾注中的换行符？如何解决？

ssq1109

想对尾注文本进行适当的替换，且将换行符和人工换行符前分别加一标记（♀），同时将人工换行符换成段落标记，用了下面的代码，但奇怪的是常规替换部分替换正常，唯独对换行符和人工换行符替换无效！是何原因？如何达到目的？变通解决也可。

Sub 替换尾注()

  '常规替换
    Set myRange = ActiveDocument.Endnotes(1).Range
     myRange.Find.Execute findtext:="[", replacewith:="［", Replace:=wdReplaceAll
     myRange.Find.Execute findtext:="]", replacewith:="］", Replace:=wdReplaceAll
   '替换换段符
     myRange.Find.Execute findtext:="^p", replacewith:="♀^p", Replace:=wdReplaceAll
     myRange.Find.Execute findtext:="^l", replacewith:="♀^p", Replace:=wdReplaceAll

End Sub

I42nkogy.rar (7.85 KB, 下载次数: 11)

2007-3-15 08:48 上传

点击文件名下载附件
[求助]为何VBA不能替换尾注中的换行符？如何解决？

[此贴子已经被作者于2007-3-15 10:01:45编辑过]

守柔

最近很忙，所以也没有更多的时间上论坛了。

请参考：

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋
'* Created By SHOUROU@ExcelHome 2007-3-16 6:09:53
'仅测试于System: Windows NT Word: 11.0 Language: 2052
'№ 0179^The Code CopyIn [ThisDocument-ThisDocument]^'
'* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－
Sub Example()
    Dim myRange As Range, i As Endnote
    Application.ScreenUpdating = False
    For Each i In ActiveDocument.Endnotes
        With i.Range
            .Find.Execute findtext:="[", replacewith:="［", Replace:=wdReplaceAll
            .Find.Execute findtext:="]", replacewith:="］", Replace:=wdReplaceAll
            .Find.Execute findtext:="^l", replacewith:="♀^p", Replace:=wdReplaceAll
            .InsertAfter "♀"
        End With
    Next
    Application.ScreenUpdating = True
End Sub
'----------------------

Sub Example2()
    Dim myRange As Range, i As Endnote
    Application.ScreenUpdating = False
Again:     With ActiveDocument.StoryRanges(wdEndnotesStory).Find
        .Execute findtext:="[", replacewith:="［", Replace:=wdReplaceAll
        .Execute findtext:="]", replacewith:="］", Replace:=wdReplaceAll
        .Execute findtext:="^l", replacewith:="♀^p", Replace:=wdReplaceAll
        Set myRange = ActiveDocument.StoryRanges(wdEndnotesStory)
        While Not (myRange.NextStoryRange Is Nothing)
            GoTo Again
        Wend
    End With
    For Each i In ActiveDocument.Endnotes
        i.Range.InsertAfter "♀"
    Next
    Application.ScreenUpdating = True
End Sub
'----------------------

在你提供的尾注文本中，"^p"是一个可查找内容,但不是一个可以替换的内容,可以从   i.Range.InsertAfter "♀"看出.

正常的尾注文本和脚注文本是可以替换的段落标记的.

[此贴子已经被作者于2007-3-16 6:19:59编辑过]

ssq1109

高手就是高手，两招都能致胜。以后一招更为厉害（速度更快）。

非常感谢！

[此贴子已经被作者于2007-3-16 10:18:19编辑过]

ssq1109

此法如文档中无尾注，则运行错误，为此加下面的语句，不知有无其他问题？

On Error GoTo line1    ' 如无尾注退出程序
……

line1:
End Sub

守柔

QUOTE:

以下是引用ssq1109在2007-3-16 11:18:11的发言：

此法如文档中无尾注，则运行错误，为此加下面的语句，不知有无其他问题？

On Error GoTo line1    ' 如无尾注退出程序
……

line1:
End Sub

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋
'* Created By SHOUROU@ExcelHome 2007-3-17 6:23:13
'仅测试于System: Windows NT Word: 11.0 Language: 2052
'№ 0181^The Code CopyIn [ThisDocument-ThisDocument]^'
'* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－
Option Explicit

Sub Example2()
    Dim myRange As Range, i As Endnote
    '如果没有尾注则退出
    If ActiveDocument.Endnotes.Count = 0 Then Exit Sub
    Application.ScreenUpdating = False
Again:     With ActiveDocument.StoryRanges(wdEndnotesStory).Find
        .Execute findtext:="[", replacewith:="［", Replace:=wdReplaceAll
        .Execute findtext:="]", replacewith:="］", Replace:=wdReplaceAll
        .Execute findtext:="^l", replacewith:="♀^p", Replace:=wdReplaceAll
        Set myRange = ActiveDocument.StoryRanges(wdEndnotesStory)
        While Not (myRange.NextStoryRange Is Nothing)
            GoTo Again
        Wend
    End With
    For Each i In ActiveDocument.Endnotes
        i.Range.InsertAfter "♀"
    Next
    Application.ScreenUpdating = True
End Sub
'----------------------

在编辑的设计中，对于已知错误，可以规避的，没有必要使用处理错误，对于未知错误，必须规避，并且对文档不会产生致命影响的，可以使用On error resume next；对于可能导致文档致命影响（如数据计算），应侦测错误并返回错误信息，由用户决定是否继续程序的运行更好。

ssq1109

谢谢守大侠的指点。以后遇到此类问题我一定会按您说的步骤考虑。

其实我原也想到了If语句，但就是不知道后面怎么准确表达，看帮助文件也未得其果。On Error Resume Next也试过，但测试时好像是死循环，无道理？

已感到WORD越学越有趣，特别是VBA，通过它能知道一些对象的具体运作方式，对对象的属性和方法会有更深的理解，消去对软件的神秘感，同时也能窥见软件编制者和网上高手的绝妙思维。但也觉得越学困惑也越多，也许是水平低所致。不知守版主、孔版主等高手是否也会有疑惑的时候，我想有的话也是“高级烦恼”吧!

比如最近几天遇到的事都感到无道理，先是脚注中的序号用^f查不到，后又出现顶楼的问题，今天又发现新问题：

在守大侠的Sub Example2代码中间加上下面的语句段，意图见注释（要求不对尾注正文中的上标起作用）

    '先去掉尾注标记序号的上标属性,这样更符合中文排版习惯
   With ActiveDocument.StoryRanges(wdEndnotesStory).Find
      .ClearFormatting
      .Text = "^e"
      .Font.Superscript = True
      With .Replacement
          .ClearFormatting
          .Font.Superscript = False
          .Text = "^&"
      End With
      .Execute Format:=True, Replace:=wdReplaceAll
   End With
测试几个文档都可以，如对顶楼的附件就能完全达到目的。但对下面附件中的Test1.doc又不灵了！？这怎么回事呢？又怎样能编出应对各种可能情况的代码呢？

 

DuFTaFec.rar (8.16 KB, 下载次数: 9)

2007-3-17 13:04 上传

点击文件名下载附件
[求助]为何VBA不能替换尾注中的换行符？如何解决？

守柔

QUOTE:

以下是引用ssq1109在2007-3-17 13:12:57的发言：
测试几个文档都可以，如对顶楼的附件就能完全达到目的。但对下面附件中的Test1.doc又不灵了！？这怎么回事呢？又怎样能编出应对各种可能情况的代码呢？

这些问题的来源,主要是楼主或者楼主相关的人员,未严格按照WORD文档自来的要求与功能来做的.

为什么此附件文档不能正确查找呢?

请选中这些文档中的某个尾注或者脚注标记,运行以下代码

Sub Example()
If Asc(Selection.Text) = 2 Then MsgBox "这是尾注/脚注标记!" Else MsgBox "这是普通文本!"
End Sub
VBA只能针对已知对象或者共有属性,才能正确运行.如果象楼主这样不规范的文本标记又无法固定规律的,VBA运行过程中是极易出错的.

[此贴子已经被作者于2007-3-19 6:59:50编辑过]

ssq1109

I see. Thanks a lot!