如何用VBA代码实现同时选中word表格中的多行或多列

cunfu2010 · 发表于 2024-9-2 17:38

本帖最后由 cunfu2010 于 2024-9-2 19:27 编辑

word文档中有一10*10的表格，如何同时选中其中的第1、2、4、5、7、8行或第2、4、6、8、10列？

醉眼看尘世 · 发表于 2024-9-2 18:26

按住Ctrl,然后鼠标选取就可以了哇

cunfu2010 · 发表于 2024-9-2 19:26

醉眼看尘世发表于 2024-9-2 18:26
按住Ctrl,然后鼠标选取就可以了哇

用vba代码实现

gwjkkkkk · 发表于 2024-9-2 19:56

Option Explicit
Sub test()
Dim ar, j&

Application.ScreenUpdating = False

ar = Array(1, 2, 4, 5, 7, 8)
With ActiveDocument
      .DeleteAllEditableRanges wdEditorEveryone
      With .Tables(1)
         For j = 0 To UBound(ar)
            .Rows(ar(j)).Select
            Selection.Range.Editors.Add wdEditorEveryone
         Next j
      End With
      .SelectAllEditableRanges wdEditorEveryone
      .DeleteAllEditableRanges wdEditorEveryone
End With

Application.ScreenUpdating = True
End Sub

gwjkkkkk · 发表于 2024-9-2 19:56

。。。。。。。。。

cunfu2010 · 发表于 2024-9-2 20:12

本帖最后由 cunfu2010 于 2024-9-2 20:14 编辑

gwjkkkkk 发表于 2024-9-2 19:56
。。。。。。。。。

谢谢！非常厉害

gwjkkkkk · 发表于 2024-9-2 20:14

cunfu2010 发表于 2024-9-2 20:12
谢谢！代码运行后表格没反应。word2010

工作簿激活一下，，，

		自动登录	找回密码
密码			免费注册

[求助] 如何用VBA代码实现同时选中word表格中的多行或多列

评分