Is there a reason for not using the same Save method to save the form data instead of just saving the document as a text file?
Code:
With ActiveDocument
.SaveAs2 FileName:=Split(.FullName, ".")(0) & "_Form.csv", _
Fileformat:=wdFormatText, SaveFormsData:=True
End With