Dimwdapapp為WORD。“應用程序”定義了壹個word對象。
將wdDoc調成Word。“文檔”定義了壹個WORD文檔對象。
“將工作單設為工作表”定義工作表對象。
暗淡我壹樣長
實例化壹個WORD對象。
設置wdApp =新單詞。應用
創建壹個WORD文檔
設置wdDoc = wdApp。文檔.添加
為工作表變量賦值。
設置wkSheet = ThisWorkbook。工作表(“WriteWord”)
保存新創建的WORD文檔。
wdDoc。另存為此工作簿。路徑與路徑。" \test.docx "
WdDoc。“關閉”關閉新創建的WORD文檔。
使用wdApp
打開WORD文檔
. Documents .打開此工作簿。路徑與路徑。" \test.docx "
循環將工作表中的記錄轉換為WORD文檔的內容。
對於I = 2到wkSheet。範圍(" a1048576 ")。結束(xlUp)。排
標題內容
。選擇。鍵入文本“親愛的”&;修剪(工作單。單元格(I,1)。值)
根據性別確定人們的稱呼。
如果wkSheet。單元格(I,2)。Value = "男性"然後。
。選擇。鍵入文本“先生:”
其他
選擇。鍵入文本“夫人:”
.........