WORD VBA,如何判断当前光标:1.在哪个表格中,2.是否在最后一行?
作者&投稿:边苛 (若有异议请与网页底部的电邮联系)
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 属性值,上述代码才会返回所需结果,否则返回的是默认的空值。
堂姣翰施: 打开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 ...