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
            .TypeParagraph
            .InsertBreak Type:=wdSectionBreakNextPage
            .MoveUp Unit:=wdLine, Count:=3

            ' Set the orientation of new section to landscape.
            .PageSetup.Orientation = wdOrientLandscape

            ' Provide guidance to the user.
            .TypeText Text:="Your landscape section starts here."
        End With
    Else
        ' Tell the user what to do.
        MsgBox "Please open a document and try again."
    End If

Increasing page margins
With ActiveDocument.PageSetup
 .LeftMargin = .LeftMargin + InchesToPoints(0.5)
 .RightMargin = .RightMargin + InchesToPoints(0.5)
 End With

Setting the margins 
With ActiveDocument.PageSetup
        .LeftMargin = InchesToPoints(0.75)
        .RightMargin = InchesToPoints(0.75)
        .TopMargin = InchesToPoints(1.5)
        .BottomMargin = InchesToPoints(1)
    End With

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

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 Wi
Read more