#1
|
|||
|
|||
Looping macros to add text to beginning and end of a paragraph
I want to convert word documents to HTML and need to insert appropriate paragraph styles throughout. I found a macro to help me to add text to the beginning of the paragraph, but having difficulty getting it to do the same for the end. What can I add so that at the end of each paragraph formatted with Heading 2, it will insert </h1> before the paragraph mark?
'This example inserts "<h1>" at the beginning of ' every paragraph formatted with the Heading 2 style. With ActiveDocument.Content.Find .ClearFormatting .Style = wdStyleHeading2 'The Do...Loop statement repeats a series of ' actions each time this style is found. Do While .Execute(Forward:=True, Format:=True) = True With .Parent 'If the found text is the last ' paragraph in the document... If .End = ActiveDocument.Content.End Then .StartOf Unit:=wdParagraph, Extend:=wdMove .InsertAfter "<h1>" Exit Do 'If the found text is *not* the last ' paragraph in the document... Else .StartOf Unit:=wdParagraph, Extend:=wdMove .InsertAfter "<h1>" .Move Unit:=wdParagraph, Count:=1 End If End With 'Goes back to the beginning of the Do...Loop statement. Loop End With |
Thread Tools | |
Display Modes | |
|
Similar Threads | ||||
Thread | Thread Starter | Forum | Replies | Last Post |
can't delete paragraph mark at end of document | kb | Word | 10 | 10-06-2017 02:32 PM |
Paragraph Breaks In Mail Merge Fields | SamuelT | Mail Merge | 0 | 09-25-2008 06:38 AM |
Looping though Custom Properties in VBA | suekay | Misc | 0 | 05-19-2006 06:10 AM |
Macros & Passwords | paulrm906 | Excel | 0 | 03-04-2006 01:30 AM |
Self Help Books for Macros? | KRB | Excel | 0 | 11-22-2005 01:33 PM |