☰

如何修复 Microsoft Word 2016 中单词之间间距不均匀的问题？

tag-icon • tag-icon microsoft-word vba macros microsoft-word-2010 microsoft-word-2016
如何修复 Microsoft Word 2016 中单词之间间距不均匀的问题？

我有 8 页的段落，单词之间的间距不均匀，我的意思是，有时单词之间有一个空格，有时有两个或三个空格。不均匀的间距源自将脚本文本转换为段落的 word 宏。我将代码放在最后

我尝试通过字体配置来解决这个问题，但这只是调整每个空格的长度，并没有减少按下空格键所产生的空格数，或者在这种情况下自动命令和键产生的额外空格，所以我不认为字体或段落配置会解决这个问题。

我想要的是通过设置单词之间均匀或恒定数量的空格（例如：单词之间只有一个空格）来修复文件，删除多余的空格。

或者修复我的宏以防止将来出现此错误，这也绝对有帮助。

Selection.EndKey Unit:=wdLine
If Selection.Text = vbCr Then Selection.Delete Unit:=wdCharacter, Count:=1
Selection.TypeText Text:=" "
Selection.EndKey Unit:=wdLine
If Selection.Text = vbCr Then Selection.Delete Unit:=wdCharacter, Count:=1
Selection.TypeText Text:=" "
Selection.EndKey Unit:=wdLine
If Selection.Text = vbCr Then Selection.Delete Unit:=wdCharacter, Count:=1
Selection.TypeText Text:=" "

子目录结束

宏的作用是将脚本文本转换为段落，转到行尾，然后键入 supr 并添加空格，所有这些都不会在此过程中剪切单词。

宏工作原理的示例：

*脚本文本：

马克：嗨。

约翰：哦，嗨，马克。

宏之后： 马克：嗨。约翰：嗨，马克。*

答案1

这些看起来不像是“空格”，而是段落或换行符。

首先尝试用空格替换 ^p，然后根据需要重复。如果这不起作用，请尝试用空格替换 ^l，然后根据需要重复。最终，所有内容都会出现在一个段落中。然后用一个空格替换两个空格，然后重复，直到找不到空格为止。

相关内容