码栈开发手册（四）---编码方式开发（WORD处理相关函数）

2023-12-03 16:13:40

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


本文转自码栈平台

上一篇：码栈开发手册（四）---编码方式开发（日期相关函数）


下一篇：码栈开发手册（三）---编码方式开发（高级课程⑤）