My modified Word2PML macro

10-08-03, 01:53 AM

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.

BonBon · 12-24-03, 03:19 PM

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

spintrian · 12-28-03, 01:11 PM

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?

12-28-03, 11:35 PM

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:

leoram · 09-14-04, 06:06 PM

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.

09-18-04, 06:02 PM

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.

09-25-04, 12:09 AM

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...

johnnytee · 03-18-05, 02:00 PM

To Talyn

nicely done... macro worked flawlessly

pgraxim · 04-01-05, 05:58 PM

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

rusty1000 · 07-04-05, 05:04 AM

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

pgraxim · 07-06-05, 06:07 AM

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.

rusty1000 · 07-08-05, 09:47 AM

Hi and thanks I will try this over the weekend and let you know

rusty1000 · 07-19-05, 09:02 AM

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

Volki · 11-03-08, 08:29 AM

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.