Notices

Ebooks Talk about those wonderful ebooks here !

Reply
 
LinkBack Thread Tools
Old 10-08-03, 01:53 AM   #1 (permalink)
Talyn
Guest
 
Posts: n/a
Cool My modified Word2PML macro

This may be of interest to anyone who creates Palm Reader ebooks using Palm's DropBook or Ebook Studio. I used their original Word2PML and cleaned up a little bit of the code, and added some more code to handle some additional PML and formatting that should have been in the original. I'm sure it could still use some work here and there, but it's working much better than the Palm original did.

Requires MS Word, obviously; just put the .dot wherever you keep your other templates.
Attached Files:
File Type: zip word2pml.zip (23.9 KB, 1323 views)
  Reply With Quote
Sponsor Ads
Old 12-24-03, 03:19 PM   #2 (permalink)
Aximsite Prospect
 
Join Date: Dec 2003
Posts: 4
Thanked 0 Times in 0 Posts
Big Smile

Thanks Talyn, I've been looking for this everywhere.

In case you're interested, I added a subroutine to handle Chapter Titles.
Just apply style 'Heading 1', 'Heading 2', 'Heading 3' for corresponding chapter title level 1, 2, and 3. Then this macro will put chapter title enclosure on them.
The good thing about having chapter titles is we'll also have a nice table of contents.

Code:
Private Sub doHeading()
    Dim i As Integer
    '''Heading 1 -> /X0 ... /X0
    '''Heading 2 -> /X1 ... /X1
    '''Heading 3 -> /X2 ... /X2
    For i = 0 To 2
        Selection.HomeKey unit:=wdStory
        With Selection.Find
            .Format = True
            .ClearFormatting
            .Style = "Heading " & Trim(Str(i + 1))
            .Text = ""
            .Wrap = wdFindContinue
            Do While .Execute
                Selection.Text = "\X" & Trim(Str(i)) & Selection.Text & "\X" & Trim(Str(i))
                Selection.MoveRight unit:=wdCharacter, Count:=1
            Loop
        End With
    Next i
End Sub
Then, just call this routine from the main sub Public Sub Word2PML() before the end of the sub.

Code:
    Application.Run macroname:="doHeading"
cheers,

BonBon
BonBon is offline   Reply With Quote
Old 12-28-03, 01:11 PM   #3 (permalink)
Aximsite Prospect
 
Join Date: Dec 2003
Posts: 1
Thanked 0 Times in 0 Posts
I just downloaded your version of Word2PML - unfortunately the original site doesn't seem to have it any more.

I'm using Word 97, and the macro doesn't seem to work. Any suggestions?
spintrian is offline   Reply With Quote
Old 12-28-03, 11:35 PM   #4 (permalink)
Talyn
Guest
 
Posts: n/a
You added the macro to your document, right? I'm using Word XP but I think it's still Tools->Templates and Add-ins in 97?

There are no extra menus, icons or toolbars, just use the Run Macro (ALT+F8) to select and run it.

Here's the original version from Palm though:
Attached Files:
File Type: zip word2pml.zip (18.8 KB, 163 views)

Last edited by Talyn; 12-28-03 at 11:37 PM.
  Reply With Quote
Old 09-14-04, 06:06 PM   #5 (permalink)
Aximsite Prospect
 
Join Date: Sep 2004
Posts: 1
Thanked 0 Times in 0 Posts
Modified program

Originally Posted by BonBon
Thanks Talyn, I've been looking for this everywhere.

In case you're interested, I added a subroutine to handle Chapter Titles.
Just apply style 'Heading 1', 'Heading 2', 'Heading 3' for corresponding chapter title level 1, 2, and 3. Then this macro will put chapter title enclosure on them.
The good thing about having chapter titles is we'll also have a nice table of contents.

Code:
Private Sub doHeading()
    Dim i As Integer
    '''Heading 1 -> /X0 ... /X0
    '''Heading 2 -> /X1 ... /X1
    '''Heading 3 -> /X2 ... /X2
    For i = 0 To 2
        Selection.HomeKey unit:=wdStory
        With Selection.Find
            .Format = True
            .ClearFormatting
            .Style = "Heading " & Trim(Str(i + 1))
            .Text = ""
            .Wrap = wdFindContinue
            Do While .Execute
                Selection.Text = "\X" & Trim(Str(i)) & Selection.Text & "\X" & Trim(Str(i))
                Selection.MoveRight unit:=wdCharacter, Count:=1
            Loop
        End With
    Next i
End Sub
Then, just call this routine from the main sub Public Sub Word2PML() before the end of the sub.

Code:
    Application.Run macroname:="doHeading"
cheers,

BonBon
Where can I get your version of Word2PML with your routine for titles added? Does it work with foreign language texts, russian in particular? Thank you for your help.
leoram is offline   Reply With Quote
Old 09-18-04, 06:02 PM   #6 (permalink)
Leifr
Guest
 
Posts: n/a
Thanks a lot, Talyn and BonBon. Thanks to this handy little post I've finally been able to put some of my favorite books on my Treo 600.

Does anyone know of an ebook creator that will allow me to put cover images on my pdb documents? Dropbook doesn't do it. At least, not the one I have. I suppose there could be a new version.
  Reply With Quote
The Following User Says Thank You to For This Useful Post:
rmhartman (07-21-09)
Old 09-25-04, 12:09 AM   #7 (permalink)
Talyn
Guest
 
