使用下标保留文本格式的VBA AutoCorrect

Question

我正在创建一个VBA宏，以便从选定的文本中创建一个新的自动更正词条。例如，假设目标是"m1“，其中"1”是下标，则自动更正条目将是"M1“。

如果手动执行此操作，请根据需要选择格式化的目标文本，并在AutoCorrect对话框中选中“在键入时替换文本，替换为:格式化文本”。

但是，我找不到与此函数对应的AutoCorrect选项属性，因此结果始终是纯文本。

我试着录制一个宏(这实际上是有效的)，然后检查Word捕获的所有选项，但实际上没有一个完成了保留格式的工作。

代码如下：

Sub NewAutoCorrect()

    Dim strEntry As String

    strEntry = InputBox("Enter the AutoCorrect entry")

    AutoCorrect.Entries.Add Name:=strEntry, Value:=Selection

    With AutoCorrect
        .CorrectInitialCaps = True
        .CorrectSentenceCaps = True
        .CorrectDays = True
        .CorrectCapsLock = True
        .ReplaceText = True
        .ReplaceTextFromSpellingChecker = True
        .CorrectKeyboardSetting = False
        .DisplayAutoCorrectOptions = True
        .CorrectTableCells = True
    End With
End Sub

Answer 1

尝试：

AutoCorrect.Entries.AddRichText Name:=strEntry, Range:=Selection.Range