如何快速的添加书引号？

huangsijun17

即选中某个区域，按键或鼠标按按钮，就添加书引号在选中区域的两端。

最好可以在word与WPS通用的。

谢谢了。

duquancai

1. Sub shishi()
   
2.     Dim S As Range
   
3.     Set S = Selection.Range
   
4.     If Len(S.Text) >= 1 And S.Text <> Chr(13) Then
   
5.         If Right(S.Text, 1) = Chr(13) Then
   
6.             S.End = S.End - 1
   
7.             S = "《" & S.Text & "》"
   
8.         Else
   
9.             S = "《" & S.Text & "》"
   
10.         End If
    
11.     End If
    
12. End Sub

复制代码

loquat

selection.insertbefore "《"
selection.insertafter "》"

就不管选择的末尾了

duquancai

1. Sub shishi()
   
2.     Dim S As Range
   
3.     Set S = Selection.Range
   
4.     If Len(S.Text) >= 1 And S.Text <> Chr(13) Then
   
5.         If Right(S.Text, 1) = Chr(13) And Left(S.Text, 1) = Chr(13) Then
   
6.             S.Start = S.Start + 1: S.End = S.End - 1
   
7.             S = "《" & S.Text & "》"
   
8.         ElseIf Right(S.Text, 1) = Chr(13) Then
   
9.             S.End = S.End - 1: S = "《" & S.Text & "》"
   
10.         ElseIf Left(S.Text, 1) = Chr(13) Then
    
11.             S.Start = S.Start + 1: S = "《" & S.Text & "》"
    
12.         Else
    
13.             S = "《" & S.Text & "》"
    
14.         End If
    
15.     End If
    
16. End Sub

复制代码

huangsijun17

duquancai 发表于 2017-2-10 21:04

Office 2010 测试成功了，感谢。