最近在搞word合并单元格的问题,找了一下网上的资源,自己捣鼓了一下,终于成功了,直接贴代码:
app='Word'
word=win32.gencache.EnsureDispatch('%s.Application' % app)
doc=word.Documents.Add()
word.Visible=False
#Title begin
sel =word.Selection
sel.Font.Name = u"微软雅黑"
sel.Font.Size = 8
sel.Font.Bold = False
sel.Font.Italic = False
sel.Font.Underline = False
sel.ParagraphFormat.Alignment = 1
myRange = doc.Range(0,0)
myRange.InsertBefore(u'标题1 测试表格') # 使用样式
#Title end
#Table Start
sel.SetRange(10,10)
tab = doc.Tables.Add(sel.Range, 9, 3)
tab.Columns(1).SetWidth(10.35*20.35, 0)
tab.Rows.Alignment = 1
tab.Style = u"网格型"
tabnow = doc.Tables(1)
cell1 = tabnow.Cell(1,1)
cell2 = tabnow.Cell(3,1)
#myrange = doc.Range(cell1.Range.Start, cell2.Range.End)
sel.SetRange(cell1.Range.Start, cell2.Range.End)
sel.Cells.Merge()
貌似很简单的样子,不多说了。。。