Active document paragraph : ActiveDocument « Word « VBA / Excel / Access / Word






  1. VBA / Excel / Access / Word
  2. Word
  3. ActiveDocument

Active document paragraph

 
Sub loopDemo()
    Dim i As Integer
    For i = 1 To ActiveDocument.Paragraphs.Count
        Application.StatusBar = "formatting" & i & " out of " & ActiveDocument.Paragraphs.Count & "..."
        Selection.MoveDown Unit:=wdParagraph, Count:=1, Extend:=wdMove
    Next i
End Sub








Related examples in the same category

1.Save document as
2.Defining a Named Range
3.Uppercase the first three words at the start of a document
4.Using the Duplicate Property to Store or Copy Formatting
5.Turning Off Track Changes
6.Replace all pairs of paragraph marks in the active document, you could search for ^p^p and replace it with ^p
7.Declare the HeaderFooter object variable myHeader and assign to it the primary header in the first section in the active document:
8.Checking to See if a Header or Footer Exists
9.Linking to the Header or Footer in the Previous Section
10.Creating a Different First-Page Header
11.Opening a New Window Containing an Open Document
12.Closing All Windows but the First for a Document
13.Save active document
14.Activate window by name