word2010如何快速让下划线上的文字居中？

不想学习哇

百度上很多方法都是让手动加空格，不算快速方法。各种快捷键都试过不顶用

ming0018

楼主请上传附件吧

不想学习哇

顶起来啊啊啊

daibao88

vba可以，其它方法就不知道了

ming0018

1. Sub main()
   
2.     Dim doc As Document
   
3.     Set doc = ActiveDocument
   
4.     Application.ScreenUpdating = False
   
5.     BlankTemp = "                                                                    "
   
6.     With doc.Content.Find
   
7.         .Font.Underline = wdUnderlineSingle
   
8.         Do While .Execute
   
9.             If .Parent.Characters.Last.Text = Chr(13) Then
   
10.                 .Parent.Characters.Last.Font.Underline = wdUnderlineNone
    
11.                 .Parent.MoveEnd 1, -1
    
12.             End If
    
13.             txt = Trim(.Parent.Text)
    
14.             BlankLen = Len(.Parent.Text) - Len(txt)
    
15.             If BlankLen > 0 Then
    
16.                 If BlankLen Mod 2 = 0 Then
    
17.                     aLen = BlankLen / 2
    
18.                 Else
    
19.                     aLen = Int(BlankLen / 2) + 1
    
20.                 End If
    
21.                 LBlank = Left(BlankTemp, aLen)
    
22.                 RBlank = Left(BlankTemp, BlankLen - aLen)
    
23.                 .Parent.Text = LBlank & txt & RBlank
    
24.             End If
    
25.         Loop
    
26.     End With
    
27.     Application.ScreenUpdating = True
    
28. End Sub
    

复制代码

仅对纯文本有效

壹号公馆

ming0018 发表于 2019-5-21 16:05
仅对纯文本有效

语法错误，用不了。

ming0018

壹号公馆 发表于 2019-5-21 16:29
语法错误，用不了。

请指出哪句的语法错误

壹号公馆

ming0018 发表于 2019-5-21 16:38
请指出哪句的语法错误

我是在word2010版中使用的，上面出现语法错误呢。明天回复你。

daibao88

语法没错误吧

EH2003

2010测试正常。