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

墨问非名-汉化教程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

重要概念

知道软换行硬换行的区别:

软换行

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

硬换行

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

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

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吧:

后记

视频背后大概就是这样。

有问题评论~

最后编辑于
©著作权归作者所有,转载或内容合作请联系作者
平台声明:文章内容(如有图片或视频亦包括在内)由作者上传并发布,文章内容仅代表作者本人观点,简书系信息发布平台,仅提供信息存储服务。

推荐阅读更多精彩内容