在WORD中，能否通过宏，一次性选择不连续的区域？

天地惠

在WORD中，能否通过宏，一次性选择不连续的区域，例如同时选择第1、3、5段，然后再将其颜色变为红色？

182197315

一段一段操作不行吗

taller

选中这些段落也需要使用循环，那么为啥不在这个循环中处理格式呢，不明白楼主为啥要先选中这些段落

kevinchengcw

参考

dragonthree

kevinchengcw 发表于 2024-11-14 09:16
参考

你这是投机取巧，偷换概念！

lss001

'如果是想要选择奇数段

Sub Word选择不连续段落()
    With Selection
         ' 光标移动到文档首
          .HomeKey 6
          ' 获取段落总数
          k = ActiveDocument.Paragraphs.Count
          i = 0 '初始化i
          Do Until i > k '退出条件
               i = i + 1 '累加
              .Expand 4 '选择当前整段
              .Editors.Add -6 '重点：添加可编辑符号
              .Move 4, 2 '光标下移2段
         Loop
    End With

    Set oDoc = ActiveDocument.Countent
    oDoc.GoToEditableRange(-6) _
    .Editors(1).SelectAll '选择全部编辑符
    oDoc.GoToEditableRange(-6) _
    .Editors(1).DeleteAll '删除全部编辑符

    '要处理段落代码......
End Sub

天地惠

谢谢各位老师