在WORDVBA中如何判断光标位置（光标在行/段落/文首/文尾）

雪豹

在WORDVBA编程中如何判断光标的位置,以及如何判断光标在行/段落/文档的最前面及结尾

谢谢

守柔

作了一个示例，供参考：

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋ '* Created By I Love You_Word!@ExcelHome 2005-10-27 5:12:56 '仅测试于System: Windows NT Word: 10.0 Language: 2052 '№ 00069^The Code CopyIn [ThisDocument-ThisDocument]^' '* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－

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 "光标位于行末" End If End If End With End Sub '----------------------

雪豹

谢谢斑竹的解答,请问可以判断"光标的具体位置"(第几行第几列)吗?

如何控制光标的移动呢？使光标落在行/段落/文档的最前面及结尾，以及具体位置"(第几行第几列)"

[此贴子已经被作者于2005-10-28 11:49:16编辑过]

雪豹

守柔斑竹能帮我看看新的问题吗？

守柔

以下是引用雪豹在2005-10-28 16:00:56的发言： 守柔斑竹能帮我看看新的问题吗？

参考：

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋ '* Created By I Love You_Word!@ExcelHome 2001-2-24 5:58:42 '仅测试于System: Windows NT Word: 10.0 Language: 2052 '№ 00073^The Code CopyIn [ThisDocument-ThisDocument]^' '* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－

Option Explicit Sub Example() With Selection MsgBox "当前光标所在位置为:" & .Information(wdFirstCharacterLineNumber) & "行 " & .Information(wdFirstCharacterColumnNumber) & "列" '以下二个操作将光标移到文档首 ActiveDocument.Range(0, 0).Select .HomeKey wdStory '以下操作将光标移到文档末 .EndKey wdStory ActiveDocument.Range(ActiveDocument.Content.End - 1, ActiveDocument.Content.End - 1).Select '以下操作将光标移到段落首 ActiveDocument.Range(.Paragraphs(1).Range.Start, .Paragraphs(1).Range.Start).Select '以下操作将光标移到段落末 ActiveDocument.Range(.Paragraphs(1).Range.End - 1, .Paragraphs(1).Range.End - 1).Select '以下操作将光标移到行首 .HomeKey wdLine '以下操作将光标移到行末 .EndKey wdLine '以下操作,光标下移一行 .MoveDown , 1 '以下操作,光标上移一行 .MoveUp , 1 '以下操作,光标左移一个字符 .MoveLeft wdCharacter, 1 '以下操作,光标右移一个字符 .MoveRight , wdCharacter, 1 End With End Sub '----------------------

强烈建议楼主学习一下http://club.excelhome.net/viewthread.php?tid=110721

使用RANGE对象可以更好地实现你的目的。

雪豹

我非常感谢守柔斑竹热心帮助，看到您的回帖，我已经正在学习《守柔WORD-VBA讲座》了，我会努力学习的。

pittle

守柔写的非常好,虽然我不做vba,看到您写的东西,相当有用,谢谢了

xiaoyanilw

守柔 发表于 2005-10-27 05:13
作了一个示例，供参考：'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋
'* Created By I ...

多谢斑竹，我也去看您的讲座了，真心感谢

wrove

Thank you for your work!!!!!

banjinjiu

守柔 发表于 2005-10-29 05:59
参考：
'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋
'* Created By I Love You_ ...

第一处代码：

1. Sub CheckSelction()
   
2. With Selection
   
3. If .Type = wdSelectionIP Then
   
4. If .Start = 0 Then
   
5. MsgBox "光标位于文档首"
   
6. ElseIf .Start = ActiveDocument.Content.End - 1 Then
   
7. MsgBox "光标位于文档末"
   
8. ElseIf .Characters(1) = Chr(13) Then
   
9. MsgBox "光标位于段尾"
   
10. ElseIf .Start = .Paragraphs(1).Range.Start Then
    
11. MsgBox "光标位于段首"
    
12. ElseIf .Information(wdFirstCharacterColumnNumber) = 1 Then
    
13. MsgBox "光标位于行首"
    
14. ElseIf .Characters(1).Information(wdFirstCharacterColumnNumber) = 1 Then
    
15. MsgBox "光标位于行末"
    
16. End If
    
17. End If
    
18. End With
    
19. End Sub

复制代码

第二处代码

1. Sub Example1()
   
2. With Selection
   
3. MsgBox "当前光标所在位置为:" & .Information(wdFirstCharacterLineNumber) & "行 " & .Information(wdFirstCharacterColumnNumber) & "列"
   
4. End With
   
5. End Sub
   
6. 
   
7. Sub Example2()
   
8. '以下二个操作将光标移到文档首
   
9. With Selection
   
10. ActiveDocument.Range(0, 0).Select
    
11. .HomeKey wdStory
    
12. End With
    
13. End Sub
    
14. 
    
15. Sub Example3()
    
16. With Selection
    
17. '以下操作将光标移到文档末
    
18. .EndKey wdStory
    
19. ActiveDocument.Range(ActiveDocument.Content.End - 1, ActiveDocument.Content.End - 1).Select
    
20. End With
    
21. End Sub
    
22. 
    
23. Sub Example4()
    
24. With Selection
    
25. '以下操作将光标移到段落首
    
26. ActiveDocument.Range(.Paragraphs(1).Range.Start, .Paragraphs(1).Range.Start).Select
    
27. End With
    
28. End Sub
    
29. 
    
30. Sub Example5()
    
31. With Selection
    
32. '以下操作将光标移到段落末
    
33. ActiveDocument.Range(.Paragraphs(1).Range.End - 1, .Paragraphs(1).Range.End - 1).Select
    
34. End With
    
35. End Sub
    
36. Sub Example6()
    
37. With Selection
    
38. '以下操作将光标移到行首
    
39. .HomeKey wdLine
    
40. End With
    
41. End Sub
    
42. Sub Example7()
    
43. With Selection
    
44. '以下操作将光标移到行末
    
45. .EndKey wdLine
    
46. End With
    
47. End Sub
    
48. 
    
49. Sub Example8()
    
50. With Selection
    
51. '以下操作,光标下移一行
    
52. .MoveDown , 1
    
53. End With
    
54. End Sub
    
55. 
    
56. Sub Example9()
    
57. With Selection
    
58. '以下操作,光标上移一行
    
59. .MoveUp , 1
    
60. End With
    
61. End Sub
    
62. 
    
63. Sub Example10()
    
64. With Selection
    
65. '以下操作,光标左移一个字符
    
66. .MoveLeft wdCharacter, 1
    
67. End With
    
68. End Sub
    
69. 
    
70. Sub Example11()
    
71. With Selection
    
72. '以下操作,光标右移一个字符
    
73. .MoveRight , wdCharacter, 1
    
74. End With
    
75. End Sub

复制代码

本人不才，纠正一处守柔代码错误。
第11个代码：以下操作光标“右移”一个字符，实际为光标向右“选择”一个字符。
光标“右移”一个字符，代码为：

1. Sub Example12()
   
2. With Selection
   
3. '以下操作,光标右移一个字符
   
4. .MoveRight wdCharacter, 1
   
5. End With
   
6. End Sub

复制代码

不足之处，敬请指正。