Word 简易古籍排版

阿勤 · 發表於 1-1-2025 21:21:17

今天制作了一个Word简易古籍排版，就排一本《千字文》吧，欢迎下载及指正，谢谢！

字体采用《康熙字典体传承版》，您还可以使用此 Word 文档来排版其他古籍。如果需要修改页面中央的版心文字，只需在 Word 中选择 [插入 -> 页眉 -> 编辑页眉] 即可轻松完成。

为什么要用word 排古藉？主要为了方便普及大家排版使用与推广古籍。当然word 也有不足之处，但对于一般古籍排版也足够了。

更新：
【2025.01.12】更新鱼尾符及Word 简易古籍排版。

为了方便制作古籍的鱼尾符，我们今天更新了《康熙字典体传承版》，新增了多种鱼尾符样式。用户只需在 Word 或 Notepad 中输入相关的 Unicode 编号，并按下 Alt + X 键即可显示相应的鱼尾符。此外，您也可以下载我们提供的鱼尾符 Word 文件，直接复制使用。

更新版的 Word 简易古籍排版１，采用傳統鱼尾符（黑魚尾），标点符号置中：

更新版的 Word 简易古籍排版２，采用新的鱼尾符（花魚尾），标点符号靠上右：

列印出来后自己再缝线装书：

下载文档如下，《千字文》有二种不同的标点，你又喜欢哪一种标点呢？

千字文１.docx (42.74 KB, 下載次數: 1029)

千字文１.pdf (604.75 KB, 下載次數: 975)

千字文2.docx (42.9 KB, 下載次數: 974)

千字文2.pdf (617.5 KB, 下載次數: 965)

魚尾符.docx (20.82 KB, 下載次數: 818)

bigdhx · 發表於 9-1-2025 14:53:26

做的真不错

阿勤 · 發表於 15-1-2025 21:27:32

今天排《心經》，請大家多多指教。

心經.docx (41.67 KB, 下載次數: 814)

心經.pdf (127.02 KB, 下載次數: 875)

阿勤 · 發表於 22-1-2025 12:19:35

剛剛排完《老子道德經》，也解決word 轉 pdf 時「魚尾符」出現跑位問題，主因是word本身直排文字轉word 可能會跑位。

我們採用word 版本来排古籍主要是方便大家使用，也易普及。

喜歡的朋友歡迎下載及指正。如果你要排古籍，不妨用這個老子道德經的word 版本来排。

以下《老子道德經》有兩種不同的標點，兩重排法，不知你又喜歡哪一種呢？

老子道德經1.docx (71.23 KB, 下載次數: 673)

老子道德經1.pdf (782.5 KB, 下載次數: 826)

老子道德經2.docx (61.57 KB, 下載次數: 687)

老子道德經2.pdf (732.83 KB, 下載次數: 836)

老子道德經3.docx (50.6 KB, 下載次數: 577)

老子道德經3.pdf (623.37 KB, 下載次數: 747)

蓼汀花溆 · 發表於 24-1-2025 10:56:24

阿勤發表於 22-1-2025 12:19 PM
剛剛排完《老子道德經》，也解決word 轉 pdf 時「魚尾符」出現跑位問題，主因是word本身直排文字轉word 可 ...

去年用了幾個月的時間研究《帛書老子五千言》，也就是德書在前，道書在後的版本，從漢朝馬王堆墳墓中挖掘出來的，有兩個版本，分別叫甲本，乙本，跟以上的標點有很大的差別。
以上傳世版道德經這兩種版本的標點，如果不論標點斷開所影響的文言文理解的話，但論標點外形，還是以第二種類似於全形的標點比較好看。

tcm · 發表於 8-2-2025 16:21:14

鱼尾符和墨围字很典雅，喜欢

阿勤 · 發表於 13-2-2025 22:44:49

今日重新再排一次《道德經》，這是我比較滿意的排版。
排好後趕緊用宣紙列印出来，再一一縫成一本古籍綫装書，不知大家喜歡這種排版嗎？請大家多多指教。

老子道德經５.docx (56.79 KB, 下載次數: 249)

老子道德經５.pdf (640.35 KB, 下載次數: 252)

sanwsw · 發表於 17-2-2025 14:00:27

中文古籍排版用之模板文件（*.dotm）能否上傳分享？

阿勤 · 發表於 23-2-2025 12:02:22

sanwsw 發表於 17-2-2025 02:00 PM
中文古籍排版用之模板文件（*.dotm）能否上傳分享？

没有使用*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

複製代碼

bigdhx · 發表於 31-3-2025 15:01:08

老子道德經５.docx 这个版本不能下载了，提示没有文件呢

阿勤 · 發表於 4-4-2025 23:09:25

bigdhx 發表於 31-3-2025 03:01 PM
老子道德經５.docx 这个版本不能下载了，提示没有文件呢

修正了，请再试试。

bigdhx · 發表於 7-4-2025 09:17:32

阿勤發表於 4-4-2025 11:09 PM
修正了，请再试试。

已经可以下载，多谢

		自動登錄	找回密碼
密碼			注册