请问怎样只对鼠标选定区域的文本取消斜体等操作

gracefully7

比如用鼠标选定了一段文本，例子如下：

分别对向量组(I)构成的矩阵file:///C:/Users/ADMINI~1/AppData/Local/Temp/msohtmlclip1/01/clip_image002.gif和向量组(II)构成的矩阵file:///C:/Users/ADMINI~1/AppData/Local/Temp/msohtmlclip1/01/clip_image004.gif进行初等行变换,通过判断矩阵的秩,确定向量组的线性相关性.对矩阵进行初等行变换。

假如在文档里选中了上述一段文字，然后我只想对这个选定段落里所有“向量”这个词进行取消斜体、加粗字体等操作，用VBA怎样实现呢？

limonet

Sub Replacement()
    Selection.Find.ClearFormatting
    Selection.Find.Font.Italic = True
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ""
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
'        .Format = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub