VBA 自动更正以使用下标保留文本格式答案

【问题标题】：VBA AutoCorrect to Preserve Text Formatting with SubscriptsVBA 自动更正以使用下标保留文本格式
【发布时间】：2019-03-29 20:16:39
【问题描述】：

我正在创建一个 VBA 宏来从文本选择中创建一个新的自动更正条目。文本是数学文本，因此通常有下标或上标是斜体等。例如，假设目标是“M1”，其中“1”是下标，那么自动更正条目将是“m1”。

如果您手动执行此操作，则选择所需格式的目标文本，并在“自动更正”对话框中选中“在键入时替换文本，替换：为：格式化文本。

但是，我找不到与此功能对应的自动更正选项属性，因此结果始终是纯文本。

我尝试录制一个宏（实际上它有效），然后检查 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

【问题讨论】：

标签： vba ms-word

【解决方案1】：

试试：

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

【讨论】：