Visual Basic for MS Word code not working for Japanese
问题 I'm using the following VB code (authored by macropod, see this stackoverflow question) inside MS Word (Word for Mac v16.16.21) to mark errors and insert the first spell checker suggestion inside a document: 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 & "][]"