VBA：在 Word 中的拼写错误旁边写下拼写建议

Question

在 MS Word（Office for Mac 2016，版本 15.31）中，我想通过标记拼写错误并在每个拼写错误的单词旁边写下第一个拼写建议来丰富文档：例如，如果文本说

我要充实

我需要的结果是

我[会][想要]充实

我知道

iErrorCnt=Doc.This.SpellingErrors.Count
For J=1 to iErrorCnt
    Selection.TypeText Text:=DocThis.SpellingErrors(J)
Next J

会检查所有拼写错误，我知道

ActiveDocument.Words(1).GetSpellingSuggestions.Item(1).Name

允许获取给定单词的第一个拼写建议。但是我如何 link 拼写错误的单词和拼写建议（因为拼写建议应用于单词并且单词按整数索引）以及如何在文档中将它们都标记出来？

Answer 1

尝试：

Sub SpellCheck()
Dim Rng As Range, oSuggestions As Variant
For Each Rng In ActiveDocument.Range.SpellingErrors
  With Rng
    If .GetSpellingSuggestions.Count > 0 Then
      Set oSuggestions = .GetSpellingSuggestions
      .Text = "[" & .Text & "][" & oSuggestions(1) & "]"
    Else
      .Text = "[" & .Text & "][]"
  End If
  End With
Next
End Sub

VBA：在 Word 中的拼写错误旁边写下拼写建议

VBA: Writing spelling suggestions next to spelling errors in Word

vba

ms-word

spelling