摘要:
Sub ApplyStyle(ByRef fRange As Range) Dim cRange As Range Set cRange = ActiveDocument.Range(0, 0) With fRange.Find .Text = "//" .Forward = True .Wrap = wdFindStop ' 搜索到文... 阅读全文
posted @ 2009-03-03 08:53
涂磊
阅读(295)
评论(0)
推荐(0)