Set line spacing in word doc [Resolved]

Posted by Bshan under VB.NET on 12/31/2012 | Points: 10 | Views : 4464 | Status : [Member] | Replies : 4
I am creating a word document using vb.net.
now i want to set the line spacing of document to 1 and paragrah's spacing after to 0 pt.




Responses

Posted by: Bshan on: 12/31/2012 [Member] Starter | Points: 25

Up
0
Down

Resolved
Thanks! Baimey.
It works..

Bshan, if this helps please login to Mark As Answer. | Alert Moderator

Posted by: Baimey on: 12/31/2012 [Member] Starter | Points: 25

Up
0
Down
The spaces after a paragraph belong to the next one, so get the next paragraph and remove the first block of spaces in its range.

Sub RemoveTrailingSpaces(rng As Range)
Dim para As Paragraph

Set para = rng.Paragraphs(1).Next
With para.Range.Find
.Text = "[ ]{1,}"
.Replacement.Text = ""
.MatchWildcards = True
.Execute Replace:=wdReplaceOne
End With
End Sub

this will remove the extra spaces at the end of all paragraphs

Sub RemoveSpaces2()
With MyDoc.Range.Find
.Text = "[ ]{1,}^13"
.Replacement.Text = "^p"
.MatchWildcards = True
.Execute Replace:=wdReplaceAll
End With
End sub

This will remove all empty paragraphs.

Sub DeleteEmptyParagraphs()
With ActiveDocument.Range.Find
.Text = "^p^p"
.Replacement.Text = "^p"
Do While .Execute(Replace:=wdReplaceAll)
Loop
End With
End Sub

If the spacing is part of the paragraph formatting, this should remove it

Sub DelVerticalSpacing()
With ActiveDocument.Range.Paragraphs
.SpaceBefore = 0
.SpaceAfter = 0
End With
End Sub


Please Mark as Answer If this Helps

Bshan, if this helps please login to Mark As Answer. | Alert Moderator

Posted by: Baimey on: 12/31/2012 [Member] Starter | Points: 25

Up
0
Down
Thank Bshan .. And happy to know that it helped

Please Mark as Answer If this Helps

Bshan, if this helps please login to Mark As Answer. | Alert Moderator

Posted by: Baimey on: 12/31/2012 [Member] Starter | Points: 25

Up
0
Down
Bshan,

Please mark my answer as the post that helped you so that it will help others as well.

Thanks
Baimey

Please Mark as Answer If this Helps

Bshan, if this helps please login to Mark As Answer. | Alert Moderator

Login to post response