没有使用*dotm , 一切格式皆在 *.docx 。
希望简单就好，让大家都可以排古籍。
如果要ms word 批量转换直排符号，可以参考以下「宏」：
- Sub 转中文直排符号()
- Dim findArray As Variant
- Dim replaceArray As Variant
- Dim i As Integer
-
- ' 原始标点符号
- findArray = Array("，", "、", "。", "：", "；", "！", "？")
-
- ' 使用 ChrW() 方式输入 Unicode 直排标点符号
- replaceArray = Array(ChrW(&HFE10), ChrW(&HFE11), ChrW(&HFE12), ChrW(&HFE13), ChrW(&HFE14), ChrW(&HFE15), ChrW(&HFE16))
-
- ' 遍历替换
- With Selection.Find
- .ClearFormatting
- .Replacement.ClearFormatting
- .Forward = True
- .Wrap = wdFindContinue
- .MatchWildcards = False
-
- For i = LBound(findArray) To UBound(findArray)
- .Text = findArray(i)
- .Replacement.Text = replaceArray(i)
- .Execute Replace:=wdReplaceAll
- Next i
- End With
-
- MsgBox "标点符号转换完成！", vbInformation, "转换完成"
- End Sub
|
發表於 1-1-2025 21:21:17
發表於 9-1-2025 14:53:26
發表於 24-1-2025 10:56:24
