Selection.Style = ActiveDocument.Styles("Heading 2")
For Idx = ActiveDocument.Paragraphs.Count To 1 Step -1
Selection.MoveUp Unit:=wdLine, Count:=1
Selection.MoveDown Unit:=wdLine, Count:=1, Extend:=wdExtend
Selection.Style = ActiveDocument.Styles("Heading 1")
Open in new window
Author Closing Comment
A PHP and Perl based system to collect and display usage statistics from PostgreSQL databases.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
If you are experiencing a similar issue, please ask a related question
Join the community of 500,000 technology professionals and ask your questions.
Join & Ask a Question
Join our community for more solutions or to ask questions.
For immediate help use Live now!