求ActiveDocument.Content.Find.Execute findtext参数完整写法！

善源

ActiveDocument.Content.Find.Execute findtext:="电脑游戏", replacewith:="中国人民", Replace:=wdReplaceAll, MatchWildcards:=True

上面这条语句是替换关键词<电脑游戏>为<中国人民>，并且开启通配符功能。现在我想扩充这条语句，完成的效果大概是这样的。首先将<电脑游戏>替换成<中国人民>，并且修改<中国人民>这个关键词颜色为红色，加粗，右对齐，段前1.5磅，短后1.4磅，字体为楷体_gb2312，字号15号。请问通过上面这条语句可以扩展吗？

kqbt

可使用如下语句结构：
with activedocument.content.find
    .replacement.font.color = wdcolorred
    ......
end with

善源

顶一下！求高人！

413191246se

这个一行代码恐怕难以完成楼主的愿望，下面请试试微软官方VBA帮助中的代码示例（略改）：

Sub 替换格式()
    With ActiveDocument.Content.Find
        .ClearFormatting
        With .Replacement
            .ClearFormatting
            With .Font
                .Name = "楷体_GB2312"
                .Name = "Times New Roman"
                .Size = 15
                .Bold = True
                .Color = wdColorRed
            End With
            With .ParagraphFormat
                .SpaceBefore = 1.5
                .SpaceAfter = 1.4
                .Alignment = wdAlignParagraphRight
            End With
        End With
        .Execute FindText:="电脑游戏", ReplaceWith:="中国人民", Format:=True, Replace:=wdReplaceAll
    End With
End Sub

善源

嗯，我也看过vba帮助文档了。看来只能这样了。非常感谢！

约定的童话

413191246se 发表于 2012-6-17 02:52
这个一行代码恐怕难以完成楼主的愿望，下面请试试微软官方VBA帮助中的代码示例（略改）：

Sub 替换格式( ...

.Execute FindText:="电脑游戏", ReplaceWith:="中国人民", Format:=True, Replace:=wdReplaceAll
这句话能给中国人民四个字添加下滑线吗？