[求助]急求VBA在word文件中查找字符串的代码

xiaofanhehe · 发表于 2008-7-31 18:47:19

求word的宏，可以查询字体颜色不是黑色的字符串，还有字体不是宋体的字符串，请高手指教，感激不尽！

马大哈 · 发表于 2008-8-4 15:25:02

Sub Macro1()     If Selection.Font.Bold = True Then         MsgBox "字体是粗体"     Else         MsgBox "非粗体"     End If     If Selection.Font.Name = "宋体" Then         MsgBox "字体是宋体"     Else         MsgBox "非宋体"     End If End Sub 
选定一段文字后，运行此宏即可。

xiaofanhehe · 发表于 2008-8-6 08:28:28

非常感谢管理员的回复，这个问题同事已经帮忙解决了，贴一下他的代码：
Option Explicit
Sub aa() Dim nowpos As Integer Dim nowrge As Range Dim endpos As Long Dim findrge As Range Dim rgn As Range
 
Set findrge = Selection.Range nowpos = findrge.Characters(1).End endpos = ActiveDocument.Content.End findrge.SetRange Start:=nowpos, End:=endpos
'findrge.Select
For Each rgn In findrge.Characters     With rgn.Font         If .Name <> "ＭＳＰゴシック" Or .Color <> wdColorAutomatic Then             rgn.Select             Exit For         End If     End With Next
End Sub

马大哈 · 发表于 2008-8-9 00:27:48

原来是要对整个区域里一个一个字符进行判断呀.
 
我只判断了所选的字符的相关属性,不是一个一个字符判断的.

账号		自动登录	找回密码
密码			加入我们

[求助]急求VBA在word文件中查找字符串的代码

论坛牛人

贡献奖

关注奖

最佳版主

进步奖

人气王

疯狂作品奖

精英奖

赞助论坛勋章

乐于助人勋章