Pywin32处理word另存为

yye_javaeye

浏览: 16406 次
性别:
来自: 北京

最近访客更多访客>>

s1o2n3y4i5

鲁曼1991

tingyu606

dhd0303

博主相关

博客

微博

相册

留言

关于我

文章分类

社区版块

存档分类

博客分类：

Python相关

Python VBA OS HTML

        wordapp = win32com.client.gencache.EnsureDispatch("Word.Application")
        try:
            wordapp.Documents.Open('11.doc')
            wordapp.ActiveDocument.SaveAs('11.html', FileFormat=win32com.client.constants.wdFormatFilteredHTML)
            wordapp.ActiveDocument.Close()
        finally:
            wordapp.Quit()

office2007中所支持的格式：

wdFormatDocument                    =  0
wdFormatDocument97                  =  0
wdFormatDocumentDefault             = 16
wdFormatDOSText                     =  4
wdFormatDOSTextLineBreaks           =  5
wdFormatEncodedText                 =  7
wdFormatFilteredHTML                = 10
wdFormatFlatXML                     = 19
wdFormatFlatXMLMacroEnabled         = 20
wdFormatFlatXMLTemplate             = 21
wdFormatFlatXMLTemplateMacroEnabled = 22
wdFormatHTML                        =  8
wdFormatPDF                         = 17
wdFormatRTF                         =  6
wdFormatTemplate                    =  1
wdFormatTemplate97                  =  1
wdFormatText                        =  2
wdFormatTextLineBreaks              =  3
wdFormatUnicodeText                 =  7
wdFormatWebArchive                  =  9
wdFormatXML                         = 11
wdFormatXMLDocument                 = 12
wdFormatXMLDocumentMacroEnabled     = 13
wdFormatXMLTemplate                 = 14
wdFormatXMLTemplateMacroEnabled     = 15
wdFormatXPS                         = 18

单元格另存为，因为没找到部分另存为的vba代码，所以调用copy&paste曲线解决

    def saveCell(self, savePath, cell):
        tmpDoc = cell.Application.Documents.Add()
        #内容为空则End=Start，如果这时Copy则将会Copy到表格
        if not cell.Range.Text[0:len(cell.Range.Text)-2] == '':#不成立时则保存空的doc文件
            start = cell.Range.Start
            end = cell.Range.End
            if end>start:
                cell.Range.Document.Range(cell.Range.Start, cell.Range.End-1).Copy()
            else:
                cell.Range.Document.Range(cell.Range.Start, cell.Range.End).Copy()
            tmpDoc.Range(0, 0).Paste()

        tmpDoc.SaveAs(sys.path[0]+os.sep+'HTML'+os.sep+savePath, FileFormat=win32.constants.wdFormatFilteredHTML)
        tmpDoc.Close(SaveChanges=win32.constants.wdDoNotSaveChanges)

分享到：