WORD VBA，如何判断当前光标:1.在哪个表格中，2.是否在最后一行？

在word中，如何用VBA判断光标是不是在段落的结尾？~

sub 判断断尾()
If Selection.Range.Characters(1) = Chr(13) Then
Debug.Print "光标在段尾"
else
Debug.Print "光标不在段尾"
endif
end sub

步骤如下：
1.打开word文档后，选中图表，鼠标右键，在自动调整中有三个选项；

2.“根据内容调整表格”命令，Word将根据表格中的内容来调整表格的大小；

3.“根据窗口调整表格”命令，Word将根据当前文档页面的大小调整表格的大小，使表格与页面等宽；

4.如果不需要列宽自动调整，选择表格并右击，选择快捷菜单中的“自 动调整”一“固定列宽”命令即可。

Dim myTable As Table
Dim talbe_ID

For Each myTable In ThisDocument.Tables
    If Selection.Range.InRange(myTable.Range) Then
        table_ID = myTable.ID
    End If
Next

说明：由于Tables对象没有Index属性，也不会自动赋值ID属性（或Title属性），因此需要你事先自行定义各个表格的 ID 属性值，上述代码才会返回所需结果，否则返回的是默认的空值。

---

富川瑶族自治县18091414271： 如何在word表格中用VBA得到当前光标所在得单元格得位置 - ？
堂姣翰施： 打开word2007任意文档,在文档的最下侧状态栏,点击右键. 1步,勾选“行号”、“ 列”. 2步,在左下角可以显示出来了. 当然你也可以勾选“字数”,“页码”等内容,以方便使用. 如果在word中翻页,找不到光标当前位置,那么可以1. shift+f5,这个快捷键按一下,会快速显示光标位置.要是多按几次,会显示光标曾经所在位置. 2直接打一个字,程序会自动跳转到光标所在位置,但是不要忘了把多余文字删除

富川瑶族自治县18091414271： WORD VBA,如何判断当前光标:1.在哪个表格中,2.是否在最后一行? - ？
堂姣翰施： Dim myTable As Table Dim talbe_IDFor Each myTable In ThisDocument.TablesIf Selection.Range.InRange(myTable.Range) Thentable_ID = myTable.IDEnd If Next说明:由于Tables对象没有Index属性,也不会自动赋值ID属性(或Title属性),因此需要你事先自行定义各个表格的 ID 属性值,上述代码才会返回所需结果,否则返回的是默认的空值.

富川瑶族自治县18091414271： VBA中如何获取当前鼠标位置 - ？
堂姣翰施： '运行此段代码需要新建一个名为UserForm1的窗体,一个名为TextBox1的文本框控件 此段代码需放在Microsoft Excel对象中 Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)Cancel = True '禁止显示系统右键菜单UserForm1.Show 0 '显示窗体UserForm1.TextBox1.Value = ActiveCell.Value '取当前单元格的值到textbox1中 End Sub

富川瑶族自治县18091414271： 在word中,如何用VBA判断光标是不是在段落的结尾? - ？
堂姣翰施： If Selection.Range.Characters(1) = Chr(13) Then Debug.Print ＂光标在段尾＂

富川瑶族自治县18091414271： word vba 如何返回查找到的光标位置? - ？
堂姣翰施： 对于第一个问题,如果是用find方法查找,返回的是一个range对象,取range.start就是我所说的光标位置了.第二个问题中st1和st2是如何定义的都不知道,所以无法回答.

富川瑶族自治县18091414271： 在Word中,如何用VBA将页面跳转到光标的位置 - ？
堂姣翰施： 在for语句前加上 Application.ScreenUpdating = true 用完之后的地方加上 Application.ScreenUpdating = False 试一试

富川瑶族自治县18091414271： 在VB中如何知道光标在word中的哪个表格里? - ？
堂姣翰施： 1、用ActiveDocument.Tables.Count确定文档中所有表格的个数2、用ActiveDocument.Tables(i).ID =i 给文档中所有表格指定顺序的ID,3、最后用selection.Tables(1).ID确定当前光标所在表格

富川瑶族自治县18091414271： 麻烦问一下怎么表示当前光标所在的表格的A1单元格. - ？
堂姣翰施： 参考: Sub A1()'首先判断光标是否在表格中If Selection.Information(wdWithInTable) Then'在则将当前表格第1个单元格(A1)赋值为“A1”Selection.Tables(1).Cell(1, 1).Range = ＂A1＂End If End Sub

富川瑶族自治县18091414271： 在VBA中怎么取得word中的当前光标所在的行的行数 - ？
堂姣翰施： Sub Macro2() Dim r, p, r0, p0, rr, pp p= Selection.Information(wdActiveEndPageNumber) '当前页码 r= Selection.Information(wdFirstCharacterLineNumber) '当前行 '数行数 p0 = p rr = r Do Selection.MoveDown Unit:=wdLine, Count:=1 pp = ...

富川瑶族自治县18091414271： 如何用VBA判断光标是不是在一段的结尾 - ？
堂姣翰施： Sub CheckSelction()With SelectionIf .Type = wdSelectionIP ThenIf .Start = 0 ThenMsgBox ＂光标位于文档首＂ElseIf .Start = ActiveDocument.Content.End - 1 ThenMsgBox ＂光标位于文档末＂ElseIf .Characters(1) = Chr(13) ThenMsgBox ...