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

13907933959

413191246se 发表于 2015-7-4 12:19
楼主（徒弟）：191楼是一张图片，不是两张！另外，已不必再文字描述了，操作步骤都在程序中，详见附件中使 ...

师傅好！
感谢师傅肯收下我这个笨徒弟，先给师傅三磕头，再给师傅敬茶，再请师傅取个艺名，礼毕！
师傅、太不可思议，真是太棒了、你这么有才华应该去微软工作。
师傅、如果现在我要更改插入的符号到那里更改（VBE窗口内没有看到新代码）？再一个如果万一我想把导入的ColorFontSize 文件拿掉，怎么操作？
还有这个 Sub 首尾符号() 的宏，我还不会用。我把查找符号的这一行换为＼X后，它会出一个确认的提示框，确认后运行不了。肯定是这一行换符号的我没有换好，请师傅指点。再请师傅看一下这3句中文注释是不是对应在这3个代码上。如只将其中一句作为控制标准另行2句可否任意拿掉？

Sub 首这尾符号()
    Dim i As Paragraph, j As String
    j = InputBox("＼X", "段落首尾有符号_黑色改为紫色", "＼X")
    If j = "" Then Exit Sub
    For Each i In ActiveDocument.Paragraphs
'句子开头和结尾带有符号的如：［］ 、＼X  改变颜色，如：黑色改为粉色
        If i.Range.Characters(1).Text = j Or i.Range.Characters.Last.Previous.Text = j Then i.Range.Font.Color = wdColorPink '粉红
'句子开头和结尾带有符号的改变字体，如：宋体改为楷体
        If i.Range.Characters(1).Text = j Or i.Range.Characters.Last.Previous.Text = j Then i.Range.Font.Name = "楷体_GB2312"
'句子开头和结尾带有符号的改变字号，如：小二改为小五
If i.Range.Characters(1).Text = j Or i.Range.Characters.Last.Previous.Text = j Then i.Range.Font.Size = 9 '小五
    Next
End Sub

413191246se

明明显示徒弟回复了，怎么没有帖子？好怪！

413191246se

楼主徒弟，你的——另外、在全文插入符号时：
1、文字内有其它符号时，如：［］、＼X、插入的符号会插入到符号内。
2、能不能在一行文字中碰到类似这样两边有符号的不插入。
3、在执行单行插入时在符号外插入。
还有在插入＼X符号时，文字内原有＼X符号的地方，前面会插入一个，后面会插入2个，能不能设计成有相同符号的地方不插入。
**********************这些问题，我不清楚你在说哪个宏，我建议你提供一下模拟文本，以附件文档或图片或在回帖中显示出来，A段变为B段？，这样我好有的放矢，现在弄不清你说的情况。细化一下。

13907933959

413191246se 发表于 2015-7-4 19:36
楼主徒弟，你的——另外、在全文插入符号时：
1、文字内有其它符号时，如：［］、＼X、插入的符号会插入到 ...

师傅好！
我说的是Sub 全文查找_红色宋体小二_前后添加书名号_通用() 这个宏，附件在199楼的例文，你在该例文上运行Sub 全文查找_红色宋体小二_前后添加书名号_通用() 这个宏会看到……
1、文字内有其它符号时，如：［］、＼X、插入的符号会插入到符号内。
2、能不能在一行文字中碰到类似这样两边有符号的不插入。
3、在执行单行插入时在符号外插入。
还有在插入＼X符号时，文字内原有＼X符号的地方，前面会插入一个，后面会插入2个，能不能设计成有相同符号的地方不插入。

13907933959

413191246se 发表于 2015-7-4 19:26
明明显示徒弟回复了，怎么没有帖子？好怪！

师傅好！
今天回复你的帖子或编辑帖子（有漏字或错字），不知为什么老是会提示要审核。

13907933959

413191246se 发表于 2015-7-4 19:36
楼主徒弟，你的——另外、在全文插入符号时：
1、文字内有其它符号时，如：［］、＼X、插入的符号会插入到 ...

运行宏后的例文

413191246se

    楼主，全文查找/单行查找 颜色/字号/字体 这个宏，现在已经做成了窗体/窗口模式，只须单击鼠标即可选择完成，方便极了！那个 ColorFontSize窗体不能拿掉，它是窗体界面，拿掉了就得用《通用》那个宏了，得打字输入颜色。所以，不能拿掉 ColorFontSize，哪天不用了，可以删除这个窗体（右键，移除）。
    关于你说的符号这个宏，我建议你不要把《全文查找颜色/字号/字体》这个宏和《首尾符号》这个宏混淆，它们是不一样的。
    你打了不少字，辛苦！但我也下载了你的例文，感觉不是明晰，我建议你重新做一个示例文本，提出要求，我好酌情考虑，现在我感觉糊涂。
    示例文本应该这样：（如果有必要，可以用颜色标示）
    问题1：AAA
    目标：BBB
    问题2：CCC
    目标：DDD
    这样我就清晰了，知道你想干什么，问题一定要细化，因为对文字的操作一般是对段落的操作，所以，一定要说清到底是在段前/段后/段中插入什么符号，变成什么样子。

13907933959

413191246se 发表于 2015-7-5 00:59
楼主，全文查找/单行查找 颜色/字号/字体 这个宏，现在已经做成了窗体/窗口模式，只须单击鼠标即可选择 ...

师傅好！

一、如果现在我要把那个 ColorFontSize窗体默认的插入符号《》更改为＼X到那里更改？（VBE窗口内没有看到新代码），我把Sub全文查找_红色宋体小二_前后添加书名号_通用() 这个宏内的《》更改为＼X后无效。


