Excel如何在word中随着光标移动,相应的行高亮或者改变颜色

2024年3月12日发(作者：)

Excel如何在word中随着光标移动，相应的行高亮或者改变颜色

方案二：调用助手大眼夹，使其指向选区所在行。输入代码后，运行AutoExec或重

启Word后即可。

优点：使用了助手动画，没有更改文档的自身设置。缺点：对行的高亮指示作用不太

明显。

第一步：在VBE中插入一个类模块class2，输入以下代码：

Public WithEvents appWord As ation

Private Sub appWord_WindowSelectionChange(ByVal Sel As Selection)

Dim pLeft As Long, pTop As Long, pWidth As Long, pHeight As Long

nt pLeft, pTop, pWidth, pHeight, _

rks("Line").Range

With Assistant

.FileName = "" '选择大眼夹

.On = True '启用助手

.Visible = True '使助手可见

.Move xLeft:=pLeft - 120, yTop:=pTop - 35 '调整助手的位置到行前

.MoveWhenInTheWay = True

.Animation = msoAnimationGestureLeft '选择向右指的动画效果

End With

End Sub

第二步：在VBE中插入一个普通模块，输入以下代码：

Dim b As New class2

Sub AutoExec()

Set d = ation

End Sub