word如何快速地为空格添加下划线

办公教程导读

收集整理了【word如何快速地为空格添加下划线】办公软件教程，小编现在分享给大家，供广大互联网技能从业者学习和参考。文章包含1222字，纯文字阅读大概需要2分钟。

办公教程内容图文

1. 使用Ctrl + F快捷键：

按住Ctrl键+F键，然后点击“替换”，将以下文本输入框中的空格替换为下划线：【空格】替换为【_】，点击“替换全部”即可完成。

2. 使用脚本转换：

在Word文档中，使用VBA脚本将空格替换为下划线，只需要在VBA界面中编写一小段简单的脚本即可完成，代码如下：
Sub ReplaceSpacesWithUnderscores()
   Selection.Find.ClearFormatting
   Selection.Find.Replacement.ClearFormatting
   With Selection.Find
       .Text = " "
       .Replacement.Text = "_"
       .Forward = True
       .Wrap = wdFindContinue
       .Format = False
       .MatchCase = False
       .MatchWholeWord = False
       .MatchWildcards = False
       .MatchSoundsLike = False
       .MatchAllWordForms = False
   End With
   Selection.Find.Execute Replace:=wdReplaceAll
End Sub

3. 使用MS Word对象模型：

也可以使用MS Word对象模型来替换空格，代码如下：
Dim objRegex
Set objRegex = CreateObject("vbscript.regexp")
With objRegex
 .Pattern = "\s"
 .Global = True
 .MultiLine = True
 .IgnoreCase = False
End With
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
   .Text = objRegex.Pattern
   .Replacement.Text = "_"
   .Forward = True
   .Wrap = wdFindContinue
   .Format = True
   .MatchCase = False
   .MatchWholeWord = False
   .MatchWildcards = False
   .MatchSoundsLike = False
   .MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll

办公教程总结

以上是为您收集整理的【word如何快速地为空格添加下划线】办公软件教程的全部内容，希望文章能够帮你了解办公软件教程word如何快速地为空格添加下划线。
如果觉得办公软件教程内容还不错，欢迎将网站推荐给好友。