View Single Post
 
Old 02-11-2014, 10:57 PM
macropod's Avatar
macropod macropod is offline Windows 7 32bit Office 2010 32bit
Administrator
 
Join Date: Dec 2010
Location: Canberra, Australia
Posts: 22,369
macropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond repute
Default

Hi Jason,

That really is the wrong way to go about the process. As previously advised, you should modify the appropriate Style. Unnecessarily overriding paragraph Styles with different formats is ill-advised as it makes documents harder to maintain and can cause instability.

Since most documents use the 'Normal' Style as their default, the following demos how to reformat the document to use 11pt Arial with 0 before/after space and single line spacing as the paragraph format, without ever touching the document content:
Code:
Private Sub ScopeSendToWord()
Dim WdApp As Word.Application
Dim WdDoc As Word.Document
Set WdApp = New Word.Application
Set WdDoc = WdApp.Documents.Add
With WdDoc
  .Range.Text = txtScope
  With .Styles("Normal")
    With .ParagraphFormat
      .SpaceBefore = 0
      .SpaceAfter = 0
      .LineSpacingRule = wdLineSpaceSingle
    End With
    With .Font
      .Name = "Arial"
      .Size = 11
    End With
  End With
End With
WdApp.Visible = True
End Sub
PS: When posting code, please use the code tags. They're on the 'Go Advanced' tab.
__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]
Reply With Quote