我之前处理Word样式宏的时候也碰到过类似的自定义样式不生效的情况，给你几个实用的排查和解决方向：

• 核对样式名称的准确性：
  先打开Word的「样式」窗格，右键你的InlineAR样式选择「修改」，确认显示的名称和你VBA代码里写的"InlineAR"完全一致——有时候不小心会多打空格、大小写不一致，或者样式名里有特殊字符，都会导致VBA找不到样式。

• 区分样式类型并设置正确的查找格式：
  如果InlineAR是字符样式（不是段落样式），你需要确保VBA的查找对象正确匹配格式：

  With Selection.Find
      .ClearFormatting
      .Style = ActiveDocument.Styles("InlineAR")
      .Format = True
      ' 其他查找参数设置...
  End With
  

  要是没开.Format = True，VBA可能会忽略样式匹配的要求。

• 改用样式ID引用规避名称冲突：
  有时候Word里会存在同名的隐藏样式，导致按名称引用出错。你可以先运行这段代码获取InlineAR的样式ID：

  Sub GetStyleID()
      Debug.Print ActiveDocument.Styles("InlineAR").ID
  End Sub
  

  然后把宏里的样式引用换成ID，比如如果输出的ID是InlineAR1，就写成ActiveDocument.Styles("InlineAR1")，这样引用更精准。

• 检查替换逻辑是否正确：
  确认你添加\textArabic的代码逻辑没问题，比如如果要把找到的内容包裹起来，替换代码应该类似：

  Selection.Replace.Text = "\textArabic(" & Selection.Find.Text & ")"
  

  同时别忘记执行替换操作：Selection.Replace.Execute Replace:=wdReplaceAll

• 验证文档内有应用该样式的内容：
  先手动给一段文本应用InlineAR样式，再测试宏——如果文档里压根没有用这个样式的内容，宏自然不会执行替换。

内容的提问来源于stack exchange，提问作者user1738964