Sub 缩行() With Selection.Find .Text = "^p" .Replacement.Text = "の" '替换 .Wrap = wdFindContinue .MatchByte = True .MatchWildcards = False '不使用通配符 End With Selection.Find.Execute Replace:=wdReplaceAll '全部替换 End Sub
转换成Markdown
因为上一步处理，不会多出奇怪的换行。
扔进谷歌表格拿正则表达式过一过
变成可以用来填字并且有格式指示的文档
扔进Word
重要概念
知道软换行和硬换行的区别：
软换行
Shift+Enter
不另起段落
在Word查找替换中以^l表示
符号形如↓
硬换行
Enter
另起段落
在Word查找替换中以^p表示
符号形如↵
根据页码标记转换换行类型
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
Sub 填字转分页() With Selection.Find .Text = "^p" '查找硬换行 .Replacement.Text = "^l" '替换为软换行 .Wrap = wdFindContinue .MatchByte = True .MatchWildcards = False '不使用通配符 End With Selection.Find.Execute Replace:=wdReplaceAll '全部替换 With Selection.Find .Text = "^11^11([0-9])([0-9])^11^11" '查找[软换行*2][两位数字][软换行*2]格式的页码 .Replacement.Text = "^p^l" '替换为[硬换行][软换行] .Wrap = wdFindContinue .MatchWildcards = True '不使用通配符 End