Word Formatting Macro (Stingo's Macro)

[JohnP]

So I got the macro copied fine and created the macro. Took a completed ebook that was formatted just right in BD, copied it to word and ran the macro. UGGGH! No more paragraphs, spaces, titles, etc. My first macro so I guess I will just have to learn a bit and selectively use it in Word 2007. Heh!
"What I don't know about Macros would fill a book."

[Strether]

Hopefully, some more knowledgeable person will weigh in on this. My first attempts at using Stingo's macro were on things published on the web and available only in text and it gave the same results: a solid block of words without paragraphs -- pages and pages of it. But I've since used the macro on books in Gutenburg that were only available in text and it worked beautifully. So some things don't work with that macro. No idea why not.

Jim

[kovidgoyal]

The problem is that some txt files use a empty line to indicate paragraph changes while some use indented texts. A particular cleanup method, like Stingo's macro will assume one technique and work well on files that follow that convention.

[Stephanos]

Someone a while back asked about a Word macro to convert text marked with underscores to italics. This code works for me:

Sub UnderscoresToItalics()
'
' UnderscoreToItalics Macro
' Macro recorded 11/14/2007 by Stephen Lins
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "_<*_"
        .Replacement.Text = "^&"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .Replacement.Font.Italic = wdToggle
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "_"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

End Sub

[astra]

Could someone tell me how to use this code?
or point to a book/internet where I can read about it?

I think it is called macros? I have no idea how to use them...

[Stephanos]

astra_lestat, macros are programs that run within a particular application and automate a process that the user would otherwise have to do manually each time. The macros in this thread are for Microsoft Word. See this post: https://www.mobileread.com/forums/sho...5&postcount=18 earlier in this thread to learn how to use macros within Word.

[JohnP]

I need to convert text that has unwanted Paragraph breaks in the middle of sentences, like this (I is indent and P is Paragraph break)
I 'Are you a doctor, sir?' His voice held polite disbelief, which it was P
I entitled to, no doubt. I shook my head impatiently. He glanced at P
I Donald, pursed his lips, and turned back to me. His gaze wandered P
I briefly over my jeans, faded denim jacket, polo-neck, and desert P
I boots, and returned to my face, unimpressed. P

to Regular paragraphs like this:

I 'Are you a doctor, sir?' His voice held polite disbelief, which it was entitled to, no doubt. I shook my head impatiently. He glanced at Donald, pursed his lips, and turned back to me. His gaze wandered briefly over my jeans, faded denim jacket, polo-neck, and desert boots, and returned to my face, unimpressed. P
Is there a way to do it in VB?

[JSWolf]

JohnP, do you have a line space to delineate the start of the next paragraph or some way to tell where the next paragraph starts? If not, you can't do it by a software method.

[Icarusbop]

All:

Over some time during converting some paper books to electronic edition I have developed my own set of macros for repairing book files.
It does the following.....

removes forced CR's (the macro tries to find paragraphs by looking at the end of the proceding line for valid 'end of paragraph patterns' like the full stop for example. Although not infallible I found it works a treat for general documents.)
removes multiple spaces and loops until all gone
set entire doc font
removes multiple rejection characters
fixes lower case ' i ' to ' I '
looks for and highlights (for review) anomolous single lower case letters and numbers.
fixes common ocr punctuation errors
marks for review other common ocr mistakes.
when it finishes it sets the word 'find' field the to (common) ocr rejection characater '~'. so you can start hitting 'find next' to review anything highlighted

various other bits and bats.

This macro will probably break anything with formulas in it and poetry.
It's relatively easy to follow if you read it slowly, you should be able to customise it to your own needs.
If your completely clueless as to macro code and don't want to read through it, backup your file before using! ( in fact, backup your files anyway!)

It will make a little mess of chapter lines - so they will need to be reviewed after running.

I've attached it to this post, I have added comments to it to help clarify what each part does. The file contains a lot of little macros each doing a seperate part, to run them all in order there is a macro called 'main' assign this to a toolbar button and away you go!

[JohnP]

Originally Posted by JSWolf

JohnP, do you have a line space to delineate the start of the next paragraph or some way to tell where the next paragraph starts? If not, you can't do it by a software method.

As a matter of fact, there are spaces between paragraphs. However, I could just highlight the offending paragraph (lot of work that would be too!)

[andylou17]

i don't know how to apply to office 2007
it keep brings me this pop up screen, how do i disable?

[RWood]

Originally Posted by andylou17

i don't know how to apply to office 2007
it keep brings me this pop up screen, how do i disable?

Er, what pop-up screen? We might be able to help if we knew what the problem was.

BTW: Welcome to MobileRead.

[Stratogirl]

I just tried this macro and I am getting this error on Word:

Compile error:
Syntax error

and it highlights the line:

title_author_form.Authorbox = ActiveDocument.BuiltInDocumentProperties("Author") .Value


Can someone help me solve this problem, please?

[tcomeau16]

Hi Strato girl,

I installed the macro last night and got that error as well. There is a typo in the code. Just remove the un-needed space before ".Value" and save it. It should work after that.

title_author_form.Authorbox = ActiveDocument.BuiltInDocumentProperties("Author")_.Value

tcomeau16

[Stratogirl]

Originally Posted by tcomeau16

Hi Strato girl,

I installed the macro last night and got that error as well. There is a typo in the code. Just remove the un-needed space before ".Value" and save it. It should work after that.

title_author_form.Authorbox = ActiveDocument.BuiltInDocumentProperties("Author")_.Value

tcomeau16

Thank you!
I will correct it and try again.