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

相见是缘8

weiyingde 发表于 2020-2-10 07:56
段落符位于一段结尾，可用以下代码实现:
with selection
       .expand 4， 1 ,扩充到选段结尾

老师好！
感谢提示！本人水平未到，可否请你给个完整的代码？谢谢！

weiyingde

相见是缘8 发表于 2020-2-10 19:21
老师好！
感谢提示！本人水平未到，可否请你给个完整的代码？谢谢！

索性给你做了一个，你慢慢看吧！！
代码如下：
Private Sub CommandButton1_Click()
With ActiveDocument
     MsgBox "接下来选中第三段所有字符！" & vbCr & "包括回车符！看!！" & vbCr & "注意：第三段包括标题哈！！"
     .Paragraphs(3).Range.Select
     With Selection
          MsgBox "接下来选中摒弃回车符！请看"
          .MoveEnd 1, -1
          MsgBox "不信吗？变色让你看看请看！！" & CBCR & "睁大眼睛，我来也！！"
          With .Font
               .Name = "华文新魏"
               .Size = 16
               .ColorIndex = 6
         End With
         MsgBox "看懂了吗？没看懂再缩回10字符你看看！！"
        .MoveEnd 1, -10
         With .Font
               .Name = "华文行楷"
               .Size = 10
               .ColorIndex = 9
         End With
         MsgBox "回缩之后的部分邮编色了！" & CBCR & "看懂了给朵小花鼓励下。"
     End With
    With .Range(.Paragraphs(2).Range.Start, .Paragraphs(2).Range.End).Font
         .Name = "楷体"
         .Size = 10.5
         .ColorIndex = wdGreen
    End With
    With .Range(.Paragraphs(4).Range.Start, .Content.End - 1).Font
         .Name = "楷体"
         .Size = 10.5
         .ColorIndex = wdGreen
    End With
End With
End Sub

相见是缘8

weiyingde 发表于 2020-2-10 20:49
索性给你做了一个，你慢慢看吧！！
代码如下：
Private Sub CommandButton1_Click()

老师好！
感谢你的代码！
老师的水平不一般！你这个代码高级，慢慢领悟！
老师，能不能来个简单的，全选文档（但不选中所有段落符），设置字体格式的代码，我目前急需这个。谢谢！

weiyingde

相见是缘8 发表于 2020-2-11 06:47
老师好！
感谢你的代码！
老师的水平不一般！你这个代码高级，慢慢领悟！

但我还没有达到你的要求。
你的要求相当于：在操作界面，按住ctrl键同时选择及格互相独立的区域。
我今天探究一下，看能不能实现。

相见是缘8

weiyingde 发表于 2020-2-11 08:46
但我还没有达到你的要求。
你的要求相当于：在操作界面，按住ctrl键同时选择及格互相独立的区域。
我今 ...

好！让老师费心了！谢谢！

相见是缘8

weiyingde 发表于 2020-2-11 08:46
但我还没有达到你的要求。
你的要求相当于：在操作界面，按住ctrl键同时选择及格互相独立的区域。
我今 ...

好！让老师费心了！谢谢！

weiyingde

相见是缘8 发表于 2020-2-11 09:57
好！让老师费心了！谢谢！

已经完成了任务，请看：
http://club.excelhome.net/thread-1520692-1-1.html
合乎要求，请赏朵小花。

相见是缘8

weiyingde 发表于 2020-2-11 11:45
已经完成了任务，请看：
http://club.excelhome.net/thread-1520692-1-1.html
合乎要求，请赏朵小花。

你好！

感谢！感谢！感谢你！

可不知什么原因，我运行不了，见图。

我用的电脑系统是XP，office是2003版的。不会跟这个有关吧？

公司电脑因储藏软件，只能邦定这低版本的东西。

weiyingde

相见是缘8 发表于 2020-2-11 12:28
你好！感谢！感谢！感谢你！可不知什么原因，我运行不了，见图。我用的电脑系统是XP，office是2003版的。 ...

弹出的对话框信息是什么？

相见是缘8

weiyingde 发表于 2020-2-11 13:06
弹出的对话框信息是什么？

请看图！