二、我说的是Sub 全文查找_红色宋体小二_前后添加书名号_通用() 这个宏，附件在199楼的例文，（207楼的“运行宏后的例文”我做了红颜色标记），你在199楼的例文上运行Sub 全文查找_红色宋体小二_前后添加书名号_通用() 这个宏，全文查找后会看到：


1、文字内有其它符号时，如：［］、＼X、插入的符号会插入到符号内。如：原来文档内有直括号的地方［××××］，插入符号《》后会变成这样［《××××》］。或原来文档内有＼X号的地方＼X××××＼X，插入符号《》后会变成这样＼X《××××》＼X。
2、文字内有其它符号时，如：［］、＼X、后插入的符号会插入到该符号内。如：原来文档内有直括号的地方［××××］，插入符号＼X后会变成这样［＼X××××＼X］。
3、原文档内有＼X号的地方＼X××××＼X，插入符号＼X后会变成这样＼X＼X××××＼X＼X＼X。即前面会插入一个＼X，后面会插入2个＼X。
4、能不能设计成在文字中碰到类似这样两边有符号（如：［］、＼X）的地方不插入。有相同符号的地方不插入。
5、在执行单行插入符号时在其它符号外面插入（而不是插在符号内）。有相同符号的地方不插入。

三、这个 Sub 首尾符号() 的宏，怎样在查找符号的这一行更换符号，如我要查找段落首尾有＼X的段落，把该段落的黑色字改为紫色，怎样更换？我在下面代码中更换了，运成不了。


四、再请师傅看一下，下面这3句（'句子开头和结尾带…）中文注释是不是对应在这3个代码上。如我只将3句中的其中一句作为查找的控制标准，另行2句可否任意拿掉？

Sub 首这尾符号()
    Dim i As Paragraph, j As String
    j = InputBox("＼X", "段落首尾有符号_黑色改为紫色", "＼X")
    If j = "" Then Exit Sub
    For Each i In ActiveDocument.Paragraphs
'句子开头和结尾带有符号的如：［］ 、＼X  改变颜色，如：黑色改为粉色
        If i.Range.Characters(1).Text = j Or i.Range.Characters.Last.Previous.Text = j Then i.Range.Font.Color = wdColorPink '粉红
'句子开头和结尾带有符号的改变字体，如：宋体改为楷体
        If i.Range.Characters(1).Text = j Or i.Range.Characters.Last.Previous.Text = j Then i.Range.Font.Name = "楷体_GB2312"
'句子开头和结尾带有符号的改变字号，如：小二改为小五
If i.Range.Characters(1).Text = j Or i.Range.Characters.Last.Previous.Text = j Then i.Range.Font.Size = 9 '小五
    Next
End Sub

413191246se

楼主：
    一、在 VBE 中，你向左上角看，是不是有 NewMacros 被选中（蓝色）？在它上面有“窗体”文件夹，点击它，会显示出 ColorFontSize，双击它，会显示出窗体来，在窗体上双击“开始查找”按钮，就看到了代码窗口。在这段代码中，下面有四个共2组前后书名号，改动它们就可以了（英文双引号不要动。另外，有这个宏/窗体，已不必再使用《通用》那个宏了）！
    二、是否要插入到这些符号之外？
    三、首尾符号宏：输入框要求输入符号，你只须键入想找到的符号即可，不必在代码中修改。
    四、三组 IF 语句，你只须在不想让它运行的 IF 语句前面加个撇号（'）注释掉即可，不必删除。
楼主还是没给我具体样例，因我不甚明了你的要求，所以感觉模棱两可。

13907933959

413191246se 发表于 2015-7-5 10:34
楼主：
    一、在 VBE 中，你向左上角看，是不是有 NewMacros 被选中（蓝色）？在它上面有“窗体”文件夹 ...

师傅好！
一、那个 ColorFontSize窗体默认插入符号的更改只能在那一处更改吗？能不能弄成直接在VBE窗口看到代码更改那种？
二、这个Sub 首尾符号()的宏，按你教我的方法也运成不了，提示“运成错误 '91'对象变量式Witn块变量未设置”
三、师傅、“具体样例”我以使出了浑身的解术，由于我文字水平有限，再也说不明白了，还是请师傅把Sub 全文查找_红色宋体小二_前后添加书名号_通用() 这个宏，在199楼的例文上，宏中设置成“楷体”“黑色”“全文查找”运行这个宏，就会看到……
再把Sub 全文查找_红色宋体小二_前后添加书名号_通用() 这个宏内插入符号更换为＼X，在199楼的例文上，宏中设置成“楷体”“黑色”“全文查找”运行这个宏，就会看到：

1、文字内有其它符号时，如：［］、＼X、插入的符号会插入到符号内。如：原来文档内有直括号的地方［××××］，插入符号《》后会变成这样［《××××》］。或原来文档内有＼X号的地方＼X××××＼X，插入符号《》后会变成这样＼X《××××》＼X。

2、文字内有其它符号时，如：［］、＼X、后插入的符号会插入到该符号内。如：原来文档内有直括号的地方［××××］，插入符号＼X后会变成这样［＼X××××＼X］。

3、原文档内有＼X号的地方＼X××××＼X，插入符号＼X后会变成这样＼X＼X××××＼X＼X＼X。即前面会插入一个＼X，后面会插入2个＼X。

我的意思：
1、能不能设计成在一行文字中间碰到类似这样两边有符号（如：［］、＼X）的地方不插入符号（无论符号内外都不插入）。有相同符号的地方不插入，如有＼X的地方不再插入＼X。

2、在执行单行插入符号时在其它的符号外面插入（而不是插在符号内）。有相同符号的地方不插入，如有＼X的地方不再插入＼X。