2,503
社区成员
发帖
与我相关
我的任务
分享大家帮忙调一个程序
Sub a()
Selection.Shading.BackgroundPatternColorIndex = wdDarkRed
End Sub
Sub b()
With Selection.Find
.Font.Shading.BackgroundPatternColorIndex = wdDarkRed
.Execute
End With
End Sub
先运行a，再运行B，在word97 word2003下程序B能查到 相应的文字，但是在word2000下不能找 到相应的文字，不知何故！！
Selection.Shading.BackgroundPatternColorIndex = wdDarkRed
End Sub
Sub b()
With Selection.Find
.Font.Shading.BackgroundPatternColorIndex = wdDarkRed
.Execute
End With
End Sub
先运行a，再运行B，在word97 word2003下程序B能查到 相应的文字，但是在word2000下不能找 到相应的文字，不知何故！！
...全文
