墨问非名-汉化教程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
注意行末符号:
这样一页就变成对应一个段落。
Word中选取下一段落的快捷键是Ctrl
+Shift
+↓
,
然后交给AutoHotKey
吧:
后记
视频背后大概就是这样。
有问题评论~
网友评论