Question

对于我的问题，我尝试了不同的事情而且都没有效果：我对实际解决问题的方式很灵活，所以我认为从目的开始是最好的。

我得到长文件，我需要做一些质量检查和校对。文件中有很多单词没有正确大写。我希望自动获得此功能（没有正常的语法软件/附加功能赢得了）

我的自动更正文件中的所有条目，单词文件（非常好，最好不要使用它们）和excel电子表格（错误输入 - 正确输入）。

刷新文档并不能解决问题。如果我从列表中选择一个单词并选择它并按空格键然后它会被更改，所以我写了＃34;那个宏

Sub Try()
    For Each sentence In ActiveDocument.StoryRanges  
        For Each w In sentence.Words            
            Selection.MoveRight Unit:=wdWord, Count:=1
            Selection.TypeText Text:=" "
            Selection.TypeBackspace          
        Next
    Next
End Sub

事情＆＃34;工作＆＃34;即它运行，您可以看到光标在屏幕上超速，但没有任何单词被更改。因此，我认为在宏运行时，自动更正以某种方式被禁用..任何人都有提示？理想情况下知道解决方法吗？

最糟糕的情况我想把文本放在一个excel文件中并编写一个宏，每个文本行检查每个单词与原始列表和＃34;如果匹配则替换＆＃34;但它似乎并不容易（至少对我而言）

干杯
我希望我能解释一下自己

Answer 1

这个伪代码/大纲应该让你开始：

在Word中，您可以创建Excel实例并打开电子表格：
https://stackoverflow.com/a/24196120/3451115

然后，您可以循环浏览错误字词列表：
https://stackoverflow.com/a/1463308/3451115

对于每个WrongWord执行查找和替换：
VBA to find and replace a text in MS WORD 2010

自动更正Word 2010（VBA）

1 个答案: