創建Word程序,在對象中使用“Find”即可實現。
請預先插入以下組件:
_啟動窗口(窗口)
Word程序1(Word程序)
Word文檔集1(Word文檔集)
橫向滾動條1(橫向滾動條)
姓名框(編輯框)
日期框(編輯框)
替換按鈕(按鈕)
增加按鈕(按鈕)
代碼如下:
.版本?2.支持庫?eWord2000
.支持庫?spec
.程序集?窗口程序集1
.程序集變量?姓名,?文本型,?,?"0"
.程序集變量?日期,?文本型,?,?"0"
.子程序?__啟動窗口_創建完畢
'?Word程序1.創建?()
'?Word文檔集1.置程序?(Word程序1,?真)
'?Word程序1.窗口標題?=?“模板替換程序”
'?寫到文件?(取運行目錄?()?+?“\Temp.doc”,?讀入文件?(取運行目錄?()?+?“\調用模板.doc”))
'?Word文檔集1.打開?(取運行目錄?()?+?“\Temp.doc”)
_增加按鈕_被單擊?()
.子程序?WORD替換,?整數型
.參數?WORD文檔集,?Word文檔集
.參數?查找文本,?文本型
.參數?替換文本,?文本型
.參數?次數,?整數型
.局部變量?WORD內容,?文本型
.局部變量?對象,?對象
.局部變量?對象2,?對象
.局部變量?對象3,?對象
.局部變量?對象4,?對象
.局部變量?變體1,?變體型
.局部變量?變體2,?變體型
.局部變量?變體3,?變體型
.局部變量?N,?整數型
.計次循環首?(次數,?)
對象?=?WORD文檔集.取文檔對象?()
對象2?=?對象.讀對象型屬性?(“Content”,?)
對象3?=?對象2.讀對象型屬性?(“Find”,?)
對象4?=?對象3.讀對象型屬性?(“Replacement”,?)
對象4.寫屬性?(“Text”,?替換文本)
變體1.賦值?(查找文本,?)
變體2.賦值?(真,?)
變體3.賦值?(假,?)
.如果真?(對象3.邏輯方法?(“Execute”,?變體1,?,?,?,?,?,?,?,?變體3,?,?變體2,?,?,?,?))
N?=?N?+?1
.如果真結束
.計次循環尾?()
返回?(N)
.子程序?_增加按鈕_被單擊
重定義數組?(姓名,?真,?取數組成員數?(姓名)?+?1)
重定義數組?(日期,?真,?取數組成員數?(日期)?+?1)
橫向滾動條1.最大位置?=?取數組成員數?(姓名)
橫向滾動條1.位置?=?取數組成員數?(姓名)
_橫向滾動條1_位置被改變?()
.子程序?_橫向滾動條1_位置被改變
姓名框.內容?=?姓名?[橫向滾動條1.位置]
日期框.內容?=?日期?[橫向滾動條1.位置]
.子程序?_姓名框_失去焦點
姓名?[橫向滾動條1.位置]?=?姓名框.內容
.子程序?_日期框_失去焦點
日期?[橫向滾動條1.位置]?=?日期框.內容
.子程序?_姓名框_字符輸入,?整數型
.參數?字符代碼,?整數型
姓名?[橫向滾動條1.位置]?=?姓名框.內容
.子程序?_日期框_字符輸入,?整數型
.參數?字符代碼,?整數型
日期?[橫向滾動條1.位置]?=?日期框.內容
.子程序?_替換按鈕_被單擊
.局部變量?Temp,?整數型
調試輸出?(取數組成員數?(姓名))
Word程序1.創建?()
Word文檔集1.置程序?(Word程序1,?真)
Word程序1.窗口標題?=?“模板替換程序”
寫到文件?(取運行目錄?()?+?“\Temp.doc”,?讀入文件?(取運行目錄?()?+?“\調用模板.doc”))
Word文檔集1.打開?(取運行目錄?()?+?“\Temp.doc”)
.計次循環首?(取數組成員數?(姓名),?Temp)
調試輸出?(Word文檔集1.打開?(取運行目錄?()?+?“\Temp.doc”))
Word程序1.顯示?=?假
WORD替換?(Word文檔集1,?“姓名”,?姓名?[Temp],?1)
WORD替換?(Word文檔集1,?“日期”,?日期?[Temp],?1)
Word文檔集1.保存?(取運行目錄?()?+?“\”?+?日期?[Temp]?+?“.doc”)
Word文檔集1.關閉?()
.計次循環尾?()
Word文檔集1.釋放?()
Word程序1.退出?()
Word程序1.釋放?()
.子程序?__啟動窗口_將被銷毀
Word文檔集1.釋放?()
Word程序1.退出?()
Word程序1.釋放?()
刪除文件?(取運行目錄?()?+?“\Temp.doc”)
使用方法:在程序目錄下創建壹個.doc文件,名為“調用模板.doc”,在此文檔中添加妳需要的模板,並把姓名需要的地方改為“姓名”,日期需要的地方改為“日期”,之後進入程序操作即可。
如果需要其它的通用型源碼(比如指定替換),請追問。
演示圖片過大無法上傳,請見諒。
源碼下載: