全角和半角实心点的替换

srdjmk

在数学试卷中，题号后面的点是全角，但试卷中数字后面的点是半角，怎么才能一次转换过来，让题号后的点都变成全角，试卷中的点还是半角。另外，选项ABCD后的点也都变成全角。

wdpfox

利用宏代码解决，别说不会用呀：

Sub test()

    With ActiveDocument.Content.Find
        
        
        .Execute "[.．]", , , 1, , , , , , ".", 2
        
        .Execute "([ABCD])(.)", , , 1, , , , , , "\1．", 2
        
        .Execute "(^13)([0-9]{1,})(.)", , , 1, , , , , , "\1\2．", 2
        
        
    End With
   
End Sub

413191246se

半角叫小数点，全角叫齐线墨点。楼上代码不错（并未测试）。

413191246se

半角叫小数点，全角叫齐线墨点。楼上代码不错（未测试）。