เติมข้อความอัตโนมัติในคำ MS - เน้นการเปลี่ยนแปลงคำ

ฉันเป็นโรคพาร์คินสันระยะแรกซึ่งทำให้ฉันพิมพ์ลำบาก

ฉันกำลังมองหาวิธีในการปรับปรุงสิ่งอำนวยความสะดวกการแก้ไขอัตโนมัติของ MS-Word (และในอุดมคติของ MS Outlook) เนื่องจากมีข้อผิดพลาดมากมายที่ไม่ได้หยิบขึ้นมาและต้องใช้เวลาในการแก้ไขพวกเขาเองทั้งหมด รายการแก้ไขให้หลีกเลี่ยงข้อผิดพลาดเดียวกันในอนาคต - และคุณจะประหลาดใจว่ามีชุดค่าผสมที่ไม่ถูกต้องจำนวนเท่าใดจากการใช้นิ้วสัมผัสไขมัน (หรืออาจจะไม่ใช่ :)

ฉันพบข้อเสนอแนะที่ยอดเยี่ยมนี้ที่อื่นซึ่งไปไกลถึงวิธีแก้ปัญหา:

แก้ไขอัตโนมัติสำหรับ "นิ้วอ้วน" - MS Word

อย่างไรก็ตามฉันกังวลว่าคำใดคำหนึ่งจะถูกแทนที่ด้วยคำอื่นที่ไม่ถูกต้องซึ่งจะมีการสะกดที่ถูกต้องและด้วยเหตุนี้คุณจึงพลาดการตรวจสอบการสะกดคำในภายหลังจึงทำให้เกิดข้อผิดพลาดที่หายาก

ฉันมีสองคำถาม:

1. ใครสามารถแนะนำโมเดอเรเตอร์ให้กับสคริปต์เพื่อให้มีการเปลี่ยนแปลงคำใด ๆ

2. บางคนสามารถบอกได้ว่าสคริปต์น่าจะทำให้เอกสารขนาดใหญ่ช้าลงหรือไม่

ฉันไม่มี Word แต่ฉันพยายามแก้ไขสคริปต์ดังต่อไปนี้:

Sub AutoSpellCheck()
    Dim oSE As Range
    Dim oSC
    For Each oSE In ActiveDocument.Range.SpellingErrors
        Set oSC = oSE.GetSpellingSuggestions
        If oSC.Count > 0 Then
        oSE.Text = oSC(1)
        oSE.HighlightColorIndex = wdYellow
        Else
        oSE.HighlightColorIndex = wdRed
        End If
    Next oSE
End Sub

คำที่สะกดผิดที่ไม่เปลี่ยนแปลงควรเน้นด้วยสีแดง สิ่งที่เปลี่ยนแปลงควรเน้นเป็นสีเหลือง

ฉันคิดว่าความเร็วในการรันสคริปต์จะขึ้นอยู่กับกำลังการประมวลผลของคอมพิวเตอร์ของคุณ