When it comes to formatting tables the APA guidelines are fairly easy to follow.
You want to:
- Avoid Vertical Lines
- Minimise Horizontal lines
- Include a Table Caption at the top
And they're even easier to follow if you're working with the microsoft office suite.
While you can use MS Word to create an APA formatted table the easiest way to format your table using APA guidelines is to use MS Excel.
Simply enter your data in an excel spreadsheet, ensuring that the headings are in the top rows
Once you have done this highlight the top Row and right click
Select Format Cells
Go to the Border tab then select the top border and bottom border
Now select the bottom row and right click
Select Format Cells
Go to the Border tab then select the bottom border
Now highlight your table, copy it and then paste it into a MS word document.
Enter a title above the table using the following format:
Table 1: The title that you want for your table should replace the words you are reading now, the ones that come after the colon.
By this stage the hypothetical example should look something like that below:
Table 1: The title that you want for your table should replace the words you are reading now, the ones that come after the colon.
Sub macro_borders_apa()
ReplyDelete' Creates APA style table from Excel data.
' Assumes data is at uppermost left in Excel
' with column headers in top row.
' Adds extra row at top for table title.
' Freezes top two rows for scrolling.
' Adds filters for data analysis.
' Remove filters as needed.
' Change fonts and styles as required
' for your presentation or paper.
' Borders extend to right, so cut and paste
' only those cells required for your work.
' — Aimhirghin.SC 20161110
'
'
'
' selects all used cells on worksheet
'
ActiveSheet.UsedRange.Copy
'
' apply fontstyle
' remove all existing boldface
'
ActiveSheet.UsedRange.Activate
With Selection.Font
.Name = "Times New Roman"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
.ThemeColor = xlThemeColorLight1
.Bold = True
.Bold = False
End With
'
' left justify header, center vertically
'
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlCenter
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
'
' clear all existing borders
'
With Selection
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
End With
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
'
' draw top borders
'
Rows("1:1").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlMedium
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlMedium
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
End With
'
' top border text bold
' add filters
'
With Selection.Font
.Bold = True
Selection.AutoFilter
End With
Cells.Select
'
' hide Excel gridlines
' freeze top row
'
ActiveWindow.DisplayGridlines = False
With ActiveWindow
.SplitColumn = 0
.SplitRow = 1
.FreezePanes = True
End With
'
' inserts row at top for table title
'
Rows("1:1").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
'
' autofit columns
'
Cells.EntireColumn.AutoFit
'
' draw bottom border on (last row + 1)
'
Dim LastRow As Integer
LastRow = ActiveSheet.UsedRange.Rows.Count
LastRow = LastRow + 1
Rows(LastRow).Select
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlMedium
End With
End Sub