★《Word非常接触》答疑解惑与讨论专贴★

竹林茶香

版主的佳作P263讲到字符或表达式的通配符列表,对于{m,}我想在数组中将3个以上的全角空格转换为两个全角空格.我用"　{3,}"替换成"　　＂．为什么在数组中没有效果呢？

守柔

QUOTE:

以下是引用竹林茶香在2006-11-27 14:34:34的发言：
版主的佳作P263讲到字符或表达式的通配符列表,对于{m,}我想在数组中将3个以上的全角空格转换为两个全角空格.我用"　{3,}"替换成"　　＂．为什么在数组中没有效果呢？

您勾选了通配符选项了吗？

如图所示，应该没有问题的。

 

竹林茶香

QUOTE:

以下是引用守柔在2006-11-28 6:11:06的发言：

您勾选了通配符选项了吗？

如图所示，应该没有问题的。

 

在如图所示中没有问题.

我想在数组中使用这个通配符.不知有限制没?

守柔

QUOTE:

以下是引用竹林茶香在2006-11-28 9:47:17的发言：

在如图所示中没有问题.

我想在数组中使用这个通配符.不知有限制没?

能否给我看一下，你的所谓数组是何方神圣，我们这样隔山打老牛，很累的。

OK？上传一个附件。

竹林茶香

    Dim myFind() As Variant, myReplace() As Variant, aArray As Variant
    Dim N As Byte
    '定义一个查找内容的数组
    myFind = Array(" ","　{3,}")
    '定义一个替换内容的数组
    myReplace = Array("　","　　")
    '关闭屏幕更新
    Application.ScreenUpdating = False
    '在数组中循环
    For Each aArray In myFind
        '活动文档中查找与替换
        With ActiveDocument.Content.Find
            .ClearFormatting
            .Replacement.ClearFormatting
            .Wrap = wdFindStop
            .Execute findtext:=aArray, Replacewith:=myReplace(N), Replace:=wdReplaceAll
            N = N + 1    '累加
        End With
    Next
    '恢复屏幕更新
    Application.ScreenUpdating = True

就是在这个宏中，“　{3,}"不起作用。请指点！谢谢。 

守柔

QUOTE:

以下是引用竹林茶香在2006-11-29 10:05:10的发言：

就是在这个宏中，“　{3,}"不起作用。请指点！谢谢。 

        For Each aArray In myFind
        '活动文档中查找与替换
        With ActiveDocument.Content.Find
            .ClearFormatting
            .Replacement.ClearFormatting
            .Wrap = wdFindStop
            .MatchWildcards = True
            .Execute findtext:=aArray, Replacewith:=myReplace(N), Replace:=wdReplaceAll
            N = N + 1    '累加
        End With
    Next
    '恢复屏幕更新
    Application.ScreenUpdating = True
-----------------------------------------------------

        For Each aArray In myFind
        '活动文档中查找与替换
        With ActiveDocument.Content.Find
            .ClearFormatting
            .Replacement.ClearFormatting
            .Wrap = wdFindStop
            .MatchWildcards = True
            .Execute findtext:=aArray, Replacewith:=myReplace(N), Replace:=wdReplaceAll
            N = N + 1    '累加
        End With
    Next
    '恢复屏幕更新
    Application.ScreenUpdating = True
-----------------------------------------------------

      .MatchWildcards = True'使用通配符

[此贴子已经被作者于2006-11-29 18:41:16编辑过]

竹林茶香

谢谢守柔版主!

刘老汉

期待再一个excel接触，版主！[em05]

精灵幽灵

我也是为了学习，用了下宏录制的功能，打开宏录制后我就关闭了WORD窗口，并保存了摸板 ，我将宏名保存为了AUTOOPEN，这是一个自动打开即执行的命令，可再以后我打开宏时他就立即执行关闭窗口命令，取消啊。谢谢大家的帮助。

零距离

54页的编辑顶点步骤我做了有点不明白,是先画出三条交叉直线还是一要直线.

55页图片处理,倒数第三行第一个逗号前有一个小小的错误.

有一个小建议,设立一个抓虫区,专门挑出这本书印刷上的错误,版主在第二次印刷时就可以更改过来了,方便大家学习.