Formatare pagină și modificări în text

Sub ModificareDocument()

.PageSetup.LeftMargin = 100

.PageSetup.RightMargin = 100

Paragraphs(3).Range.Delete

Paragraphs(2).Range.Words(5).Case = wdUpperCase

Paragraphs(3).Range.Sentences(2).Case = wdUpperCase

Paragraphs(3).Range.Words(5).Delete

Paragraphs(3).Range.Words(12).Delete

Paragraphs(1).Range.Words(10).Bold = True

Paragraphs(2).Range.Words(5).Italic = True

Paragraphs(3).Range.Words(6).Underline = True

Paragraphs(1).Range.Words(6).Font.ColorIndex = wdRed

End Sub