word
表
关于同志近三年现实表现材料材料类招标技术评分表图表与交易pdf视力表打印pdf用图表说话 pdf
格批量转换成excel
Sub toexcel()
Dim wdapp As Word.Application
Dim wddocument, currentdoc As Word.Document
Set wdapp = New Word.Application
Application.ScreenUpdating = False
ChangeFileOpenDirectory "wordËùÔÚµÄÎÄ?þ?ÐÂ???"
FileName = Dir("wordËùÔÚµÄÎÄ?þ?ÐÂ???\*.doc")
Do While FileName <> ""
Documents.Open (FileName)
ActiveDocument.SaveAs FileName:=FileName & ".xls", FileFormat:= _
wdFormatWebArchive, LockComments:=False, Password:="", AddToRecentFiles:= _
True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _
False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
SaveAsAOCELetter:=False
ActiveDocument.Close
FileName = Dir()
Loop
End Sub