Looping macros to add text to beginning and end of a paragraph

shanew · #1 03-03-2009, 04:24 AM

Hi friends,

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?

'

Code:

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

ExlGuru · #2 04-18-2009, 05:26 AM

Use this code:

Code:

Dim drange As Range
Selection.HomeKey wdStory
Selection.Find.Style = "Heading 2"
With Selection.Find
Do While .Execute(FindText:="", Forward:=True, _
MatchWildcards:=False, Wrap:=wdFindStop, MatchCase:=False) = True
Set drange = Selection.Range
drange.InsertBefore "<h1>"
drange.End = drange.End - 1
drange.InsertAfter "<\h1>"
Selection.Collapse wdCollapseEnd
Loop
End With

Welcome to the Excel Forum

Forum Statistics