APA Formatted paper marco

Question 1

Sub CreateAPAFormattedPaper()
‘ Clear the document and apply general formatting
ActiveDocument.Content.Delete
With ActiveDocument.PageSetup
.TopMargin = InchesToPoints(1)
.BottomMargin = InchesToPoints(1)
.LeftMargin = InchesToPoints(1)
.RightMargin = InchesToPoints(1)
End With

' Set font and spacing
Selection.WholeStory
Selection.Font.Name = "Times New Roman"
Selection.Font.Size = 12
Selection.ParagraphFormat.LineSpacingRule = wdLineSpaceDouble
Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft
Selection.ParagraphFormat.SpaceBefore = 0
Selection.ParagraphFormat.SpaceAfter = 0

' Create title page
Selection.TypeText Text:="Title of Your Paper" & vbCrLf
Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
Selection.Font.Bold = True
Selection.TypeText Text:="Your Name" & vbCrLf
Selection.TypeText Text:="Park University" & vbCrLf
Selection.TypeText Text:="MG306 Business Communication" & vbCrLf
Selection.TypeText Text:="Dr. Darek Malone" & vbCrLf
Selection.TypeText Text:="Date" & vbCrLf & vbCrLf

' Insert page break for main content
Selection.InsertBreak Type:=wdPageBreak

' Add headers and page numbers
With ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary)
    .Range.Fields.Add Range:=.Range, Type:=wdFieldPage
    .Range.ParagraphFormat.Alignment = wdAlignParagraphRight
End With

' Begin main body of the paper
Selection.TypeText Text:="Title of Your Paper" & vbCrLf
Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
Selection.Font.Bold = True
Selection.TypeParagraph
Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft
Selection.Font.Bold = False

' Introduction Heading
Selection.TypeText Text:="Introduction" & vbCrLf
Selection.Font.Bold = True
Selection.TypeParagraph
Selection.Font.Bold = False

' Insert sample content
Selection.TypeText Text:="Begin your introduction here. Ensure proper APA formatting, including in-text citations and references."

' Adjust footer for page numbers only
With ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary)
    .PageNumbers.RestartNumberingAtSection = True
    .PageNumbers.StartingNumber = 1
End With End Sub

Answer 1

<———
APA FORMATTED PAPER MACRO