word对象

lovely203

易语言用word对象判断最后一页是否有内容，没有就删除。请问大神怎么操作的，谢谢！ fsjst.rar (24.36 KB, 下载次数: 9)

2021-8-18 09:00 上传

点击文件名下载附件

梦寻简单

  

变量名	类 型	静态	数组	备 注
局_Word对象	对象
局_ActiveDocument	对象
局_Selection	对象
局_Range	对象
局_Start	整数型
局_End	整数型
局_总页数	整数型
i	整数型

局_Word对象.获取 (“word.Application”)
局_ActiveDocument ＝ 局_Word对象.读对象型属性 (“ActiveDocument”, )
局_Selection ＝ 局_Word对象.读对象型属性 (“Selection”, )
局_总页数 ＝ 局_ActiveDocument.读对象型属性 (“BuiltInDocumentProperties”, ).读数值属性 (“Item”, #wdPropertyPages )
如果真 (局_总页数 ＜ 2)
返回 ()
局_Range ＝ 局_Selection.对象型方法 (“GoTo”, #wdGoToPage, #wdGoToFirst, 局_总页数)
局_Start ＝ 局_Range.读数值属性 (“Start”, )
局_End ＝ 局_ActiveDocument.读对象型属性 (“Content”, ).读数值属性 (“End”, )
如果真 (局_End － 局_Start ＝ 1)
i ＝ 0
循环判断首 ()
局_Range ＝ 局_ActiveDocument.对象型方法 (“Range”, 局_Start － i, 局_End)
局_Range.数值方法 (“Delete”, #wdCharacter, 1)
i ＝ i ＋ 1
循环判断尾 (局_ActiveDocument.读对象型属性 (“BuiltInDocumentProperties”, ).读数值属性 (“Item”, #wdPropertyPages ) ＝ 局_总页数)

.版本 2<br /> <br /> .局部变量 局_Word对象, 对象<br /> .局部变量 局_ActiveDocument, 对象<br /> .局部变量 局_Selection, 对象<br /> .局部变量 局_Range, 对象<br /> .局部变量 局_Start, 整数型<br /> .局部变量 局_End, 整数型<br /> .局部变量 局_总页数, 整数型<br /> .局部变量 i, 整数型<br /> <br /> 局_Word对象.获取 (“word.Application”)<br /> 局_ActiveDocument ＝ 局_Word对象.读对象型属性 (“ActiveDocument”, )<br /> 局_Selection ＝ 局_Word对象.读对象型属性 (“Selection”, )<br /> 局_总页数 ＝ 局_ActiveDocument.读对象型属性 (“BuiltInDocumentProperties”, ).读数值属性 (“Item”, #wdPropertyPages)<br /> .如果真 (局_总页数 ＜ 2)<br />     返回 ()<br /> .如果真结束<br /> 局_Range ＝ 局_Selection.对象型方法 (“GoTo”, #wdGoToPage, #wdGoToFirst, 局_总页数)<br /> 局_Start ＝ 局_Range.读数值属性 (“Start”, )<br /> 局_End ＝ 局_ActiveDocument.读对象型属性 (“Content”, ).读数值属性 (“End”, )<br /> .如果真 (局_End － 局_Start ＝ 1)<br />     i ＝ 0<br />     .循环判断首 ()<br />         局_Range ＝ 局_ActiveDocument.对象型方法 (“Range”, 局_Start － i, 局_End)<br />         局_Range.数值方法 (“Delete”, #wdCharacter, 1)<br />         i ＝ i ＋ 1<br />     .循环判断尾 (局_ActiveDocument.读对象型属性 (“BuiltInDocumentProperties”, ).读数值属性 (“Item”, #wdPropertyPages) ＝ 局_总页数)

  

常量名称	常量值	公 开	备 注
wdPropertyPages	14	√
wdGoToPage	1	√
wdGoToFirst	1	√
wdCharacter	1	√

.版本 2<br /> <br /> .常量 wdPropertyPages, "14", 公开<br /> .常量 wdGoToPage, "1", 公开<br /> .常量 wdGoToFirst, "1", 公开<br /> .常量 wdCharacter, "1", 公开

阿杰大大

获取最后一页的对象,然后去枚举子对象,如果有元素子对象就代表有内容.

lovely203

阿杰大大 发表于 2021-8-18 10:56
获取最后一页的对象,然后去枚举子对象,如果有元素子对象就代表有内容.

请大神写个列子来。
word.读对象型属性 (“ActiveDocument”, ).读对象型属性 (“Range”, Selection.对象型方法 (“GoTo”, 1, 1, 页码).通用方法 (“Start”, ), Selection.对象型方法 (“GoTo”, 1, 1, 页码 ).通用方法 (“End”, ))
只能到最后一页就不知怎么写了。

梦寻简单

  

变量名	类 型	静态	数组	备 注
局_Word对象	对象
局_ActiveDocument	对象
局_Selection	对象
局_Range	对象
局_Start	整数型
局_End	整数型
局_总页数	整数型
i	整数型

局_Word对象.获取 (“word.Application”)
局_ActiveDocument ＝ 局_Word对象.读对象型属性 (“ActiveDocument”, )
局_Selection ＝ 局_Word对象.读对象型属性 (“Selection”, )
局_总页数 ＝ 局_ActiveDocument.读对象型属性 (“BuiltInDocumentProperties”, ).读数值属性 (“Item”, #wdPropertyPages )
如果真 (局_总页数 ＜ 2)
返回 ()
局_Range ＝ 局_Selection.对象型方法 (“GoTo”, #wdGoToPage, #wdGoToFirst, 局_总页数)
局_Start ＝ 局_Range.读数值属性 (“Start”, )
局_End ＝ 局_ActiveDocument.读对象型属性 (“Content”, ).读数值属性 (“End”, )
如果真 (局_End － 局_Start ＝ 1)
计次循环首 (3, i)
局_Range ＝ 局_ActiveDocument.对象型方法 (“Range”, 局_Start － i ＋ 1, 局_End)
局_Range.数值方法 (“Delete”, #wdCharacter, 1)
如果真 (局_ActiveDocument.读对象型属性 (“BuiltInDocumentProperties”, ).读数值属性 (“Item”, #wdPropertyPages ) ＜ 局_总页数)
跳出循环 ()

计次循环尾 ()

.版本 2<br /> <br /> .局部变量 局_Word对象, 对象<br /> .局部变量 局_ActiveDocument, 对象<br /> .局部变量 局_Selection, 对象<br /> .局部变量 局_Range, 对象<br /> .局部变量 局_Start, 整数型<br /> .局部变量 局_End, 整数型<br /> .局部变量 局_总页数, 整数型<br /> .局部变量 i, 整数型<br /> <br /> 局_Word对象.获取 (“word.Application”)<br /> 局_ActiveDocument ＝ 局_Word对象.读对象型属性 (“ActiveDocument”, )<br /> 局_Selection ＝ 局_Word对象.读对象型属性 (“Selection”, )<br /> 局_总页数 ＝ 局_ActiveDocument.读对象型属性 (“BuiltInDocumentProperties”, ).读数值属性 (“Item”, #wdPropertyPages)<br /> .如果真 (局_总页数 ＜ 2)<br />     返回 ()<br /> .如果真结束<br /> 局_Range ＝ 局_Selection.对象型方法 (“GoTo”, #wdGoToPage, #wdGoToFirst, 局_总页数)<br /> 局_Start ＝ 局_Range.读数值属性 (“Start”, )<br /> 局_End ＝ 局_ActiveDocument.读对象型属性 (“Content”, ).读数值属性 (“End”, )<br /> .如果真 (局_End － 局_Start ＝ 1)<br />     .计次循环首 (3, i)<br />         局_Range ＝ 局_ActiveDocument.对象型方法 (“Range”, 局_Start － i ＋ 1, 局_End)<br />         局_Range.数值方法 (“Delete”, #wdCharacter, 1)<br />         .如果真 (局_ActiveDocument.读对象型属性 (“BuiltInDocumentProperties”, ).读数值属性 (“Item”, #wdPropertyPages) ＜ 局_总页数)<br />             跳出循环 ()<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> .如果真结束

lovely203

梦寻简单 发表于 2021-8-18 18:35
[e=1].版本 2

.局部变量 局_Word对象, 对象

哥。基本上可以。