摘要： Sub ApplyStyle(ByRef fRange As Range) Dim cRange As Range Set cRange = ActiveDocument.Range(0, 0) With fRange.Find .Text = "//" .Forward = True .Wrap = wdFindStop ' 搜索到文... 阅读全文