一次性向 excel 添加多个自动更正替换词？
Addition of multiple autocorrect substitution words to excel in one shot?
在我的家用电脑上，我有 MS Office 2007。我经常使用 excel 并且在语言列表中添加了大量自动更正替换词。有什么方法可以将该列表导入到我办公室的另一个 MS Office 中，这是另一台 PC？有一些 import/export 选项吗？
尝试转到 Excel File => Options => Proofing=>Custom Dictionaries。您可以在那里添加其他词典。
试图找到一些非 VBA 的解决方案，但似乎没有。您可以尝试将所有自动更正单词放入 Sheet1 中，第 A 列包含要更正的单词，第 B 列包含更正后的单词。然后试试这个代码
Sub AddAutocorect()
For x = 1 To Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row
Application.AutoCorrect.AddReplacement Range("A" & x).Value, Range("B" & x).Value
Next x
End Sub
此代码应添加所有自动校正值，无需手动输入数据。
我在 Microsoft Word 中使用了大量的自动更正替换。我发现我可以通过简单地复制 %appdata%\Microsoft\Office\MSO1033.acl 将它们从一台机器复制到另一台机器。我还保留该文件的副本作为备份，以便在我重新安装或修复时恢复 Windows。
这是在 Windows 10 中。我认为该文件夹可能与 Windows 7 中的相同。
Various blog posts 探索相关活动。例如，我想我在添加新的替换列表之前使用了一个宏来清空替换列表，这样我的 MSO1033.acl 备份就不会包含最初由 Microsoft 提供的不需要的定义。
在我的家用电脑上，我有 MS Office 2007。我经常使用 excel 并且在语言列表中添加了大量自动更正替换词。有什么方法可以将该列表导入到我办公室的另一个 MS Office 中，这是另一台 PC？有一些 import/export 选项吗？
尝试转到 Excel File => Options => Proofing=>Custom Dictionaries。您可以在那里添加其他词典。
试图找到一些非 VBA 的解决方案，但似乎没有。您可以尝试将所有自动更正单词放入 Sheet1 中，第 A 列包含要更正的单词，第 B 列包含更正后的单词。然后试试这个代码
Sub AddAutocorect()
For x = 1 To Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row
Application.AutoCorrect.AddReplacement Range("A" & x).Value, Range("B" & x).Value
Next x
End Sub
此代码应添加所有自动校正值，无需手动输入数据。
我在 Microsoft Word 中使用了大量的自动更正替换。我发现我可以通过简单地复制 %appdata%\Microsoft\Office\MSO1033.acl 将它们从一台机器复制到另一台机器。我还保留该文件的副本作为备份，以便在我重新安装或修复时恢复 Windows。
这是在 Windows 10 中。我认为该文件夹可能与 Windows 7 中的相同。
Various blog posts 探索相关活动。例如，我想我在添加新的替换列表之前使用了一个宏来清空替换列表，这样我的 MSO1033.acl 备份就不会包含最初由 Microsoft 提供的不需要的定义。