Formatare pagină și modificări în text

Formatare pagină și modificări în text

Sub ModificareDocument()

' Realizarea de modificări în documentul deschis (acesta este un comentariu)

' Formatarea paginii - aici, marginile din stânga şi dreapta

.PageSetup.LeftMargin = 100

.PageSetup.RightMargin = 100

' Ştergerea paragrafului 3:

Paragraphs(3).Range.Delete

' Modificarea unor cuvinte sau fraze la majuscule

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

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

' Ştergerea unor cuvinte din paragraf

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

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

' Formatarea unor cuvinte (îngroşat, italic, subliniat, colorat)

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