Not that I know of but they're not too hard to write.
What I used:
VS 2003
Office 2003
The Office Primary Interop Assemblies
Steps:
Create a VB Windows application
Add a text box and a button.
Put this code in your button click:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim dir As IO.DirectoryInfo = New IO.DirectoryInfo(TextBox1.Text)
Dim app As New Microsoft.Office.Interop.Word.Application
For Each file As IO.FileInfo In dir.GetFiles("*.doc")
Dim doc As New Microsoft.Office.Interop.Word.DocumentClass
doc = app.Documents.Open(IO.Path.Combine(TextBox1.Text, file.Name))
Dim destPath As String
destPath = IO.Path.GetFileNameWithoutExtension(file.Name)
destPath = destPath + ".xml"
destPath = IO.Path.Combine(TextBox1.Text, destPath)
doc.SaveAs(destPath, Microsoft.Office.Interop.Word.WdSaveFormat.wdFormatXML)
Next
app.Quit(False)
End Sub
Enter the directory that you want to convert all the .doc files in into the text box and press Button1. Presto!