怎样让下面的VBA不对表格中的内容起作用?

ssq1109

下面的代码可使WORD中居中和居右的内容前后加一标记，但表格中单元格的内容常为居中，有时也为居右，怎样修改代码不让它对表格中内容起作用，但又要对其他内容起作用呢？ Sub change() '替换居中 Selection.Find.ClearFormatting Selection.Find.ParagraphFormat.Alignment = wdAlignParagraphCenter Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "" .Replacement.Text = "[JZ(]^&[JZ)]" End With Selection.Find.Execute Replace:=wdReplaceAll '替换居右 Selection.Find.ClearFormatting Selection.Find.ParagraphFormat.Alignment = wdAlignParagraphRight Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "" .Replacement.Text = "[JY(]^&[JY)]" End With Selection.Find.Execute Replace:=wdReplaceAll End Sub [em09]