懒汉级的自制kindle 6寸pdf电子书的方法

2012-02-11 21:20:23

水墨Civet
2012-02-11 22:52:53 水墨Civet (百毒不侵的人曾经都无可救药过)

我都是用word排版然後用插件導出PDF的,你這個辦法好,回頭試試

azaza
2012-02-12 18:36:42 azaza (深潭)

懒汉你能不能做几本被我啊。。。

少年啊不过如此
2012-02-13 11:56:01 少年啊不过如此 (Call me Sir Lancelot.)

唔- -请问我打开alt-F11后右边没有地方可以贴啊……

will
2012-02-13 12:18:39 will

你在是在word界面按alt+F11吗.正常情况就会出现vba编辑器的界面.除非你禁用了宏. 注意有的笔记本电脑F11是个组合键..要按fn + F11才会有一般电脑键盘F11的效果.....所以可能要按fn + F11 + alt.

少年啊不过如此
2012-02-13 13:27:19 少年啊不过如此 (Call me Sir Lancelot.)

我打开了vba,但是没有出现右边,后来我也不知按了哪个调出来了。能打开编辑器,但是没有编辑页面……现在弄好啦 谢谢

水墨Civet
2012-02-17 17:46:58 水墨Civet (百毒不侵的人曾经都无可救药过)

