Pa dobro @vojvoda1010 mogao bi konacno malo da se bacis na ucenje.
Code:
' Primer 1 - brisi sve paragrafe u dokumentu koji su prazni
Dim p As Paragraph
For Each p In ActiveDocument.Paragraphs
If (Len(p.Range.Text) = 1) And (Asc(p.Range.Text) = vbKeyReturn) Then
p.Range.Delete
End If
Next
Code:
' Primer 2 - zameni svuda gde je Cr (Enter) u 'nista'
ActiveDocument.Range.Text = Replace(ActiveDocument.Range.Text, vbCr, "")
... i tako dalje shodno potrebama.