148
碼棧開發手冊（四）---編碼方式開發（WORD處理相關函數）
11.1 J_Word_Open(文件路徑, [是否可見:否])
作用:打開指定的word文檔，並返回word對象
返回值：Word對象
例子：
Func Example39()
;前台創建一個word文檔，可見
Local $doc1 = J_Word_Create("是")
;前台打開D:\1.docx word文檔，可見
Local $doc2 = J_Word_Open("D:\1.docx", "是")
;光標向下移動4行
J_Word_CursorMove($doc2, 4, "下")
;光標向右移動3個字符
J_Word_CursorMove($doc2, 3, "右")
;插入文本 你好啊~，字號12，宋體，顏色位置是3，加粗
J_Word_Write($doc2, "你好啊~", 12, "宋體", 3, "是")
;從當前位置向後查找第二個"你好啊2"文本，並把光標放在你好啊2前麵
J_Word_SeatchText($doc2, "你好啊2", "當前", 2, "前")
;插入文本，“在這裏”，字號12，字體微軟雅黑，顏色位置1，不加粗
J_Word_Write($doc2, "在這裏", 12, "微軟雅黑", 1, "否")
;保存doc2
J_Word_Save($doc2)
;讀取doc2全部文本內容
Local $allstring = J_Word_Read($doc2)
;把讀取的內容寫入到doc1裏麵
J_Word_Write($doc1, $allstring)
;將doc1文檔保存為D:\newdoc.docx
J_Word_Save($doc1, "D:\newdoc.docx")
;關閉文檔1
J_Word_Close($doc1)
;關閉文檔2
J_Word_Close($doc2)
;結束word操作
J_Word_Quit()
;將D:\newdoc.docx轉換成D:\1.pdf，注意此函數非word操作，而是文件格式的轉變
J_WordToPDF("D:\newdoc.docx", "D:\1.pdf")
EndFunc ;==>Example39
11.2 J_Word_Create([是否可見:否])
作用:創建一個新的Word文檔，並返回word對象
返回值：Word對象
例子：
Func Example39()
;前台創建一個word文檔，可見
Local $doc1 = J_Word_Create("是")
;前台打開D:\1.docx word文檔，可見
Local $doc2 = J_Word_Open("D:\1.docx", "是")
;光標向下移動4行
J_Word_CursorMove($doc2, 4, "下")
;光標向右移動3個字符
J_Word_CursorMove($doc2, 3, "右")
;插入文本 你好啊~，字號12，宋體，顏色位置是3，加粗
J_Word_Write($doc2, "你好啊~", 12, "宋體", 3, "是")
;從當前位置向後查找第二個"你好啊2"文本，並把光標放在你好啊2前麵
J_Word_SeatchText($doc2, "你好啊2", "當前", 2, "前")
;插入文本，“在這裏”，字號12，字體微軟雅黑，顏色位置1，不加粗
J_Word_Write($doc2, "在這裏", 12, "微軟雅黑", 1, "否")
;保存doc2
J_Word_Save($doc2)
;讀取doc2全部文本內容
Local $allstring = J_Word_Read($doc2)
;把讀取的內容寫入到doc1裏麵
J_Word_Write($doc1, $allstring)
;將doc1文檔保存為D:\newdoc.docx
J_Word_Save($doc1, "D:\newdoc.docx")
;關閉文檔1
J_Word_Close($doc1)
;關閉文檔2
J_Word_Close($doc2)
;結束word操作
J_Word_Quit()
;將D:\newdoc.docx轉換成D:\1.pdf，注意此函數非word操作，而是文件格式的轉變
J_WordToPDF("D:\newdoc.docx", "D:\1.pdf")
EndFunc ;==>Example39
11.3 J_Word_SeatchText(Word對象, 搜索的文本, [起始位置:開始], [第幾個符合:1], [光標位於關鍵詞位置:後])
作用1:搜索word文檔中的關鍵詞並把光標移動至關鍵詞
作用2:起始位置：開始/當前 是否從文檔頭開始搜索，還是從光標位置進行搜索，默認開始
作用3:第幾個符合：搜索詞出現的個數，默認第一次出現就匹配
作用4:光標位於關鍵詞位置：後/前 光標處於關鍵詞前還是關鍵詞後
返回值：成功返回1 失敗返回0
例子：
Func Example39()
;前台創建一個word文檔，可見
Local $doc1 = J_Word_Create("是")
;前台打開D:\1.docx word文檔，可見
Local $doc2 = J_Word_Open("D:\1.docx", "是")
;光標向下移動4行
J_Word_CursorMove($doc2, 4, "下")
;光標向右移動3個字符
J_Word_CursorMove($doc2, 3, "右")
;插入文本 你好啊~，字號12，宋體，顏色位置是3，加粗
J_Word_Write($doc2, "你好啊~", 12, "宋體", 3, "是")
;從當前位置向後查找第二個"你好啊2"文本，並把光標放在你好啊2前麵
J_Word_SeatchText($doc2, "你好啊2", "當前", 2, "前")
;插入文本，“在這裏”，字號12，字體微軟雅黑，顏色位置1，不加粗
J_Word_Write($doc2, "在這裏", 12, "微軟雅黑", 1, "否")
;保存doc2
J_Word_Save($doc2)
;讀取doc2全部文本內容
Local $allstring = J_Word_Read($doc2)
;把讀取的內容寫入到doc1裏麵
J_Word_Write($doc1, $allstring)
;將doc1文檔保存為D:\newdoc.docx
J_Word_Save($doc1, "D:\newdoc.docx")
;關閉文檔1
J_Word_Close($doc1)
;關閉文檔2
J_Word_Close($doc2)
;結束word操作
J_Word_Quit()
;將D:\newdoc.docx轉換成D:\1.pdf，注意此函數非word操作，而是文件格式的轉變
J_WordToPDF("D:\newdoc.docx", "D:\1.pdf")
EndFunc ;==>Example39
11.4 J_Word_Write(Word對象, 寫入的文本, [字體大小:8], [字體:微軟雅黑],[顏色位置:1], [是否加粗:否])
作用1:在word文檔中輸入文本?
返回值：成功返回1 失敗返回0
例子：
Func Example39()
;前台創建一個word文檔，可見
Local $doc1 = J_Word_Create("是")
;前台打開D:\1.docx word文檔，可見
Local $doc2 = J_Word_Open("D:\1.docx", "是")
;光標向下移動4行
J_Word_CursorMove($doc2, 4, "下")
;光標向右移動3個字符
J_Word_CursorMove($doc2, 3, "右")
;插入文本 你好啊~，字號12，宋體，顏色位置是3，加粗
J_Word_Write($doc2, "你好啊~", 12, "宋體", 3, "是")
;從當前位置向後查找第二個"你好啊2"文本，並把光標放在你好啊2前麵
J_Word_SeatchText($doc2, "你好啊2", "當前", 2, "前")
;插入文本，“在這裏”，字號12，字體微軟雅黑，顏色位置1，不加粗
J_Word_Write($doc2, "在這裏", 12, "微軟雅黑", 1, "否")
;保存doc2
J_Word_Save($doc2)
;讀取doc2全部文本內容
Local $allstring = J_Word_Read($doc2)
;把讀取的內容寫入到doc1裏麵
J_Word_Write($doc1, $allstring)
;將doc1文檔保存為D:\newdoc.docx
J_Word_Save($doc1, "D:\newdoc.docx")
;關閉文檔1
J_Word_Close($doc1)
;關閉文檔2
J_Word_Close($doc2)
;結束word操作
J_Word_Quit()
;將D:\newdoc.docx轉換成D:\1.pdf，注意此函數非word操作，而是文件格式的轉變
J_WordToPDF("D:\newdoc.docx", "D:\1.pdf")
EndFunc ;==>Example39
11.5 J_Word_CursorMove(Word對象, 移動步數,[移動方向:右])
作用1:移動Word文檔中的光標 移動方向:上/下/左/右?
返回值：成功返回1 失敗返回0
例子：
Func Example39()
;前台創建一個word文檔，可見
Local $doc1 = J_Word_Create("是")
;前台打開D:\1.docx word文檔，可見
Local $doc2 = J_Word_Open("D:\1.docx", "是")
;光標向下移動4行
J_Word_CursorMove($doc2, 4, "下")
;光標向右移動3個字符
J_Word_CursorMove($doc2, 3, "右")
;插入文本 你好啊~，字號12，宋體，顏色位置是3，加粗
J_Word_Write($doc2, "你好啊~", 12, "宋體", 3, "是")
;從當前位置向後查找第二個"你好啊2"文本，並把光標放在你好啊2前麵
J_Word_SeatchText($doc2, "你好啊2", "當前", 2, "前")
;插入文本，“在這裏”，字號12，字體微軟雅黑，顏色位置1，不加粗
J_Word_Write($doc2, "在這裏", 12, "微軟雅黑", 1, "否")
;保存doc2
J_Word_Save($doc2)
;讀取doc2全部文本內容
Local $allstring = J_Word_Read($doc2)
;把讀取的內容寫入到doc1裏麵
J_Word_Write($doc1, $allstring)
;將doc1文檔保存為D:\newdoc.docx
J_Word_Save($doc1, "D:\newdoc.docx")
;關閉文檔1
J_Word_Close($doc1)
;關閉文檔2
J_Word_Close($doc2)
;結束word操作
J_Word_Quit()
;將D:\newdoc.docx轉換成D:\1.pdf，注意此函數非word操作，而是文件格式的轉變
J_WordToPDF("D:\newdoc.docx", "D:\1.pdf")
EndFunc ;==>Example39
11.6 J_Word_Read(Word對象/文件路徑)
作用1:讀取並返回Word文件中的內容
返回值：成功返回word文件中的內容，失敗返回0
例子：
Func Example39()
;前台創建一個word文檔，可見
Local $doc1 = J_Word_Create("是")
;前台打開D:\1.docx word文檔，可見
Local $doc2 = J_Word_Open("D:\1.docx", "是")
;光標向下移動4行
J_Word_CursorMove($doc2, 4, "下")
;光標向右移動3個字符
J_Word_CursorMove($doc2, 3, "右")
;插入文本 你好啊~，字號12，宋體，顏色位置是3，加粗
J_Word_Write($doc2, "你好啊~", 12, "宋體", 3, "是")
;從當前位置向後查找第二個"你好啊2"文本，並把光標放在你好啊2前麵
J_Word_SeatchText($doc2, "你好啊2", "當前", 2, "前")
;插入文本，“在這裏”，字號12，字體微軟雅黑，顏色位置1，不加粗
J_Word_Write($doc2, "在這裏", 12, "微軟雅黑", 1, "否")
;保存doc2
J_Word_Save($doc2)
;讀取doc2全部文本內容
Local $allstring = J_Word_Read($doc2)
;把讀取的內容寫入到doc1裏麵
J_Word_Write($doc1, $allstring)
;將doc1文檔保存為D:\newdoc.docx
J_Word_Save($doc1, "D:\newdoc.docx")
;關閉文檔1
J_Word_Close($doc1)
;關閉文檔2
J_Word_Close($doc2)
;結束word操作
J_Word_Quit()
;將D:\newdoc.docx轉換成D:\1.pdf，注意此函數非word操作，而是文件格式的轉變
J_WordToPDF("D:\newdoc.docx", "D:\1.pdf")
EndFunc ;==>Example39
11.7 J_Word_Close(Word對象)
作用:關閉WordDoc文檔
返回值：成功返回1，失敗返回0
例子：
Func Example39()
;前台創建一個word文檔，可見
Local $doc1 = J_Word_Create("是")
;前台打開D:\1.docx word文檔，可見
Local $doc2 = J_Word_Open("D:\1.docx", "是")
;光標向下移動4行
J_Word_CursorMove($doc2, 4, "下")
;光標向右移動3個字符
J_Word_CursorMove($doc2, 3, "右")
;插入文本 你好啊~，字號12，宋體，顏色位置是3，加粗
J_Word_Write($doc2, "你好啊~", 12, "宋體", 3, "是")
;從當前位置向後查找第二個"你好啊2"文本，並把光標放在你好啊2前麵
J_Word_SeatchText($doc2, "你好啊2", "當前", 2, "前")
;插入文本，“在這裏”，字號12，字體微軟雅黑，顏色位置1，不加粗
J_Word_Write($doc2, "在這裏", 12, "微軟雅黑", 1, "否")
;保存doc2
J_Word_Save($doc2)
;讀取doc2全部文本內容
Local $allstring = J_Word_Read($doc2)
;把讀取的內容寫入到doc1裏麵
J_Word_Write($doc1, $allstring)
;將doc1文檔保存為D:\newdoc.docx
J_Word_Save($doc1, "D:\newdoc.docx")
;關閉文檔1
J_Word_Close($doc1)
;關閉文檔2
J_Word_Close($doc2)
;結束word操作
J_Word_Quit()
;將D:\newdoc.docx轉換成D:\1.pdf，注意此函數非word操作，而是文件格式的轉變
J_WordToPDF("D:\newdoc.docx", "D:\1.pdf")
EndFunc ;==>Example39
11.8 J_Word_Quit()
作用1:結束Word文檔操作 注：在使用Word函數後必須調用這個函數
返回值：返回1
例子：
Func Example39()
;前台創建一個word文檔，可見
Local $doc1 = J_Word_Create("是")
;前台打開D:\1.docx word文檔，可見
Local $doc2 = J_Word_Open("D:\1.docx", "是")
;光標向下移動4行
J_Word_CursorMove($doc2, 4, "下")
;光標向右移動3個字符
J_Word_CursorMove($doc2, 3, "右")
;插入文本 你好啊~，字號12，宋體，顏色位置是3，加粗
J_Word_Write($doc2, "你好啊~", 12, "宋體", 3, "是")
;從當前位置向後查找第二個"你好啊2"文本，並把光標放在你好啊2前麵
J_Word_SeatchText($doc2, "你好啊2", "當前", 2, "前")
;插入文本，“在這裏”，字號12，字體微軟雅黑，顏色位置1，不加粗
J_Word_Write($doc2, "在這裏", 12, "微軟雅黑", 1, "否")
;保存doc2
J_Word_Save($doc2)
;讀取doc2全部文本內容
Local $allstring = J_Word_Read($doc2)
;把讀取的內容寫入到doc1裏麵
J_Word_Write($doc1, $allstring)
;將doc1文檔保存為D:\newdoc.docx
J_Word_Save($doc1, "D:\newdoc.docx")
;關閉文檔1
J_Word_Close($doc1)
;關閉文檔2
J_Word_Close($doc2)
;結束word操作
J_Word_Quit()
;將D:\newdoc.docx轉換成D:\1.pdf，注意此函數非word操作，而是文件格式的轉變
J_WordToPDF("D:\newdoc.docx", "D:\1.pdf")
EndFunc ;==>Example39
11.9 J_Word_Save(Word對象,[文件另存名稱])
作用1:保存Word文檔，當輸入另存名稱的時候對此word文檔進行另存操作
返回值：成功返回1，失敗返回0
例子：
Func Example39()
;前台創建一個word文檔，可見
Local $doc1 = J_Word_Create("是")
;前台打開D:\1.docx word文檔，可見
Local $doc2 = J_Word_Open("D:\1.docx", "是")
;光標向下移動4行
J_Word_CursorMove($doc2, 4, "下")
;光標向右移動3個字符
J_Word_CursorMove($doc2, 3, "右")
;插入文本 你好啊~，字號12，宋體，顏色位置是3，加粗
J_Word_Write($doc2, "你好啊~", 12, "宋體", 3, "是")
;從當前位置向後查找第二個"你好啊2"文本，並把光標放在你好啊2前麵
J_Word_SeatchText($doc2, "你好啊2", "當前", 2, "前")
;插入文本，“在這裏”，字號12，字體微軟雅黑，顏色位置1，不加粗
J_Word_Write($doc2, "在這裏", 12, "微軟雅黑", 1, "否")
;保存doc2
J_Word_Save($doc2)
;讀取doc2全部文本內容
Local $allstring = J_Word_Read($doc2)
;把讀取的內容寫入到doc1裏麵
J_Word_Write($doc1, $allstring)
;將doc1文檔保存為D:\newdoc.docx
J_Word_Save($doc1, "D:\newdoc.docx")
;關閉文檔1
J_Word_Close($doc1)
;關閉文檔2
J_Word_Close($doc2)
;結束word操作
J_Word_Quit()
;將D:\newdoc.docx轉換成D:\1.pdf，注意此函數非word操作，而是文件格式的轉變
J_WordToPDF("D:\newdoc.docx", "D:\1.pdf")
EndFunc ;==>Example39本文轉自碼棧平台
最後更新：2017-05-10 14:02:40