表格第2列中“姓名”中间加1个空格

菜菜行者

一个文档中多个表格，如何能快速的在指定的第2列中，姓名如果是2个字的则在姓名中间加1个空格，

不经意的回头

调整字符宽度为3字符

菜菜行者

不经意的回头 发表于 2016-5-18 22:40
调整字符宽度为3字符

这个可以批量？

413191246se

楼主，有现成的宏，试试下面的宏：（你可以在本论坛搜索我的--Word2003 通用模板 2016元旦版，里面有很多免费实用的宏）

1. Sub 姓名加空()
   
2.     Dim c As Cell, r As Range, myRange As Range
   
3.     If Selection.Type = wdSelectionIP Then Selection.SelectColumn
   
4.     Set myRange = Selection.Range
   
5.     myRange.Find.Execute FindText:="^w", replacewith:="", Replace:=wdReplaceAll
   
6.     myRange.Find.Execute FindText:="　", replacewith:="", Replace:=wdReplaceAll
   
7.     myRange.Select
   
8.     For Each c In Selection.Cells
   
9.         Set r = c.Range
   
10.         r.MoveEnd unit:=wdCharacter, Count:=-1
    
11.         If Len(r.Text) = 0 Then
    
12.             r.Shading.BackgroundPatternColor = wdColorRed
    
13.         ElseIf Len(r.Text) = 1 Then
    
14.             r.Shading.BackgroundPatternColor = wdColorBrightGreen
    
15.         ElseIf Len(r.Text) = 2 Then
    
16.             r.Characters(1).InsertAfter Text:=Space(2)
    
17.         ElseIf Len(r.Text) >= 4 Then
    
18.             r.Shading.BackgroundPatternColor = wdColorBrightGreen
    
19.         End If
    
20.     Next
    
21. End Sub

复制代码

413191246se

楼主，只须将光标放在指定列，执行上面的《姓名加空》宏即可。

菜菜行者

413191246se 发表于 2016-5-19 00:40
楼主，有现成的宏，试试下面的宏：（你可以在本论坛搜索我的--Word2003 通用模板 2016元旦版，里面有很多免 ...

方法正解！

自由的笨小孩

选中姓名一列，然后格式——段落——对齐方式——分散对齐。ok

413191246se

楼上的方法够简单！很好！——但是如果列宽较宽的话，就不好看了，这时 VBA 宏就 OK 了。