永发信息网

VBA问题,如何判断word文本的最后一个字符?或换行符?

答案:1  悬赏:40  手机版
解决时间 2021-02-19 08:15
VBA问题,如何判断word文本的最后一个字符?或换行符?
最佳答案
Sub CheckSelction()
With Selection
If .Type = wdSelectionIP Then
If .Start = 0 Then
MsgBox "光标位于文档首"
ElseIf .Start = ActiveDocument.Content.End - 1 Then
MsgBox "光标位于文档末"
ElseIf .Characters(1) = Chr(13) Then
MsgBox "光标位于段尾"
ElseIf .Start = .Paragraphs(1).Range.Start Then
MsgBox "光标位于段首"
ElseIf .Information(wdFirstCharacterColumnNumber) = 1 Then
MsgBox "光标位于行首"
ElseIf .Characters(1).Information(wdFirstCharacterColumnNumber) = 1 Then
MsgBox "光标位于行末"
Else
MsgBox "光标位段落中"
End If
End If
End With
End Sub
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
亲人之间真的有一种心灵感应 就算多年从未某
魔域里如何用低级宝石融合高级宝石呢?至少要
中国电信茅桥营业厅我想知道这个在什么地方
鉴别草莓晶真假
教育研究的基本方法:观察法,调查法,实验法和
帮忙弄成20x20分辨率!
周公解梦灵验么
洛奇英雄传永恒人物可以删除吗
威海依思特尔服饰有限公司怎么去啊,有知道地
有了力量型肌肉会影响练速度型肌肉么— —
年近40的女人还能规划人生吗?
为什么人们叫这条纪念船为"南湖红船”
华青农机销售有限公司在哪里啊,我有事要去这
高钾血症是指A.血钾>3.5mmol/LB.血钾>4.0mmol
新浪微博怎么发照片
推荐资讯
鑫瑞二手车地址有知道的么?有点事想过去
岜木柚地址在什么地方,想过去办事
桌面上的图标开机的时候怎么不在原来的位置啊
(2009年海淀模拟)下列有关实验的叙述,正确
天鹅湖我想知道这个在什么地方
茉莉花叶子发黄,叶片卷曲,怎么回事
儒家思想在中国的发展演变按时间顺序排列正确
怎样培养孩子盥洗的良好习惯
金田种子经销部地址有知道的么?有点事想过去
阅读下列材料,回答有关问题:材料一俗话说得
柿子和芒果慕斯能一起吃吗
窑洞是下列哪个地区的特色民居CA. 华北平原B.
正方形一边上任一点到这个正方形两条对角线的
阴历怎么看 ?