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

13907933959

413191246se 发表于 2015-7-6 18:17
关于《首尾符号》宏出错的问题，看看是不是在 VBE 内，某个宏内包含某个宏，就是 Sub aaa()...End Sub 之间 ...

师傅好！
Sub 首尾符号()的宏，运行提示91错误后，在VBE窗口内该宏在设置粉色的一行前面有一个黄色箭头，在这一行中用黄色盖住了下面这一段语句。
If i.Range.Characters(1).Text = j Or i.Range.Characters.Last.Previous.Text = j Then
在VBE窗口内，以Sub开头的宏有好几个，但同名的没有，其它的宏运行都正常，唯独这Sub 首尾符号()的宏运行提示 “运成错误 '91'对象变量式Witn块变量未设置”。

413191246se

楼主，注意：现在只用《查找颜色、字号、字体--窗体》这个宏，那个《通用》宏不要用了，删除！--既然不显示窗体，我建议你把这个《查找颜色字号字体-窗体》这个宏删除（删除方法有两种：一是在：工具菜单——宏——宏——找到某宏——删除，一个是在 VBE 中，在一个宏内双击选择整个宏代码，然后按删除键Delete），然后重新找到《查找红小宋补丁》那个宏，重新拷贝《查找红小宋-窗体》宏的代码和找到窗体。219楼要不你截图来我看。

413191246se

楼主，你的意思是：如果红小宋前后插入了符号，则整段就不要插入符号了？红小宋不要再加了？（如果红小宋已经加了，你就不应该再执行了，颜色字号字体得变了。）

13907933959

413191246se 发表于 2015-7-7 10:11
楼主，你的意思是：如果红小宋前后插入了符号，则整段就不要插入符号了？红小宋不要再加了？（如果红小宋已 ...

师傅好！
那个窗体重新拷贝后，会弹出窗体选项框，可选项框内好多项字体、字号、颜色设置后宏会正常运行，可它不插入符号。好象好多项字体、字号、颜色没有关连到，使它空运行。
师傅、你在218上的例文上面运行一遍《查找颜色、字号、字体--窗体》这个宏，会看到例文上、段落开头和结尾有书号的地方，它会插入书号，相同的颜色、字号、字体设置再运行一遍，它还会再次插入书号。
我是想：无论设置成那种颜色、字号、字体，碰到有相同符号的地方即不要再插入（不同的符号可插入）。
假如说、在文档内碰到段落开头和结尾有书号的地方，不再插入书号。段落开头到结尾的中间有符合条件的文字可插入。
如：开头有《×××》不再插入， 中间有符合条件的文字可插入， 结尾有《×××》。不再插入。无论该宏运行几遍都不要插入。

13907933959

413191246se 发表于 2015-7-7 10:08
楼主，注意：现在只用《查找颜色、字号、字体--窗体》这个宏，那个《通用》宏不要用了，删除！--既然不显示 ...

截图

413191246se

楼主，在 VBE 内，把《红小宋--窗体》宏和《通用》宏都删除（在该宏内双击选定该宏全部代码，按删除键即可），再把窗体 ColorFontSize 右键移除（不导出），然后点击 VBE 的“文件菜单”，点击“导入文件”，导入 ColorFontSize 窗体（该窗体在《红小宋--补丁》文件夹内），再进入《红小宋--补丁》文件夹，把查找颜色字号字体_窗体补丁（宏）的宏代码拷贝到 VBE 中，放到最后。然后执行〈查找颜色字号字体_窗体补丁（宏）〉，看看窗体是否运行，是否正常。
******《首尾符号》宏确实有问题，发现是纯空行（或叫纯空段落，其实就是一个只有一个回车符的段落）它的问题，试试下面改正的宏（把旧宏删除）：
Sub 首尾符号()
    Dim i As Paragraph, j As String
    j = InputBox("请输入单个字符（如：\或[等）", "段落首尾有符号_黑色改为紫色", "\")
    If j = "" Then Exit Sub
    For Each i In ActiveDocument.Paragraphs
        If Len(i.Range) = 1 Then GoTo pass3if
        If i.Range.Characters(1).Text = j Or i.Range.Characters.Last.Previous.Text = j Then i.Range.Font.Color = wdColorPink: i.Range.Font.Name = "楷体_GB2312": i.Range.Font.Size = 9
pass3if:
    Next
End Sub

13907933959

413191246se 发表于 2015-7-7 16:46
楼主，在 VBE 内，把《红小宋--窗体》宏和《通用》宏都删除（在该宏内双击选定该宏全部代码，按删除键即可 ...

师傅好！
现在这个Sub 首尾符号()的宏，运行是可以运行。
1、不能准确查找到符号及符号内的文字，有漏查现象和在文档段落中间或开头带有符号的，会整个段落都被查找到。（要只查找符号及符号内的文字）
2、除了［］ 、＼X 这2种符号，换其它的符号不成。（想符号可任意换）
3、句子开头和结尾带有符号的改变颜色，如：黑色改为紫色。（想颜色可任意换）
4、句子开头和结尾带有符号的改变字体，如：宋体改为楷体。（想字体可任意换）
5、句子开头和结尾带有符号的改变字号，如：小二改为小五。（想字号可任意换）

13907933959

413191246se 发表于 2015-7-7 16:46
楼主，在 VBE 内，把《红小宋--窗体》宏和《通用》宏都删除（在该宏内双击选定该宏全部代码，按删除键即可 ...

师傅好！
窗体按你教的方法搞了2遍，还是空运行，不能插入符号。

413191246se

楼主，你说空运行不作为，我猜是不是：单行变成了多行，这样可不怨我了！——更新窗体 ColorFontSize：
查找红小宋补丁2.rar (4.33 KB, 下载次数: 18)

2015-7-7 21:10 上传

点击文件名下载附件

413191246se

225楼：2、除了［］ 、＼X 这2种符号，换其它的符号不成。（想符号可任意换）——可以任意换，但段落中得有这个符号才行。