Expert: Ran - 7/2/2009

Question
QUESTION: Hi!
Is there a manner to convert multiples artistic texts into paragraph texts in Corel X4? I did a research about it but it seems impossible to convert many text fields all at once... What I am looking for is a "magic" Ctrl-F8 that will make dozens or hundreds of text fields from multi-page corel documents into paragraph texts. The purpose is to export all those pages into HTML documents using "Publish to the web".
Thank you very much!
Rodrigo

ANSWER: Ctrl-F8 will only convert one field at a time, as you already know.

The only possible solution I can think of would be a fairly straightforward VBA script which would iterate through all of the text fields and change them automatically. However I can't help you with this because it is outside my knowledge at present, sorry.

---------- FOLLOW-UP ----------

QUESTION: I tried using macros but Corel seems not to accept them for text convertions. I believe I did everything according to Corel Help lessons... and actually they mention that "some tasks are not supported by macros". Any other ideas, please?

Answer
I'd presumed you'd need to manually write the script, rather than recording a macro, because I'd think that's the only way you'd be able to select all of the text on all of the pages.

I'm not a VBA expert but if I was tackling this for myself I'd start off with something like this:

        Sub ListFonts()
         Application.ScreenUpdating = False
         Documents.Add Template:="normal"
         For Each aFont In PortraitFontNames
         With Selection
         .Font.Bold = True
         .Font.Underline = True
         .Font.Name = "arial"
         .Font.Size = 10
         .TypeText aFont
         .InsertParagraphAfter
         .MoveDown unit:=wdParagraph, Count:=1, Extend:=wdMove
         .Font.Bold = False
         .Font.Underline = False
         .Font.Name = aFont
         .Font.Size = 36
         .TypeText "www.newhorizons.co.uk"
         .InsertParagraphAfter
         .MoveDown unit:=wdParagraph, Count:=1, Extend:=wdMove
         .Font.Size = 20
         .TypeText "Air Conditioning & Heating"
         .InsertParagraphAfter
         .InsertParagraphAfter
         .MoveDown unit:=wdParagraph, Count:=1, Extend:=wdMove
         End With
         Next aFont
         Application.ScreenUpdating = True
        End Sub

...which is a Word script which lists all of your system fonts, so it's not quite what you want but it starts the ball rolling. You can't get it to simulate a Ctrl+F8 keypress as such, but you use the menu command instead. I don't know what the correct field names are in the For Each statement, you'll need to figure this out yourself somehow!

Good luck, but what a great problem to solve!