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

13907933959

413191246se 发表于 2015-6-24 20:46
楼主，全选后，只须按一下向左/右/上/下的方向键，把这个动作录制下来，就解了选定。
还有，对于新宏，可 ...

前辈好！
1、按你说的我录了下面的宏，要把下面的那句代码放到：
“运行一个宏程序后、总是处于全选状态,要加一句什么语句才可以结束全选状态？加在那里？”
Sub Macro3()
'
' Macro3 Macro
' 宏在 2015-6-25 由 User 录制
'
    Selection.WholeStory
    Selection.MoveUp Unit:=wdLine, Count:=1
    Selection.MoveDown Unit:=wdLine, Count:=1
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
    Selection.MoveRight Unit:=wdCharacter, Count:=1
End Sub
2、《姓名排列》宏、运行用了，哪个“行距”能不能改成图片上一行紧靠一行的哪种，现在这个太大了，我调成最小值还是不成。还一个我把它改成8列后，名单会变成纵向排列，而不是横向排列。再一个好象也不能任意编辑。

413191246se

楼主，录制按向上、下、左、右方向键的宏，只须录制一下即可，就解决了选定区域这个问题，不必录制四个（比如：录制向左方向键的宏，将这个语句拷贝到有全选语句的后面即可）。
姓名排列宏：8列导致姓名竖向排列，当然是太大了，你可以设置为6列。另外：我给你的是自由输入列数（1-63），你可以试验。只要不存盘就行，满意再存盘。比如默认5列也不错，不必按我说的几列。
还有：注释里说了，所有人名都放到表格里面了，如果想编辑，可以点击“表格和边框”工具栏（在常用工具栏上寻找），再点击“显示虚框”或表格菜单、显示虚框均可。
如果仍未达到目的，你点击：表格菜单——选择——表格（其实就是选中整个表格）——格式菜单——段落，将文档网格的两个勾取消即可，具体见下图：

413191246se

楼主，你150楼的问题，应该按照我说的，把所有人名放到一个新建文档里面，不要有其它的元素，就是所有人名名单，然后，运行我的《姓名排列》宏即可，不用别的操作（几列可以反复试验）。

413191246se

楼主，把所有人名放到新建文档中，然后执行《姓名排列》宏，然后，不要动任何键，直接点击：格式菜单——段落——取消勾选文档网格——单倍行距——确定——退出（如果单倍还嫌大，就来 0.75倍的，或 0.9倍，手工键入），然后文档未保存，自己决定是否保存，姓名列数可以反复试验。

413191246se

楼主，不光是表格中文字，就是普通文字，如果发现有过大的行距，也是取消勾选文档网格（但是如果你用我的模板的话，自动排版时是取消勾选的，还有，有一个按钮叫“取消网格”也是取消了勾选）。——取消勾选，就是把勾去掉，再确定退出。见下图：

13907933959

413191246se 发表于 2015-6-25 10:36
楼主，不光是表格中文字，就是普通文字，如果发现有过大的行距，也是取消勾选文档网格（但是如果你用我的模 ...

前辈好！
你是说把下面的4句中的任何一行代码，拷贝放到到宏里有Selection.WholeStory全选语句的后面即可。
Selection.MoveUp Unit:=wdLine, Count:=1
    Selection.MoveDown Unit:=wdLine, Count:=1
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
    Selection.MoveRight Unit:=wdCharacter, Count:=1
1、如果这个宏的第一句或第二、三句，就是Selection.WholeStory全选语句，而后面还有很多的操作步骤，可能是建立在这全选语句的基础上的，也是放在全选语句的后面吗？
2、这个宏里面没有一句Selection.WholeStory全选语句（而运行这个宏程序结束后、文档总是处于全选状态），放在哪里？
3、全选名单的“宏”默认5～6列的太少，可否请你修改成8～9列的，因我这里名单太多，共有十三万多个，这样文档可以少几百页。
4、文档网格的两个勾我以前是取消了的。我想把行距调小也是想让文档少几百页，行距现在是单倍的，不知怎么会事再调小调不了。

413191246se

楼主，我发现我说得越多，你越不理解。我怀疑你是否认真阅读了我的回复。
1、不说宏，只说选定了几个字或全选了一篇文档，要想解除选定，只须动一下方向键即可（我请你：新建文档/输入几个字，然后，录制一个新宏——只有两个动作的宏：编辑菜单/全选/左方向键。再观察一下代码）。
2、姓名排列宏，只须把所有人名保存到一篇新建文档中，再应用该宏即可，但是输入框要求你输入列数，你可以反复试验到底几列才好（我并未限定必须是几列，只要是1-63之间的数字即可，但也不能让人名竖向排列。默认是5列，你可以输入4，也可以输入6）。
3、除取消勾选文档网格外（两个勾去掉），也要注意选定部分的段落格式：段前/段后必须为0，这样单倍行距也不大了（还嫌大就设0.75/0.9倍行距）。

duquancai

13907933959 发表于 2015-6-25 07:29
前辈好！
按你的方法试了好几遍好象都不成，我的电脑是XP系统，Word文档是2003的，不知道是版本的事还是 ...

其它字符那个地方你确定是填的你文档中中文顿号”、“；我真的醉了！你word基础知识能扎实点吗？感觉你刚在学习word，建议你不要再搞什么vba，先把基础扎实了再学wordVBA吧

13907933959

duquancai 发表于 2015-6-25 22:41
其它字符那个地方你确定是填的你文档中中文顿号”、“；我真的醉了！你word基础知识能扎实点吗？感觉你刚 ...

前辈好！
感谢你的帮助！我确实是个外行，这我前天就跟你说了，按你教我的方法我确实没有成功，下面我截了3张图片给你，我不是说你的方法有问题，肯定是我这个外行那儿没有操作好，但我真得不知错在那里，望你能再赐教，谢谢！
至于VBA我确实更看不懂，也是因整理书籍碰到了难题后，在论坛上向前辈们求助，有幸碰到413191246se前辈，他不但帮我解决了很多大难题，而且还不厌其烦的解答着我这个笨外行提出的傻问题，有的问题他回复了3、4次我还是不懂，也是经常把他气个半死，可他还是照样的帮助我这个笨外行，真是难为他了，说了你可能不信，我内心对他充满了愧疚和感激之外、还心生敬佩之情，你可能会说我在拍他马屁，这个不是拍他马屁，是真得发自内心对他的赞叹，人心换人心，在当今金钱至上的社会，很少有人为一个素不相识毫无报酬的情况下，花这么多的时间和精力去帮助一个经常把他气得半死的人，我相信任何人碰到这样的人，感激之情都会和我一样，他不但技术高超，还人品高尚，真是一位了不起的前辈。

duquancai

13907933959 发表于 2015-6-26 08:36
前辈好！
感谢你的帮助！我确实是个外行，这我前天就跟你说了，按你教我的方法我确实没有成功，下面我截 ...

看了你的截图，你不是已经转换成表格了吗？（在文本转换表格，你也可以选择“根据窗口调整表格”选项。我前面也说了，转换成表格后还需要调整啊！比如：选中表格，表格属性，调整行高，整个表格的宽度等，至于字体行距及段落行距的调整，157楼已经说的很清楚了。字符在单元格中的对齐方式（可以居中左对齐），字体及大小可以调整，宋体、小五号。