需要做一些會議記錄。總共有多少呢？五個地點x7個月份x每月4篇=140篇。 雖然不很重要，但是140篇記錄完全雷同也不好。大體看了一下，此類的記錄大致分為四段。于是決定每段提供四種選項，每段從四選項里隨機選一項，拼湊成四 段文字，存成一個文件。而且要打印出來，所以準備生成一個140頁的Word文檔，每頁一篇。

需要用到win32com模塊(下載鏈接：http://sourceforge.net/projects/pywin32/files/)，

通過COM讓Python與Word建立連接。代碼如下：

# -- coding: cp936 --

導入隨機數模塊
import random
導入win32com模塊,用來操作Word
import 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.doc
doc.SaveAs(r'D:\d.doc')
退出操作
doc.Close()
w.Quit()</pre> 

 來自：http://www.cnblogs.com/codex/p/4668396.html