码栈开发手册(四)---编码方式开发(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


本文转自码栈平台

上一篇:码栈开发手册(四)---编码方式开发(日期相关函数)


下一篇:码栈开发手册(三)---编码方式开发(高级课程⑤)