优化：保持行距不变保留切换按钮

weiyingde

这是个有关改变字体颜色而达到隐现答案的目的的程序，有两个问题需要优化：
1、切换按钮运行后，删除不见了，如何才能始终保留？
2、运行程序后，行距变大了，由原来的2页变成4页，怎样保持原来版式不变，仍旧是2页。
代码如下：
Private Sub CommandButton1_Click()
With Me.CommandButton1
If .Caption = "隐藏答案" Then
    Call 隐显答案
    .Caption = "公布答案"
    Exit Sub
End If
If .Caption = "公布答案" Then
    Call 隐显答案
    .Caption = "隐藏答案"
    Exit Sub
End If
End With
End Sub
Sub 隐显答案()
    With ActiveDocument.Content
        With .Find
            .Replacement.Font.ColorIndex = 2
            .Replacement.Font.Name = "方正姚体"
            .Execute "[!^13]@", , , 1, , , , , 1, , 2 '匹配拼音
        End With
        With .Find
            .Replacement.Font.ColorIndex = 1
            .Replacement.Font.Name = "华文楷体"
            .Execute "[一-﨩]@", , , 1, , , , , 1, , 2
        End With
    End With
    With ActiveDocument.Content.Find
        .Execute "[　]{1,}", , , 1, , , , , , "^32", 2
        .Execute "^32{1,}([!^13]@)", , , 1, , , , , , "\1", 2 '"[ā-ê]"
        .Execute "^32{1,}([一-﨩]@)", , , 1, , , , , , "\1", 2
        .Execute "([\(（])^32{1,}", , , 1, , , , , , "\1", 2
        .Execute "^32{1,}([\)）])", , , 1, , , , , , "\1", 2
        .Execute "^32{1,}", , , 1, , , , , , "^32", 2
        .Execute "([一-﨩]@)^32{1,}([一-﨩]@)", , , 1, , , , , 2, "\1\2", 2
    End With
    With ActiveDocument.Content.Find
        .Replacement.Font.ColorIndex = IIf(Me.CommandButton1.Caption = "隐藏答案", 8, 2)
        .Execute "\([!^13]@\)", , , 1, , , , , 1, , 2 '匹配拼音
        .Execute "\([一-﨩]@\)", , , 1, , , , , 1, , 2
    End With
    With ActiveDocument.Content.Find
        .Replacement.Font.ColorIndex = 4 '1,黑色；2，蓝色；3，天兰；4，绿色；5，红色；6，红色；7，黄色；8，白色
        .Replacement.Font.Name = "方正姚体"
        .Execute "[\)\(]", , , 1, , , , , 1, , 2
    End With

    Set rg = ActiveDocument.Paragraphs(1).Range
    rg.MoveEnd , -1
    rg.InsertAfter vbCr
    With ActiveDocument.Paragraphs(1)
       istr = .Range.Text
       .Range.Text = IIf(Me.CommandButton1.Caption = "隐藏答案", Left(istr, 8) & "汉字[测试版]", Left(istr, 8) & "汉字[答案版]")
       .Format.Alignment = wdAlignParagraphCenter
       With .Range.Font
            .Bold = True
            .ColorIndex = Choose(Int(Rnd * 10 + 1), wdDarkBlue, wdBlack, wdBlue, wdBrightGreen, wdDarkRed, wdGray25, wdPink, wdTeal, wdViolet, wdGreen)
            .Name = Choose(Int(Rnd * 4 + 1), "腾祥范笑歌楷书简", "华文隶书", "黑体", "华文新魏")
            .Size = 22
       End With
       With .Range
         For i = 9 To .Characters.Count - 1
            .Characters(i).Font.Name = "迷你简黄草"
            .Characters(i).Font.Size = 13
            .Characters(i).Font.ColorIndex = wdViolet
            .Characters(i).Font.Italic = True
            .Characters(i).Font.Line.Style = msoLineSingle
            .Characters(i).Font.Line.ForeColor.RGB = RGB(0, 0, 255)
          Next
      End With
    End With
End Sub

weiyingde

再求大侠援手。

dafanshu1

不知为什么今晚在家里下载你的附件解压不了，只能大概说一下原因了。
1、按钮控件消失是因为按钮控件的环绕方式是嵌入型，而Left(istr, 8)没有包含到那个按钮控件，可考虑设定Range范围仅对第一段最后几个字符作修改，或者将按钮控件的环绕方式设为非嵌入型，放在其它位置。
2、行距变大是因为将中文字体改为“华文楷体”了，可试试将段落行距设为多倍行距，如0.9倍。

weiyingde

非常感谢你的回复，附件解压不了，是文件后缀的问题吗？
你用的是什么压缩软件？我用的是2345好压，是压缩软件的问题吗？
为此，我专门安装了rar，我用rar再上传一回，你看看，尽量给我在附件上改一下。
谢谢你。

dafanshu1

大概修改了一下，其中原代码里某些不需要的语句我都改为注释了。

weiyingde

dafanshu1 发表于 2017-3-24 09:59
大概修改了一下，其中原代码里某些不需要的语句我都改为注释了。

非行好，太感谢了，没有你的帮忙，两天的努力就会白费。
我看到按钮仍然是嵌入性，那么导致按钮删除的原因是什么？
而影响行距变大的原因又是什么？
结尾加了两行：ActiveDocument.Paragraphs.LineSpacing = LinesToPoints(0.95)
    ActiveDocument.Paragraphs.DisableLineHeightGrid = True
目的是什么？
我的word水平还没有启蒙，希望得到指点。

dafanshu1

weiyingde 发表于 2017-3-24 10:51
非行好，太感谢了，没有你的帮忙，两天的努力就会白费。
我看到按钮仍然是嵌入性，那么导致按钮删除的原 ...

谢谢你的鲜花！我也是边改边学的。
原代码导致按钮删除和行距变大的原因在3楼已作解释了。
最后加两行语句，是将全文段落行距设为0.95倍的多倍行距，以及段落不对齐网格。

weiyingde

dafanshu1 发表于 2017-3-24 09:59
大概修改了一下，其中原代码里某些不需要的语句我都改为注释了。

这个表达很好：
ActiveDocument.Range(.Range.Start + 43, .Range.End - 1).Text = IIf(Me.CommandButton1.Caption = "隐藏答案", "汉字[测试版]", "汉字[答案版]")
这个与你在下面改为注释的部分代码等价：
With ActiveDocument.Range(.Range.Start + 43, .Range.End - 1).Font
       .Name = "迷你简黄草"
       .Size = 13
       .ColorIndex = wdViolet
       .Italic = True
       .Line.Style = msoLineSingle
       .Line.ForeColor.RGB = RGB(0, 0, 255)

weiyingde

dafanshu1 发表于 2017-3-24 11:02
谢谢你的鲜花！我也是边改边学的。
原代码导致按钮删除和行距变大的原因在3楼已作解释了。
最后加两行 ...

可是按钮属性中我看到仍旧是嵌入式呀，那说明删除的原因不是这个呀。

dafanshu1

weiyingde 发表于 2017-3-24 11:18
可是按钮属性中我看到仍旧是嵌入式呀，那说明删除的原因不是这个呀。

因为原代码的Left(istr, 8)没有包含到那个按钮控件，为了不改变原来的嵌入型格式，我改用Range定义范围了，这样就不会影响到嵌入型的按钮了。