# -*- coding: cp936 -*-#導入隨機數模塊import random#導入win32com模塊,用來操作Wordimport win32com from win32com.client import Dispatch, constants#創建新的WORD文檔w = win32com.client.Dispatch('Word.Application')w.Visible = 0#0表示在后臺操作。設為1則在前端能看到Word界面。w.DisplayAlerts = 0#不顯示警告doc = w.Documents.Add()#準備對文檔頭部進行操作myRange = doc.Range(0,0)#從第0行第0個字開始：myRange.Style.Font.Name = "宋體"#設置字體myRange.Style.Font.Size = "16"#設置為三號#========以下為文章的內容部分=======#文章標題（用/n來控制文字的換行操作）title='XXXXX會/n會議時間: '#會議時間timelist=['1月9日','1月16日','1月23日','1月30日', '2月6日','2月13日','2月20日','2月27日', '3月6日','3月13日','3月20日','3月27日', '4月3日','4月10日','4月17日','4月24日', '5月8日','5月15日','5月22日','5月29日', '6月5日','6月12日','6月19日','6月26日', '7月3日','7月10日','7月17日','7月24日' ]#會議地點addrlist=['/n會議地點: 地點AXXX/n主持人: 張X/n', '/n會議地點: 地點BXXXX主持人: 吳X/n', '/n會議地點: 地點CXXXX/n主持人: 王X/n', '/n會議地點: 地點DXXXX/n主持人: 冉X/n', '/n會議地點: 地點EXXXX/n主持人: 李X/n', ]#參加人員member='參加人員: XXX,XXX,XXX,XXX,XXX,XXX,XXX。/n會議內容：/n '#四段文字list1=['第一段(A型)/n','第一段(B型)/n','第一段(C型)/n','第一段(D型)/n']list2=['第二段(A型)/n','第二段(B型)/n','第二段(C型)/n','第二段(D型)/n']list3=['第三段(A型)/n','第三段(B型)/n','第三段(C型)/n','第三段(D型)/n']list4=['第四段(A型)/n','第四段(B型)/n','第四段(C型)/n','第四段(D型)/n']#開始循環操作，往Word里面寫文字 #先開始遍歷地點（A,B,C,D,E四個地區）for addr in addrlist: #遍歷28個日期 for time in timelist: #隨機生成四個數（范圍0-3） aa=random.randint(0,3) bb=random.randint(0,3) cc=random.randint(0,3) dd=random.randint(0,3) #從文件開頭依次插入標題、時間、地點、人物 myRange.InsertAfter(title) myRange.InsertAfter(time) myRange.InsertAfter(addr) myRange.InsertAfter(str3) #在后面繼續添加隨機選取的四段文字 myRange.InsertAfter(list1[aa]) myRange.InsertAfter(list2[bb]) myRange.InsertAfter(list3[cc]) myRange.InsertAfter(list4[dd])#循環完畢，保存為 D:/d.docdoc.SaveAs(r'D:/d.doc')#退出操作doc.Close()w.Quit()