文件夹下所有半角标点符号替换

菜菜行者

需要查找的标点符号主要是半角，要替换为输入法为中文状态的符号
如这是英文状态下的符号     　  ,;[]():!
要替换为相应的中文状态　　　，；［］()：！


希望能对某文件夹下批量处理


谢谢各位老师了！！！

duquancai

不就是遍历文件，循序替换！不用写了，之前都写烂了！！！

duquancai

Sub shishu()
    a = Array(",", ";", "[", "]", "(", ")", ":", "!")
    b = Array("，", "；", "［", "］", "（", "）", "：", "！")
    With ActiveDocument.Content.Find
        For i = 0 To UBound(a)
            .Execute a(i), , , 0, , , , , , b(i), 2
        Next
    End With
End Sub
自己加上文件夹下文件遍历就OK了！！！