求一宏能让“选中文字前后各加一空格并且两空格加上所选文字加上下划线”

songczln2004

“选中文字前后各加一空格并且两空格加上所选文字都加上下划线”如  “  大侠  ” ，请各位大侠注意下例外情况，就是此情况如果选择段首文字的话，前一空格加不上的情况

413191246se

打开“隐藏/显示编辑标记”（“显示比例”左边的按钮）操作会更清楚：

Sub 选定文字加下划线()
    With Selection
        .InsertBefore Text:=" "
        If Right(Selection, 1) = vbCr Then .MoveLeft unit:=wdCharacter, Count:=1, Extend:=wdExtend
        .InsertAfter Text:=" "
        .Font.UnderlineColor = wdColorAutomatic
        .Font.Underline = wdUnderlineSingle
    End With
End Sub

东山客

收藏…………

sqhsqhli

With Selection.Range
.Font.Underline = wdUnderlineSingle
.Text = " " & .Text & " "
End With

songczln2004

大侠你这是宏还是什么？

413191246se

当然是宏了，只不过没有 Sub ... End Sub。楼主自己录制一个空宏拷贝进去就 OK 了，不过，经我测试，SQH 老弟的代码未能完全达到目的（当选取内容包含段落标记时空格会加到下一段，我已经改正之），但真的是太好了！谢谢！我略改了一下，请楼主测试吧！

Sub 选定文字加下划线()
'code by sqhsqhli，略改
    With Selection
        If Right(Selection, 1) = vbCr Then .MoveLeft unit:=wdCharacter, Count:=1, Extend:=wdExtend
        .Text = " " & .Text & " "
        .Font.Underline = wdUnderlineSingle
    End With
End Sub

tangqingfu

谢谢分享！

songczln2004

413191246se 发表于 2012-4-18 09:54
当然是宏了，只不过没有 Sub ... End Sub。楼主自己录制一个空宏拷贝进去就 OK 了，不过，经我测试，SQH 老 ...

你发的 第一个完全满足我的要求

413191246se

诚然！但是从精简优化角度来说，还是6楼 sqh 的代码 + 我略修改后的代码 更好！当然都能达到目的，但楼主应该把 6楼代码加以收藏使用（我反复测试OK）。

keleccy

谢谢！正需要。