请问这个word宏怎么样改成word2007也能使用？

xuyae

1. Sub doc2htm()
   
2.     On Error Resume Next
   
3.     Dim fd As FileDialog, i As Long, doc As Document, p As String
   
4.     Set fd = Application.FileDialog(msoFileDialogFolderPicker)
   
5.     If fd.Show = -1 Then p = fd.SelectedItems(1) Else Exit Sub
   
6.     Set fd = Nothing
   
7.     If MsgBox("Are you sure to convert? (" & p & ")", vbYesNo + vbExclamation, "doc2htm") = vbNo Then Exit Sub
   
8.     With Application.FileSearch
   
9.         .LookIn = p
   
10.         .SearchSubFolders = True
    
11.         .FileName = "*.doc"
    
12.         If .Execute > 0 Then
    
13.             For i = 1 To .FoundFiles.Count
    
14.                 Set doc = Documents.Open(FileName:=.FoundFiles(i))
    
15.                 doc.SaveAs FileName:=Left(doc.FullName, Len(doc.FullName) - 4) & ".htm", FileFormat:=wdFormatHTML
    
16.                 ActiveDocument.Close
    
17.             Next i
    
18.             MsgBox "Complete! There were " & .FoundFiles.Count & " file(s) converted.", vbOKOnly + vbExclamation, "doc2htm"
    
19.         Else
    
20.             MsgBox "There were no files found.", vbOKOnly + vbCritical, "doc2htm"
    
21.         End If
    
22.     End With
    
23. End Sub
    

复制代码

这个宏word2003才能使用，请问怎么样修改才能改成word2007也能使用呢？谢谢大家！

kqbt

请参考
http://club.excelhome.net/viewthread.php?tid=276192