word宏”中英文标点互换”不运行，求助

lpf1014

从网上找了word宏”中英文标点互换“代码，也认真核对过，就是不能运行，显示”缺少子程序、函数或属性“，不知道这是哪里有问题


Sub ToggleInterpunction() '中英文标点互换
Dim ChineseInterpunction() As Variant, EnglishInterpunction() As Variant
Dim myArrayl() As Variant, myArray2() As Variant, strFind As String, strRep As String
Dim msgResult As VbMsgBoxResult, N As Byte
'定义一个中文标点的数组对象
ChineseInterpunction Array("。", "，", "；", "：", "？", "！", "……", "—", "～", "〔", "〕", "《", "》", "‘", "’", "“", "”")
'定义一个英文标点的数组对象
EnglishInterpunction Array(".", ",", ";", ":", "?", "!", "…", "-", "~", "(", ")", "<", ">", "'", "'", """", """")
'提示用户交互的MSGBOX双对话框
msgResult = MsgBox("您想中英标点互换吗?按Y将中文标点转为英文标点,按N将英文标点转为中文标点!", vbYesNoCancel)
Select Case msgResult
Case vbCancel
Exit Sub '如果用户选择了取消按钮，则退出程序运行
Case vbYes '如果用户选择了YES,则将中文标点转换为英文标点
myArray1 = ChineseInterpunction
myArray2 = EnglishInterpunction
strFind = """(*)"""
strRep = """\1"""
Case vbNo '如果用户选择了NO,则将英文标点转换为中文标点
myArray1 = EnglishInterpunction
myArray2 = ChineseInterpunction
strFind = """(*)"""
strRep = """\1"""
End Select
Application.ScreenUpdating = False '关闭屏幕更新
For N = 0 To UBound(ChineseInterpunction) '从数组的下标到上标间作一个循环
With ActiveDocument.Content.Find
.ClearFormatting '不限定查找格式
.MatchWildcards = Fa1se '不使用通配符
'查找相应的英文标点，替换为对应的中文标点
.Execute findtext:=myArray1(N), replacewith:=myArray2(N), Replace:=wdReplaceAll
End With
Next
With ActiveDocument.Content.Find
.ClearFormatting '不限定查找格式
.MatchWildcards = True '使用通配符
.Execute findtext:=strFind, replacewith:=strRep, Replace:=wdReplaceAll
End With
Application.ScreenUpdating = True '恢复屏幕更新
End Sub

jyjjf

试试这2个宏，从慧办公的插件里抄来了常用的标点符号，另外英文没有顿号，可以忽略；另外慧办公插件里也有这个功能，只是它替换的是全文（包括页眉页脚部分），会员还能使用批量文档替换），我试了可以用。
Sub 英文转中文标点()
    Dim selRange As Range
    Set selRange = Selection.Range
     Dim ywbd As Variant
    Dim zwbd As Variant
    Dim i As Integer
    ywbd = Array("、", ".", ",", ";", ":", "?", "!", "…", "-", "~", "(", ")", "<", ">", "[", "]")  '英文标点数组
    zwbd = Array("、", "。", "，", "；", "：", "？", "！", "……", "—", "～", "（", "）", "《", "》", "【", "】") '对应中文标点数组
   
    For i = LBound(ywbd) To UBound(ywbd)
        With selRange.Find
            .ClearFormatting
            .Text = ywbd(i)
            .Replacement.Text = zwbd(i)
            .Execute Replace:=wdReplaceAll
        End With
    Next i
End Sub

Sub 中文转英文标点()
    Dim selRange As Range
    Set selRange = Selection.Range
    Dim ywbd As Variant
    Dim zwbd As Variant
    Dim i As Integer
    ywbd = Array("、", ".", ",", ";", ":", "?", "!", "…", "-", "~", "(", ")", "<", ">", "[", "]")  '英文标点数组
    zwbd = Array("、", "。", "，", "；", "：", "？", "！", "……", "—", "～", "（", "）", "《", "》", "【", "】") '对应中文标点数组
   
    For i = LBound(ywbd) To UBound(ywbd)
        With selRange.Find
            .ClearFormatting
            .Text = zwbd(i)
            .Replacement.Text = ywbd(i)
            .Execute Replace:=wdReplaceAll
        End With
    Next i
End Sub

lpf1014

如果能够选定替换区域就更好啦

yunquan

我一般都是用Ctrl+H里面的搜索和替换功能。

lpf1014

yunquan 发表于 2024-3-9 15:20
我一般都是用Ctrl+H里面的搜索和替换功能。

是的，所以想提高工作效率，一键完成

freelive

求助：word宏命令；中英文段落标点符号修改
https://www.52pojie.cn/thread-1622500-1-1.html

lpf1014

freelive 发表于 2024-3-9 20:56
求助：word宏命令；中英文段落标点符号修改
https://www.52pojie.cn/thread-1622500-1-1.html

首先感谢您能看到我的求助，另外我的wps怎么不能运行，显示下标越界，第二个版本也是一样，能发下你自用的版本吗

lpf1014

jyjjf 发表于 2024-3-8 22:31
试试这2个宏，从慧办公的插件里抄来了常用的标点符号，另外英文没有顿号，可以忽略；另外慧办公插件里也有 ...

感谢您的帮助，亲测可以选定区域替换。