[求助]批量清除下划线部分最后一个空格的下划线

gemj

批量清除下划线部分最后一个空格的下划线：

71.   The cameras of the Voyager II spacecraft detected six small, previously unseen moons circling Uranus, which doubles to 12 the number of satellites now known as orbiting the distant planet.

(A) which doubles to 12 the number of satellites now known as orbiting

(B) doubling to 12 the number of satellites now known to orbit

(C) which doubles to 12 the number of satellites now known in orbit around

(D) doubling to 12 the number of satellites now known as orbiting

(E) which doubles to 12 the number of satellites now known that orbit

这个题目的格式，完美主义一点来说应该是这样的：

71.   The cameras of the Voyager II spacecraft detected six small, previously unseen moons circling Uranus, which doubles to 12 the number of satellites now known as orbiting the distant planet.

也就是最后那个空格不应该有下划线，我怎么用一个替换命令就把文档中众多的此类空格下划线清除？

目前我只能用两个替换实现。

c81

好象确实要用3步以上来替换。

[此贴子已经被作者于2006-12-12 22:34:29编辑过]

liujy

这个问题太难了!看来是要守柔、如意或konggs这三位老大出手才行了！！

期待这个问题早日得到解决。

yuyvtul

一步替换应该不可能。

守柔

QUOTE:

以下是引用yuyvtul在2006-12-12 22:38:09的发言：
一步替换应该不可能。

同意，两步是正解。

我用VBA解决一下吧，不过效率不是太高。

Option Explicit

Sub Example()
    Dim myRange As Range, EndChar As Range
    Application.ScreenUpdating = False
NF:     If myRange Is Nothing Then
        Set myRange = Me.Content
    Else
        myRange.SetRange myRange.End, Me.Content.End - 1
    End If
    With myRange.Find
        .ClearFormatting
        .Text = ""
        .Format = True
        .Font.Underline = True
        Do While .Execute = True
            Set EndChar = myRange.Characters.Last
            If EndChar.Text = " " Then EndChar.Underline = False
            GoTo NF
        Loop
    End With
    Application.ScreenUpdating = True
End Sub
如果在标准模块中，请把Me关键字改为Activedocument.

gemj

守柔就是守柔啊，呵呵！

周日就在当当订了本非常接触，今天下午才能送到。

搞笑的是昨天下午送书的都说到楼下了，马上就上来，结果到晚上10还没到。

正以激动的心情准备拜读版主的大作呢！

gemj

我问这个问题的意思是想知道有没有一个通配符是用来删除查找内容的最后一个（或N个）字符的。

呵呵，看来应该是没有了。

poetbox

QUOTE:

以下是引用gemj在2006-12-13 12:17:00的发言：

我问这个问题的意思是想知道有没有一个通配符是用来删除查找内容的最后一个（或N个）字符的。

呵呵，看来应该是没有了。

删除查找的最后一个字符是完全可以的。可是删除掉，两个单词就连上了，那也不象话啊。

删除掉再加一个空格，它自动又会加下划线，只能两步走。先把最后一个空格下划线换成某个不常用字符，再第二步将它换成无下划线的空格。

gemj

QUOTE:

以下是引用poetbox在2006-12-17 20:35:23的发言：

删除查找的最后一个字符是完全可以的。可是删除掉，两个单词就连上了，那也不象话啊。

删除掉再加一个空格，它自动又会加下划线，只能两步走。先把最后一个空格下划线换成某个不常用字符，再第二步将它换成无下划线的空格。

说的在理！

怎么个删除啊？

好比说我在查找内容里什么都不输，只是把格式设成下划线；

那么在“替换为”框里输入什么就可以删除查找内容的最后一个字符呢？

谢过了！

poetbox

QUOTE:

以下是引用gemj在2006-12-17 20:46:26的发言：

说的在理！

怎么个删除啊？

好比说我在查找内容里什么都不输，只是把格式设成下划线；

那么在“替换为”框里输入什么就可以删除查找内容的最后一个字符呢？

谢过了！

你把你的问题复杂化了，其实你的问题最后一个字符并不需要专门用什么函数之类的东西取出，都是固定的一个：“空格”而已，哈哈，那么把最后空格分别出来即可。