墨问非名-汉化教程5——自动分页填字

前言

我知道我做的美漫汉化教程挺欺负人的，该写清楚的地方云里雾里。唉，可是懒癌上来挡不住啊。

准备

首先要有格式准确的稿子。

意思就是每页页码标清楚，这是重点！

然后在保留格式信息的情况下转成纯文本：

把换行替换成の

Sub 缩行()
With Selection.Find
    .Text = "^p" '查找
    .Replacement.Text = "の" '替换
    .Wrap = wdFindContinue
    .MatchByte = True
    .MatchWildcards = False '不使用通配符
End With
Selection.Find.Execute Replace:=wdReplaceAll '全部替换
End Sub

转换成Markdown

因为上一步处理，不会多出奇怪的换行。

扔进谷歌表格拿正则表达式过一过

屏幕快照 2016-05-25 下午11.30.37.png

变成可以用来填字并且有格式指示的文档

2016-05-25_233123.png

扔进Word

2016-05-25_233218.png

重要概念

知道软换行和硬换行的区别：

软换行

Shift+Enter
不另起段落
在Word查找替换中以^l表示
符号形如↓

硬换行

Enter
另起段落
在Word查找替换中以^p表示
符号形如↵

根据页码标记转换换行类型

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 With
Selection.Find.Execute Replace:=wdReplaceAll '全部替换
End Sub