I figured out that I needed to add an "\" after the activedocument.path to make the macro work. But now it saves the documents with .docm as part of the filename, and it also makes a copy of the master file. I'm not sure what else to change to fix those two problems. Here is what the code looks like now.
Option Explicit
Sub Convert2Macro()
Dim vDirectory As String
Dim vFile As String
Dim oDoc As Document
vDirectory = ActiveDocument.Path & "\"
vFile = Dir(vDirectory & "*.doc*")
Do While vFile <> ""
Set oDoc = Application.Documents.Open(FileName:=vDirectory & vFile)
ActiveDocument.SaveAs2 FileName:=vDirectory & oDoc.name & ".docm", _
FileFormat:=wdFormatXMLDocumentMacroEnabled, _
LockComments:=False, _
Password:="", _
AddToRecentFiles:=True, _
WritePassword:="", _
ReadOnlyRecommended:=False, _
EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, _
SaveFormsData:=False, _
SaveAsAOCELetter:=False, _
Encoding:=1252, _
InsertLineBreaks:=True, _
AllowSubstitutions:=False, _
LineEnding:=wdCRLF, _
CompatibilityMode:=0
oDoc.Close SaveChanges:=False
vFile = Dir
Loop
End Sub
Thanks again! - David