# -*- coding: cp936 -*-
#導(dǎo)入隨機數(shù)模塊
import random
#導(dǎo)入win32com模塊,用來操作Word
import win32com 
from win32com.client import Dispatch, constants
#創(chuàng)建新的WORD文檔
w = win32com.client.Dispatch('Word.Application')
w.Visible = 0#0表示在后臺操作。設(shè)為1則在前端能看到Word界面。
w.DisplayAlerts = 0#不顯示警告
doc = w.Documents.Add()
#準(zhǔn)備對文檔頭部進(jìn)行操作
myRange = doc.Range(0,0)#從第0行第0個字開始：
myRange.Style.Font.Name = "宋體"#設(shè)置字體
myRange.Style.Font.Size = "16"#設(shè)置為三號
#========以下為文章的內(nèi)容部分=======
#文章標(biāo)題（用\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èi)容：\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']
#開始循環(huán)操作，往Word里面寫文字
 #先開始遍歷地點（A,B,C,D,E四個地區(qū)）
for addr in addrlist:
 #遍歷28個日期
 for time in timelist:
 #隨機生成四個數(shù)（范圍0-3）
 aa=random.randint(0,3)
 bb=random.randint(0,3)
 cc=random.randint(0,3)
 dd=random.randint(0,3)
 #從文件開頭依次插入標(biāo)題、時間、地點、人物
 myRange.InsertAfter(title)
 myRange.InsertAfter(time)
 myRange.InsertAfter(addr)
 myRange.InsertAfter(str3)
 #在后面繼續(xù)添加隨機選取的四段文字
 myRange.InsertAfter(list1[aa])
 myRange.InsertAfter(list2[bb])
 myRange.InsertAfter(list3[cc])
 myRange.InsertAfter(list4[dd])
#循環(huán)完畢，保存為 D:\d.doc
doc.SaveAs(r'D:\d.doc')
#退出操作
doc.Close()
w.Quit()