一千萬個為什麽

搜索

如何將基於單詞計算的計算頁碼插入ePub文件?



我想根據每頁有多少單詞對ePub文件進行分頁,然後將“頁碼”插入到ePub文件中。在這種情況下,當我在不同的設備上讀取此文件時,我將擁有相同的頁碼。

有沒有辦法做到這一點?謝謝!

轉載註明原文: 如何將基於單詞計算的計算頁碼插入ePub文件?

一共有 2 個回答:

無法動態更改epub2書籍中的內容,但是,理論上您可以在epub3書籍中使用JavaScript來重新編寫書籍分頁,但是,這太過於誇張,因為epub3標準支持頁碼

不幸的是,除iBooks(iOS,MacOS)和 Azardi (Windows,macOS,Linux)支持外,極少有免費軟件應用程序epub3頁碼。

如果您的圖書是教科書,則可能需要考慮使用按需印刷服務提供商。

我想出了一個辦法來做到這一點。它 這不是一個完美的解決方案,但它的作品!

我的想法是,我使用口徑。然後,我使用Microsoft Word的功能將計算出的“頁碼”插入到文本中。最後,我再次使用口徑將修改的Word文件轉換回ePub文件。

如果您對此感興趣,請點擊此處。如果您不知道如何使用宏功能,請點擊此處。這很簡單。

修改代碼以適合您的目的:

  1. In this code, I define a page has 300 word. You can change it to whatever you want.
  2. The page number looks like "8 ". You can change it to other format like "(8)"...

    Sub DemoWords() Application.ScreenUpdating = False Dim Rng As Range, i As Long, j As Long, k As Long, w As Long Const l As Long = 300 'Word per page, now 300 With ActiveDocument Set Rng = .Range(0, 0) With .Range For i = 1 To .Words.Count Step l Rng.MoveEnd wdWord, l With Rng .Collapse wdCollapseEnd .InsertBefore "__" & Round(i/l) + 1 & "__ " .Collapse wdCollapseEnd End With Next End With End With Application.ScreenUpdating = True End Sub