Word 文档内，任意框选文字后加线框

相见是缘8

想要达到的要求：

用鼠标对 Word 文档内，任意区域的（一段或多段）文字，横向或纵向任意拉选长方形或正方形，框选文字后，在选定区域的四个边缘只加上一个边框，不是多个边框。

框选的文字，要可编辑的，不要文本框或图片形式的。

请问那位老师有办法？望指教！谢谢！

zmj9151

--------------

相见是缘8

zmj9151 发表于 2020-2-2 14:31
--------------

你好！
感谢帮忙！
我要的是：
用鼠标对 Word 文档内，任意区域（一段或多段）的文字，横向或纵向任意拉选长方形或正方形，框选文字后，在选定区域的四个边缘只加上一个线框，不是多个线框。

相见是缘8

这个有老师会吗？求指教！

相见是缘8

顶一下！………………

相见是缘8

顶一下！………………

hhjjpp

格式-边框和底纹-方框

相见是缘8

你好！

感谢帮助！我要加的框，是像“附件”内，图片中的效果。如图所示，能有办法吗？

leikaiyi123

Sub test()
    Dim LineLeft As Single, MyRange As Range, LineRight As Single, LineTop As Single, Linetop2
    With Selection    '选定对象
        If .Type = wdSelectionIP Then Exit Sub    '如果为光标(即没有选定)则退出
        LineLeft = .Information(wdHorizontalPositionRelativeToPage)    '取得左侧位置
        LineTop = .Information(wdVerticalPositionRelativeToPage)    '取得顶部位置
        Set MyRange = ThisDocument.Range(.End, .End)    '定义一个结束RANGE对象
        LineRight = MyRange.Information(wdHorizontalPositionRelativeToPage)    '取得结束位置的左侧位置
        Linetop2 = MyRange.Information(wdVerticalPositionRelativeToPage)       '取得结束位置的左侧位置

        ActiveDocument.Shapes.AddShape(msoShapeRectangle, LineLeft, LineTop, LineRight - LineLeft, Linetop2 - LineTop).Select
        Selection.ShapeRange.Fill.Visible = msoFalse
        '不知道如何确定所选文字最后一行文字的height,所以要多选一行(不能为只有一个换行符的空白行)才能满足要求
    End With
End Sub

相见是缘8

leikaiyi123 发表于 2020-2-19 20:34
Sub test()
    Dim LineLeft As Single, MyRange As Range, LineRight As Single, LineTop As Single, Li ...

老师好！

感谢援手！

不知什么原因，代码运行不了，见图。

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

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