尝试了一下,的确很好用,我又加了两行设定页面大小的命令,页面自动设置为六寸大小,这样就可以把字设定在12左右了
Sub kindle()
Selection.WholeStory
Selection.PageSetup.PageWidth = CentimetersToPoints(10)
Selection.PageSetup.PageHeight = CentimetersToPoints(12.2)
Selection.PageSetup.RightMargin = CentimetersToPoints(0.1)
Selection.PageSetup.LeftMargin = CentimetersToPoints(0.1)
Selection.PageSetup.TopMargin = CentimetersToPoints(0#)
Selection.PageSetup.BottomMargin = CentimetersToPoints(0#)
Selection.Font.Size = 12
Selection.Font.Name = "微软雅黑"
Selection.Font.Name = "Bookman Old Style"
End Sub

will
2012-02-18 13:22:04 will

貌似你这么写的话.还需要在pdf 的打印页面里面设置页面布局..否则打出来很奇怪.
另外.你还可以自己加两行.连打印都可以自动处理. ctrl+p都不用了..不过为了方便折腾.我还是没有设成自动打印.

水墨Civet
2012-02-19 16:44:48 水墨Civet (百毒不侵的人曾经都无可救药过)

呃,我用的不是PDF虚拟打印机,我用的是word自带的pdf导出功能。
另外我在研究怎么能把自动行距和自动段间距也加进去。

阿Ring
2012-03-10 14:22:35 阿Ring (老老实实当熊猫)

英文版的适用么?为什么我的会显示超出范围 错误4608 请lz帮忙啊大神!中文的都能正常运行 大谢LZ!!!

will
2012-03-10 15:15:03 will

中英文通杀的.超出范围什么的是页面设置引起的.我上次把上下边距设置成0,结果打成了0#,可能是这个问题.你改成0.0试试看.如果还不行改成0.05.

阿Ring
2012-03-10 15:23:14 阿Ring (老老实实当熊猫)

仍旧不行TAT

will
2012-03-10 15:25:47 will

-_- .....那就无视超出范围. 照样可以打印的. 就是每次都要多点一下. 麻烦点

阿Ring
2012-03-10 15:27:26 阿Ring (老老实实当熊猫)

啊 好的 谢谢LZ!

Ludwig
2012-03-17 09:45:26 Ludwig (ka~)

为什么我打开后右面是灰色的。。不能编辑呢@@

阿Ring
2012-03-17 10:06:02 阿Ring (老老实实当熊猫)

ls请仔细对照一下lz的图 要新增一个模块的

will
2012-03-17 12:27:09 will

不用增加模块也可以, 你点一下左边的"thisDocument" 就可以

我叫丁丁
2012-05-09 16:10:47 我叫丁丁 (好想大哭一场。)

好高级。我把字体,页边距什么的都改了,页边距没改的时候,每行都有字被吃掉。还好word玩得比较好,自己改了。真是超级方便啊。
话说,LZ知不知道怎么把其他尺寸的PDF变成6寸的啊?

will
2012-05-09 20:55:18 will

没有办法把其它非文本的pdf变成6寸. 如果是文字pdf的话2个办法 1. 最简单.发到amazon的邮箱转. 2. 粘贴===复制到word===排版===然后打印6寸.
非文字的pdf还是用ipad或者dxg看吧.

赛道
2012-05-10 09:05:09 赛道

分享pdf制作教程 http://www.yjpdf.com/pdf/

乱麻斩快刀
2012-06-04 14:56:47 乱麻斩快刀 (后悔做过总好过没做后悔。)

把图片做成PDF漫画不知LZ有没研究

thinkbond
2012-06-11 13:19:22 thinkbond (PKM_GTD_PM_Reading)

建议在楼主代码的基础上增加页眉页脚的设置,这样可以避免pdf页面下部多出一块空白

will
2012-06-15 22:37:55 will

话说我发现在office 2007 中虚拟打印速度比2003快好多倍.

安恰恰
2012-06-16 16:04:47 安恰恰 (Life does not wait for anyone)

为什么在word里显示的页面刚刚好,但是打出的pdf就后面一大片空白呢?页边距已经设置好了。

will
2012-06-16 19:53:54 will

我打出来并没有下面一片空白啊 谁截个图上来看看

安得广厦千万间
2012-10-22 00:22:24 安得广厦千万间

这就叫懒?
话说还有多少人不了解可以直接从WORD2010另存为PDF格式的?
在WORD2010中排好版,另存为PDF即可,根本不需要什么虚拟打印机!!!!

will
2012-10-22 11:23:13 will

呵呵,不是所有人都装了word 2010的啊.不过我还真是不知道word2010有这个功能.主要是foxit pdf creator用的太顺手了. 平时存个网页什么的。。

水墨Civet
2012-10-23 12:17:33 水墨Civet (百毒不侵的人曾经都无可救药过)

也对,虚拟打印机毕竟是所见即所得的模式,直接导出有时候反倒是会有显示不全的情况

安得广厦千万间
2012-10-26 13:23:14 安得广厦千万间

现在不仅WORD有直接另存为PDF的功能了,而且WPS都有了直接另存为PDF的功能了。经测试,完全所见即所得,并且直接目录/标题直接转换为PDF书签/标签。还不够变态?

安得广厦千万间
2012-10-26 13:26:30 安得广厦千万间

刚刚测试,使用虚拟打印生成的PDF没有书签!

安得广厦千万间
2012-10-26 15:45:39 安得广厦千万间
刚刚测试,使用虚拟打印生成的PDF没有书签! 刚刚测试,使用虚拟打印生成的PDF没有书签! 安得广厦千万间

速度也比较慢

zeroreh
2013-02-03 14:30:18 zeroreh
尝试了一下,的确很好用,我又加了两行设定页面大小的命令,页面自动设置为六寸大小,这样就可以 尝试了一下,的确很好用,我又加了两行设定页面大小的命令,页面自动设置为六寸大小,这样就可以把字设定在12左右了 Sub kindle() Selection.WholeStory Selection.PageSetup.PageWidth = CentimetersToPoints(10) Selection.PageSetup.PageHeight = CentimetersToPoints(12.2) Selection.PageSetup.RightMargin = CentimetersToPoints(0.1) Selection.PageSetup.LeftMargin = CentimetersToPoints(0.1) Selection.PageSetup.TopMargin = CentimetersToPoints(0#) Selection.PageSetup.BottomMargin = CentimetersToPoints(0#) Selection.Font.Size = 12 Selection.Font.Name = "微软雅黑" Selection.Font.Name = "Bookman Old Style" End Sub ... 水墨Civet

比楼主那个排版要稍微让人舒服点。。谢谢咯

Lampsan
2013-02-12 14:11:58 Lampsan (自古CP不可逆)

昨天用word2003成功了,可是因为要看2007版本的就下了个兼容包,然后宏就不能用了,求问肿么办

will
2013-02-12 17:18:29 will

2007 是默认禁止宏的.在安全设置里面把宏设置成可以用就可以了

骑滑板车的大叔
2013-03-07 10:11:52 骑滑板车的大叔 (知道个人解决方案不? 看我资料)
2007 是默认禁止宏的.在安全设置里面把宏设置成可以用就可以了 2007 是默认禁止宏的.在安全设置里面把宏设置成可以用就可以了 will

改位置比较好,改信任不安全

sharpderek
2013-03-10 21:55:22 sharpderek

谢谢分享

立体几何
2013-04-15 00:56:57 立体几何

perfect

魔鬼见怜
2013-05-02 19:33:40 魔鬼见怜 (世界上有谁在笑,世界上有谁在哭)

有没有办法做四寸的啊

will
2013-05-02 19:47:00 will

4寸,9寸,不管几寸都一样.因为电子书都是长方屏幕,比例都是差不多的.关键在于调字号. 你调节下字体大小,看看几号字体舒服就用几号字体啦. 越小的屏幕,字体要越大.

heaven
2013-05-11 17:54:35 heaven
4寸,9寸,不管几寸都一样.因为电子书都是长方屏幕,比例都是差不多的.关键在于调字号. 你调节下字 4寸,9寸,不管几寸都一样.因为电子书都是长方屏幕,比例都是差不多的.关键在于调字号. 你调节下字体大小,看看几号字体舒服就用几号字体啦. 越小的屏幕,字体要越大. ... will

那已经制作好的9寸PDF可以修改成6寸吗?

will
2013-05-11 18:48:37 will

如果是文字版的pdf话,把文字拷贝出来.调格式..然后重新做成6寸的.

平小猪
2013-06-30 17:19:57 平小猪

9寸的怎么设置呀,谢谢.

Conan
2013-08-03 11:31:39 Conan

为什么按照上面的宏运行后显示数值超出范围啊?求教!~

Lee_Buendia
2013-11-25 12:42:49 Lee_Buendia

我的也是超出范围,用的是word2010

木头鱼鱼
2013-12-05 21:46:13 木头鱼鱼

其实创建一个模板,专门用来制作6寸pdf的word模板,比楼主说的vba代码更加适用。

kindle114.com
2014-01-07 14:36:51 kindle114.com (www.kindle114.com kindle电子书)

kindle电子书下载推荐 http://www.kindle114.com 很多精排版的不错!

azaza
2014-01-31 01:30:47 azaza (深潭)

公子新年好呀~~~~

吕
2014-02-18 09:57:06 (集中你所有的智慧和热忱)

awesome

梧桐树叶像手掌
2014-04-22 19:08:50 梧桐树叶像手掌

请问楼主,我用的是word2003,打开Word后按Ctrl+F11或者fn+ctrl+F11后什么都没有显示,这是为什么呢?求指教,谢谢!

will
2014-04-23 00:48:40 will
请问楼主,我用的是word2003,打开Word后按Ctrl+F11或者fn+ctrl+F11后什么都没有显示,这是为什 请问楼主,我用的是word2003,打开Word后按Ctrl+F11或者fn+ctrl+F11后什么都没有显示,这是为什么呢?求指教,谢谢! ... 梧桐树叶像手掌

因为要按alt+F11........alt.......

终南道可道
2014-05-29 14:47:47 终南道可道

PDF可以做目录吗?


推荐这篇日记的豆列  · · · · · ·  ( 全部 )