如何使用VBA脚本更改Microsoft Word内容控件占位符文本格式？

我已经使用交互式内容控件创建了Microsoft Word表单。这是一个非常长的表格，具有多种字段和字段类型（下拉列表，文本框，组合框，复选框等...）。经过几个月的时间和多次编辑，它以格式不一致的格式返回给我字段值和占位符文本值。即使您填写了某些字段，它们也会保持灰色。其他字段的占位符文本根本不会变灰。字体似乎大小，样式和灰色阴影不一致。我可以在“设计模式”下​​编辑占位符文本的字体样式和大小，但无法弄清楚如何确保占位符文本变灰（相同的灰色阴影）而字段值文本不变灰。另外，我正在考虑使用VBA宏来自动化该过程。我使用Greg Maxey共享的以下宏来设置占位符文本很多：

Sub SetPlaceHolderText()
Dim strText As String
  If Selection.Range.ContentControls.Count = 1 Then
    On Error GoTo Err_Handler
    With Selection.Range.ContentControls(1)
      strText = .PlaceholderText.Value
      .SetPlaceHolderText , , InputBox("Type your new placeholder text below.", _
                              "Define Placeholder Text", strText)
    End With
  Else
    MsgBox "You must select a single ContentControl." & vbCr + vbCr _
           & "Click the ""empty"" or ""title"" tag of the" _
           & " ContentControl you want to modify."
  End If
Exit Sub
Err_Handler:
End Sub

是否可以做类似的事情来应用默认的Word Content Control格式（例如，占位符文本采用段落默认格式和一定的灰色阴影，直到它被覆盖时不再变灰）？我有接近80种内容控件，并且希望简化流程而不必从头开始。我会很感激使用VBA脚本或Word对象属性的任何建议。谢谢。