Microsoft Office Forums

Go Back   Microsoft Office Forums > >

Reply
 
Thread Tools Display Modes
  #1  
Old 02-16-2009, 06:57 AM
pachmarhi pachmarhi is offline Looping macros to add text to beginning and end of a paragraph Windows 7 64bit Looping macros to add text to beginning and end of a paragraph Office 2007
Novice
Looping macros to add text to beginning and end of a paragraph
 
Join Date: Feb 2009
Posts: 4
pachmarhi is on a distinguished road
Default 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
Reply With Quote
Reply

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

Other Forums: Access Forums

All times are GMT -7. The time now is 04:18 AM.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2022, vBulletin Solutions Inc.
Search Engine Optimisation provided by DragonByte SEO (Lite) - vBulletin Mods & Addons Copyright © 2022 DragonByte Technologies Ltd.
MSOfficeForums.com is not affiliated with Microsoft