Python通过win32实现office自动化 - Word_python win32 paragraphs面页横向

Python通过win32 com接口实现offic自动化小结
最近几天通过Python做一些自动生成office报表的东东，比如解析.xml文件，导出.html/WORD/PPT等格式，html不足一提，只需要简单的html静态网页知识即可，这儿要说的是怎么生成WORD/PPT格式。

首先介绍下office win32 com接口，这个是MS为自动化提供的操作接口，比如我们打开一个WORD文档，就可以在里面编辑VB脚本，实现我们自己的效果。对于这种一本万利的买卖，Python怎么能放过，它内置了对于win32 com接口的支持，我们可以方便的控制。

要想熟练使用office win32 com接口，没有什么比MS提供的API文档更加权威了，此处附上WORD和PPT的文档，
想看EXCEL就去GOOGLE，相信对你不是什么难事:)

WORD中最重要的概念有几个：
Application - 这个毫无疑问是我们的WORD应用程序
Document - 这个就是一个打开的文档对象
Range - 这个东东必须要好好利用，基本上所有对象都是有Range属性的，而这也为我们排版提供了极大的便利。。。
Paragraph - 顾名思义，这个是段落的意思，也就是我们文档中的一个段内容（可以是文本、图片等）。
Section - 在我学习的时候，这个东东给我制造了最大的障碍，因为我当时苦苦琢磨，究竟怎么才能插入一个新的页，然后在新页上开始输出内容。。。
ParagraphFormat - 这个是为了设置格式的，你不可能不使用它。。。
有了以上几个最重要的概念铺垫，接下来的代码基本上可以平蹚了，来，看一段代码先，事先声明，这段代码摘自网上，不知道哪位兄台写的，只写了可写可不写的东西（这么说有点过分，不过确实没有实质性的内容），我添油加醋的处理了一下，确保营养比较丰富，大家看起来应该实用性更强一些。。。

import win32com
from win32com.client import Dispatch, constants

w = win32com.client.Dispatch('Word.Application')
# 或者使用下面的方法，使用启动独立的进程：
# w = win32com.client.DispatchEx('Word.Application')

# 后台运行，显示程序界面，不警告
w.Visible = 1 #这个至少在调试阶段建议打开，否则如果等待时间长的话，它至少给你耐心。。。
w.DisplayAlerts = 0

# 打开新的文件
#worddoc = w.Documents.Open(file_name) #这句话用来打开已有的文件，当然，在此之前你最好判断文件是否真的存在。。。
doc = w.Documents.Add() # 创建新的文档，我用的更多的是这个，因为我要的是创建、然后保存为。。

# 插入文字
myRange = doc.Range(0,0) #这句话让你获取的是doc的最前面位置,如果想要获取到其他位置，就要改变Range中的参数，两个参数分别代表起始点，结束点。。。
myRange.InsertBefore('Hello from Python!')

'''
以下一段是增加10个新页，然后跳转到新页中增加内容。。。。
'''
section_index = 0
for i in range(0, 10):
 #由于增加页的使用如此频繁，我们最好将其提取为一个函数，类似def NewTable(self)：
 pre_section = doc.Secitons(section_index)
 new_seciton = doc.Range(pre_section.Range.End, pre_section.Range.End).Sections.Add()
 new_range = new_seciton.Range
 
 content_pg = new_range.Paragraphs.Add()
 content_pg.Range.Font.Name,content_pg.Range.Font.Size = 'Times New Roman',24
 caption_pg.Range.ParagraphFormat.Alignment = 0 # 0,1,2 分别对应左对齐、居中、右对齐
 caption_pg.Range.InsertBefore('Hello,Page ' + str(i+1))
 
 section_index = section_index + 1 #记录这个的目的是为了方便的找到doc的尾端，不然的话，我还真没有想到怎么搞。。。

# 正文文字替换
w.Selection.Find.ClearFormatting()
w.Selection.Find.Replacement.ClearFormatting()
w.Selection.Find.Execute(OldStr, False, False, False, False, False, True, 1, True, NewStr, 2)

#设置页眉文字，如果要设置页脚值需要把SeekView由9改为10就可以了。。。
w.ActiveWindow.ActivePane.View.SeekView = 9 #9 - 页眉； 10 - 页脚
w.Selection.ParagraphFormat.Alignment = 0
w.Selection.Text = 'New Header'
w.ActiveWindow.ActivePane.View.SeekView = 0 # 释放焦点，返回主文档

# 页眉文字替换
w.ActiveDocument.Sections[0].Headers[0].Range.Find.ClearFormatting()
w.ActiveDocument.Sections[0].Headers[0].Range.Find.Replacement.ClearFormatting()
w.ActiveDocument.Sections[0].Headers[0].Range.Find.Execute(OldStr, False, False, False, False, False, True, 1, False, NewStr, 2)

# 在文档末尾新增一页，并添加一个表格。。。
pre_section = doc.Secitons(section_index)
new_seciton = doc.Range(pre_section.Range.End, pre_section.Range.End).Sections.Add()
new_range = new_seciton.Range
new_table = new_range.Tables.Add(doc.Range(new_range.End,new_range.End), 5, 5) #在文档末尾添加一个5*5的表格
#接下来Table怎么操作，这里就不细说了，检索Table对象参照就OK了。。。

# 表格操作
doc.Tables[0].Rows[0].Cells[0].Range.Text ='123123'
worddoc.Tables[0].Rows.Add() # 增加一行

# 转换为html
wc = win32com.client.constants
w.ActiveDocument.WebOptions.RelyOnCSS = 1
w.ActiveDocument.WebOptions.OptimizeForBrowser = 1
w.ActiveDocument.WebOptions.BrowserLevel = 0 # constants.wdBrowserLevelV4
w.ActiveDocument.WebOptions.OrganizeInFolder = 0
w.ActiveDocument.WebOptions.UseLongFileNames = 1
w.ActiveDocument.WebOptions.RelyOnVML = 0
w.ActiveDocument.WebOptions.AllowPNG = 1
w.ActiveDocument.SaveAs( FileName = filenameout, FileFormat = wc.wdFormatHTML )

# 打印
doc.PrintOut()

# 关闭
# doc.Close()
w.Documents.Close(wc.wdDoNotSaveChanges)
w.Quit()