XOOPS製作電子書

電子書如何做？
光一個PDF，在網頁上，很難看。 
XOOPS有個書籍模組
我試試看，用WORD編好一本書，然後，列印出來 jpeg 檔案。
然後，逐頁上傳上去 書籍模組，這樣看起來還不錯。

紀錄一下中間過程。 
一、編好 WORD 檔案
二、WORD 檔名，最好列印前改用英文檔名，用Paperless Printer 印出 jpeg 檔案 產生的 jpeg 檔案名稱，就會是 英文檔名+000nn.jepg
三、由於 產生的 nn 序號，不好，必須 重新 RENAME 成為 正確的序號檔案 xxxx.jepg xxxx0001.jepg xxxx0002.jepg ... xxxx00010.jepg Paperless Printer 是這樣編序號的。所以，必須修改

四、使用 Excel 檔案，來做一個 Batch 檔案，
DOS的 RENAME source_filename target_filename 
Excel VBA寫一個 GetFileNames 模組函數
Function GetFileNames(ByVal FolderPath As String) As Variant
Dim Result As Variant
Dim i As Integer
Dim MyFile As Object
Dim MyFSO As Object
Dim MyFolder As Object
Dim MyFiles As Object
Set MyFSO = CreateObject("Scripting.FileSystemObject")
Set MyFolder = MyFSO.GetFolder(FolderPath)
Set MyFiles = MyFolder.Files
ReDim
Result(1 To MyFiles.Count) i = 1
For Each MyFile In MyFiles
Result(i) = MyFile.Name
i = i + 1
Next MyFile
GetFileNames = Result
End Function

 然後，在Excel 工作表中： A1 : your_directory A3: =IFERROR(INDEX(GetFileNames($A$1),ROW()-2),"")
其中 ROW()-2 是現在在 A3 row3 , -2 才能得到 1, 這是 index
GetFileNames 出來的是一個 Array
然後，將 A3 往下複製，就可以拉出所有的 檔案名稱出來了 
在右邊 C3: =RIGHT(A3,9)，取出檔案名稱右邊9個字元，就可以得到 序號的檔名
然後，再 E3: ="RENAME """ & A3 & """ """ & C3
在 Excel中，字元雙引號，只要重複兩次雙引號，就可以得到字元雙引號。
再往下複製出來一串 RENAME指令 將之複製到一個文字檔案，存檔成為 xxx.bat 然後，執行該 .bat檔 完成！

五、將這些 Jpeg 檔案，上傳到主機 xoops / uploads / tad_book3 / image / your_folder

 六，編輯 Xoops 上 tad書籍，

 完成！