wrdApp.Selection() question

[Asprisa]

Hi Guys,

Hopefully this is a quick one, i am currently building an application that mail merge's data to Microsoft Word, when the text is sent across it has line spacing all i want to do is set it to no spacing, i have looked at:

wrdSelection.Paragraphs.Format.space1
wrdSelection.Paragraphs.Format.space15
wrdSelection.Paragraphs.Format.space2

i cannot seem to find either a "no line space" or "space0" for instance, can any one help me out?

Regards

Jay!

[kenobewan]

Please provide more info re your application. Thanks.

[Asprisa]

Hi There,

I have extracted this code as an example to show you, basically it opens a word doc, and writes text and images onto the document, but when it does it, there is automatically a line seperating two lines of text, so i wondered if there was a way of setting the paragraph to 'no spacing' .

 Dim wrdApp As Word.Application
    Dim wrdDoc As Word._Document
 
 ' Create an instance of Word  and make it visible.
        wrdApp = CreateObject("Word.Application")
        wrdApp.Visible = True
        ' Add a new document.
        wrdDoc = wrdApp.Documents.Add()
        wrdDoc.Select()
        wrdSelection = wrdApp.Selection()
 
        wrdSelection.ParagraphFormat.Alignment = Word.WdParagraphAlignment.wdAlignParagraphLeft
 
InsertLines(1) ' creates a space between blocks of text
 
        wrdSelection.Font.Name = "Arial"
        wrdSelection.Font.Bold = True
        wrdSelection.Font.Size = 9
        wrdSelection.TypeText("Total Excl VAT @" & vatratetxt.Text)
        wrdSelection.Font.Bold = False
        wrdSelection.TypeText(" ")
        wrdSelection.TypeText("      " & vatexcl.ToString("c") & vbCr)
 
        wrdSelection.Font.Name = "Arial"
        wrdSelection.Font.Bold = True
        wrdSelection.Font.Size = 9
        wrdSelection.TypeText("Total VAT         @" & vatratetxt.Text)
        wrdSelection.Font.Bold = False
        wrdSelection.TypeText(" ")
 
        wrdSelection.TypeText("      " & vat.ToString("c") & vbCr)
 
        wrdSelection.Font.Name = "Arial"
        wrdSelection.Font.Bold = True
        wrdSelection.Font.Size = 9
        wrdSelection.TypeText("Total Incl VAT  @" & vatratetxt.Text)
        wrdSelection.Font.Bold = False
        wrdSelection.TypeText(" ")
        wrdSelection.TypeText("      " & vatincl.ToString("c") & vbCr)

Any help is much appriciated!

Jay!

[kenobewan]

Have you tried ParagraphFormat.LineSpacingRule and giving it a value? Never used it myself...