求助：想选中光标至段落结尾最后一个字符

weiyingde

这样试试
你复制代码：
.Range(.Paragraphs(i).Range.Start + Int(Rnd * 1 + 1) * i, .Paragraphs(i).Range.End - Int(Rnd * 2 + 1) * i).Editors.Add wdEditorEveryone再不行，还把2改为1
或者在第二行加上：On error resume next

相见是缘8

weiyingde 发表于 2020-2-11 15:54
这样试试
你复制代码：
.Range(.Paragraphs(i).Range.Start + Int(Rnd * 1 + 1) * i, .Paragraphs(i).Ran ...

你好！

把21楼的代码替换原代码后，运行的结果如我18楼、20楼说的一样，把2改为1也一样，在第二行放上：On error resume next这句代码后，运行的结果如图。把1改为2也一样。

weiyingde

经测试，我这边运行很好，没有你说的问题。
你多试两把。
因为是随机，所选区域及相关文字的格式会经常发生变化。

相见是缘8

weiyingde 发表于 2020-2-11 19:21
经测试，我这边运行很好，没有你说的问题。
你多试两把。
因为是随机，所选区域及相关文字的格式会经常发 ...

你好！

昨天就测试了 5、6次，刚才又测试 3次（见图），结果同昨天 22楼 的基本一样。

weiyingde

从上面两幅图来看，只有字色发生变化，字体和区域没有变，如果区域没有错误的话，那么，可能就是你的电脑上没有”华文行楷”的字体。我再改一下，你测试。
Sub 同时选取并改变多个独立区域格式()
'On Error Resume Next
arr = Array("黑色", "蓝色", "青绿色", "鲜绿色", "粉红色", "红色", "黄色", "深蓝色", "青色", "绿色", "紫色", "深红色", "深黄色")
With ActiveDocument
     .DeleteAllEditableRanges wdEditorEveryone '删除所有可编辑的区域
     With .Content.Font
          .Name = "楷体"
          .ColorIndex = wdAuto
          .Size = 12
     End With
   For i = 1 To .Paragraphs.Count
         Randomize
         m = Int(Rnd * 5 + 1) * i
         n = Int(Rnd * 6 + 1) * i
         .Range(.Paragraphs(i).Range.Start + m, .Paragraphs(i).Range.End - n).Editors.Add wdEditorEveryone
   Next
     .SelectAllEditableRanges wdEditorEveryone '选中所有可编辑区域
     With Selection.Font
          Randomize
          x = Int(Rnd * 12 + 1)
          y = Int(Rnd * 5)
          .Name = "仿宋"
          .ColorIndex = Array(1, 2, 3, 4, 5, 6, 7, 9, 10, 11, 12, 13, 14)(x)
          .Size = 7 + y
     End With
   
End With
End Sub

相见是缘8

weiyingde 发表于 2020-2-12 09:53
从上面两幅图来看，只有字色发生变化，字体和区域没有变，如果区域没有错误的话，那么，可能就是你的电脑上 ...

你好！

抱歉！耽误你这么多时间！

请看图：

图1是：点运行代码弹出的提示框。

图2是：进代码窗口看到的代码。

图3是：关闭提示框及代码窗口后，附件上的结果。