Word录制宏后，让宏对字体的颜色更改为蓝色、无法保存

13907933959

duquancai 发表于 2015-6-24 14:20
你的文档特点：1、整个文档只有1个段落组成；2、文档中人名之间只有一种符号“、”。
所以可以：1、文本 ...

前辈好！
具体怎样操作，我转换了好象不行。

duquancai

13907933959 发表于 2015-6-24 16:14
前辈好！
具体怎样操作，我转换了好象不行。

你不会不知道怎么操作吧？这是基础啊！

13907933959

duquancai 发表于 2015-6-24 14:20
你的文档特点：1、整个文档只有1个段落组成；2、文档中人名之间只有一种符号“、”。
所以可以：1、文本 ...

前辈好！
再问一个问题、就是运行一个宏程序后、总是处于全选状态,要加一句什么语句才可以结束全选状态？加在那里？

13907933959

duquancai 发表于 2015-6-24 16:55
你不会不知道怎么操作吧？这是基础啊！

前辈好！
我是个外行、能否也请你赐教一下小弟，谢谢！

duquancai

13907933959 发表于 2015-6-24 16:14
前辈好！
具体怎样操作，我转换了好象不行。

你不会不知道怎么操作吧？这是基础啊！选中你要转为表格的文本，

duquancai

13907933959 发表于 2015-6-24 18:14
前辈好！
我是个外行、能否也请你赐教一下小弟，谢谢！

选中你要转换为表格的文本，操作如图

duquancai

duquancai 发表于 2015-6-24 18:47
选中你要转换为表格的文本，操作如图

详见附件。

413191246se

楼主，全选后，只须按一下向左/右/上/下的方向键，把这个动作录制下来，就解了选定。
还有，对于新宏，可以按 Alt + F8 找到宏名，双击执行，或点击宏名，再点击“运行”按钮。
下面是《姓名排列》宏：（把要排列的人名保存到新建文档中，执行之）
Sub 姓名排列()
'人名均在表格中，不显示虚框。查询二字人名时，中间要加两个半角空格
    If ActiveDocument.Characters.Last.Previous = "。" Then ActiveDocument.Characters.Last.Previous.Delete
    ActiveDocument.Content.Find.Execute FindText:="、", replacewith:="^p", Replace:=wdReplaceAll
    Dim i As Paragraph, j As String
    For Each i In ActiveDocument.Paragraphs
        If Len(i.Range) = 3 Then i.Range.Characters(1).InsertAfter Text:=Space(2)
    Next
    j = InputBox("请输入要排列姓名的列数！（数字范围：1-63）", "姓名排列", "5")
    If j = "" Then ActiveDocument.Close savechanges:=wdDoNotSaveChanges: End
    Selection.WholeStory
    Selection.ConvertToTable Separator:=wdSeparateByParagraphs, NumColumns:=j, AutoFitBehavior:=wdAutoFitFixed
    ActiveWindow.View.TableGridlines = False
    Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
    Selection.Cells.VerticalAlignment = wdCellAlignVerticalCenter
End Sub

413191246se

上面的宏，排列姓名，可以反复试验（用我的《重新打开》宏，但这个宏是不保存结果的！）到底排几列好，可以反复试验，直到满意为止，可能是6-8列比较好。
*******下面重新提供一下《重新打开》宏：（注意：这个宏很危险，它不保存修改！仅用于反复演练）
Sub 重新打开()
    Dim i As String
    i = ActiveDocument.FullName
    If Mid(i, 2, 1) <> ":" Then Exit Sub
    If ActiveDocument.Saved = False Then
        ActiveDocument.Close savechanges:=wdDoNotSaveChanges
        Documents.Open FileName:=i
    End If
End Sub

13907933959

duquancai 发表于 2015-6-24 18:55
详见附件。

前辈好！
按你的方法试了好几遍好象都不成，我的电脑是XP系统，Word文档是2003的，不知道是版本的事还是我没有操作好。我全选名单后、点Word文档上面的“表格”→转换→文本转换成表格→再按你提供的图片上的设置→确定，结果名单排列格式和原来一样只是都在一个大框内，没有出现你提供的附件那样，每个名单都在每一个小框内，望再指点、谢谢！