Microsoft Office Forums - View Single Post

jsb73 · 08-14-2012, 04:07 PM

Thanks Paul,

In the following code, how is the optimal way to add another paragraph to the document using the Range object if that is the most efficient way?

Code:

Dim wo As Word.Application
    Set wo = CreateObject("Word.Application")
    Dim woDoc As Word.Document
    Dim woRng As Word.Range
    
    With wo
        .WindowState = wdWindowStateMaximize
        .Documents.Add
        Set woDoc = wo.ActiveDocument
        Set woRng = woDoc.Range
        With woRng
            .Font.Bold = True
            .Font.Size = 12
            .Paragraphs.Alignment = wdAlignParagraphCenter
            .InsertAfter "Hello Ranger Again"
        End With
    End With
   
    ActiveDocument.SaveAs "C:\LookingAtWord\Ranger.doc"
    wo.Visible = True