Formatting

Format selected text (change font, size, etc) 
With Selection.Font
 .Name = "Times New Roman"
 .Size = 14
 .AllCaps = True
 End With
 With Selection.ParagraphFormat
 .LeftIndent = InchesToPoints(0.5)
 .Space1
 End With

Apply formatting to a range of paragraphs 
Dim rngFormat As Range
 Set rngFormat = ActiveDocument.Range( _
 Start:=ActiveDocument.Paragraphs(1).Range.Start, _   End:=ActiveDocument.Paragraphs(3).Range.End)
 With rngFormat
 .Font.Name = "Arial"
 .ParagraphFormat.Alignment = wdAlignParagraphJustify
 End With

For more adjustments:
Dim rngFormat As Range
 Set rngFormat = ActiveDocument.Range(Start:=0, End:=0)
 With rngFormat
 .InsertAfter Text:="Title"
 .InsertParagraphAfter
 With .Font
 .Name = "Tahoma"
 .Size = 24
 .Bold = True
 End With
 End With
 With ActiveDocument.Paragraphs(1)
 .Alignment = wdAlignParagraphCenter
 .SpaceAfter = InchesToPoints(0.5)
 End With

Other formats:
.SpaceBefore = 6
'Sets space before paragraph to 12 points

Making text bold:
Selection.Font.Bold = True

Comments

Post a Comment

Popular posts from this blog

Find and replace

Find and select text With Selection.Find  .Forward = True  .Wrap = wdFindStop  .Text = "Text you need to find"  .Execute End With Bold the text that you are looking for: With ActiveDocument.Content.Find  .Text = "The text you are looking for"  .Forward = True  .Execute  If .Found = True Then .Parent.Bold = True End With Replace all occurances With Selection.Find  .ClearFormatting  .Text = "Text you are looking for"  .Replacement.ClearFormatting  .Replacement.Text = "Text you are replacing it with"  .Execute Replace:=wdReplaceAll, Forward:=True, _  Wrap:=wdFindContinue End With Look for bold formatting and remove it With ActiveDocument.Content.Find  .ClearFormatting  .Font.Bold = True  With .Replacement  .ClearFormatting  .Font.Bold = False  End With  .Execute FindText:="", ReplaceWith:="", _  Format:=True, Replace:=wdReplaceAll End With
Read more

Page setup

Create a new page break which is in landscape format (in between pages)  If Documents.Count > 0 Then         ' The user has a document open, so insert a         ' landscape section.         With Selection             ' Do not accidentally over-write selected text             .Collapse Direction:=wdCollapseStart             ' Insert section breaks with blank paragraphs             ' in the new section.             .TypeParagraph             .Style = ActiveDocument.Styles(wdStyleNormal)             .InsertBreak Type:=wdSectionBreakNextPage             .TypeParagraph             .TypeParagraph             .TypePar...
Read more