Found this code by Daniel Pineault that solved what I needed.
Set rs1 = db.OpenRecordset("qryDirPriorities", dbOpenDynaset)
With rs1
If .RecordCount <> 0 Then
.MoveLast 'Ensure proper count by moving to last record
iRecCount = .RecordCount 'Number of records returned by the table/query ROW
.MoveFirst 'Move to first record
iFldCount = .Fields.Count 'Number of fields/columns returned by the table/query COLUMS
objWord.ActiveWindow.View.Type = wdPrintView 'Switch to print preview mode (not required just a personal preference)
Else
MsgBox "There are no records returned by the specified queries/SQL statement.", vbCritical + vbOKOnly, "No data to generate an Word spreadsheet with"
GoTo SubError
End If
End With
C = 1
While Not rs1.EOF
For C = 1 To iRecCount
.TypeText Chr(9) & Chr(9) & FormatRoman(C) & "." & " (U//FOUO) Priority " & Nz(rs1.Fields(0)) & ". " & Nz(rs1.Fields(1))
.TypeParagraph
rs1.MoveNext
Next
Wend
rs1.Close
iRecCount = 0
iFldCount = 0