Posts: n/a
Dropbook will do it if you follow the instructions precisely, and the image is the correct format, color depth, etc.
It's quite finicky about it.

I'll get around to a new version of the macro one of these days. I've been playing with Linux for awhile now and rarely boot to Windows unless I'm in the mood for a game. If I could get hold of the unreleased Linux DropBook beta that I've read about, that'd be sweet too...
  Reply With Quote
Old 03-18-05, 02:00 PM   #8 (permalink)
Aximsite Prospect
 
Join Date: Dec 2004
Posts: 3
Thanked 0 Times in 0 Posts
thanks

To Talyn

nicely done... macro worked flawlessly
johnnytee is offline   Reply With Quote
Old 04-01-05, 05:58 PM   #9 (permalink)
Aximsite Prospect
 
Join Date: Oct 2004
Posts: 2
Thanked 0 Times in 0 Posts
I've done an improved version of this macro (really, tons of improvements, and a lot easier to use). Check it out at the link below.

Publish eBook
-------------
Convert your structured Word documents to eBooks with just one click!
http://pwp.netcabo.pt/Gorod/PublisheBook
pgraxim is offline   Reply With Quote
Old 07-04-05, 05:04 AM   #10 (permalink)
Aximsite Prospect
 
Join Date: Jul 2005
Posts: 3
Thanked 0 Times in 0 Posts
Help

Originally Posted by BonBon
Thanks Talyn, I've been looking for this everywhere.

In case you're interested, I added a subroutine to handle Chapter Titles.
Just apply style 'Heading 1', 'Heading 2', 'Heading 3' for corresponding chapter title level 1, 2, and 3. Then this macro will put chapter title enclosure on them.
The good thing about having chapter titles is we'll also have a nice table of contents.

Code:
Private Sub doHeading()
    Dim i As Integer
    '''Heading 1 -> /X0 ... /X0
    '''Heading 2 -> /X1 ... /X1
    '''Heading 3 -> /X2 ... /X2
    For i = 0 To 2
        Selection.HomeKey unit:=wdStory
        With Selection.Find
            .Format = True
            .ClearFormatting
            .Style = "Heading " & Trim(Str(i + 1))
            .Text = ""
            .Wrap = wdFindContinue
            Do While .Execute
                Selection.Text = "\X" & Trim(Str(i)) & Selection.Text & "\X" & Trim(Str(i))
                Selection.MoveRight unit:=wdCharacter, Count:=1
            Loop
        End With
    Next i
End Sub
Then, just call this routine from the main sub Public Sub Word2PML() before the end of the sub.

Code:
    Application.Run macroname:="doHeading"
cheers,

BonBon


Hi Can you pleaee tell me how to incorporate your code into the macro. I am not a programmer and find all of this very technical.

I would be grateful if you could give me step by ste for this cheers
rusty1000 is offline   Reply With Quote
Old 07-06-05, 06:07 AM   #11 (permalink)
Aximsite Prospect
 
Join Date: Oct 2004
Posts: 2
Thanked 0 Times in 0 Posts
Originally Posted by rusty1000
Hi Can you pleaee tell me how to incorporate your code into the macro. I am not a programmer and find all of this very technical.

I would be grateful if you could give me step by ste for this cheers
Rusty, I don't mean to be excessively self-promoting, but Publish eBook (http://pwp.netcabo.pt/Gorod/PublisheBook) is exactly intended for non-tech users to get rid of this kind of stuff. You just have to press a button and it will convert headings and lots of other stuff effortlessly. No need to mess in VBA.

I'm sure you'll find it worthwhile to check out.

Thanks.
pgraxim is offline   Reply With Quote
Old 07-08-05, 09:47 AM   #12 (permalink)
Aximsite Prospect
 
Join Date: Jul 2005
Posts: 3
Thanked 0 Times in 0 Posts
Hi and thanks I will try this over the weekend and let you know
rusty1000 is offline   Reply With Quote
Old 07-19-05, 09:02 AM   #13 (permalink)
Aximsite Prospect
 
Join Date: Jul 2005
Posts: 3
Thanked 0 Times in 0 Posts
HI Gang,

This is the amateur ebookster rusty1000. Just wanted to thank you(Pgraxim) for this utility its really fab and does EXACTLY what is said out to do. I will obviously be spending more and more time perfrecting the art of ebookmanship
Thanks again
rusty1000 is offline   Reply With Quote
Old 11-03-08, 08:29 AM   #14 (permalink)
Aximsite Prospect
 
Volki's Avatar
DAP Rookie
 
Join Date: Nov 2008
Location: Franconia, Germany
Posts: 1
Device: Nokia 6288
Carrier: T-Mobile
Thanked 0 Times in 0 Posts
Aximsitex3icon german version

Hi folks,

thanks from me as well for this working macro.:)
I thought I give you the german version for anybody who looked for it as long as I did, included is a Word97-2003 .dot file and a Word2007 .dotm file.
Attached Files:
File Type: zip Word2PML_de.zip (73.3 KB, 12 views)
Volki is offline   Reply With Quote
Reply

Sponsor Ads

Thread Tools

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On



All times are GMT -5. The time now is 06:57 PM.
Powered by vBulletin® Version 3.8.2
Copyright ©2000 - 2010, Jelsoft Enterprises Ltd.
Search Engine Friendly URLs by vBSEO 3.3.0
Copyright © 2003-10 LeckMedia, LLC