[求助]怎样用VBA代码消除====间的空隙?

ssq1109

在WORD文档中我经常要将若干个连等号(全角或半角的，如“=====”和“＝＝＝＝＝”)之间的空隙消除，当然可通过选中这些等号再选“格式→字体→字符间距→间距→紧缩”，将半角等号的紧缩值设为0.5磅；将全角等号的紧缩值设为1.5磅即可OK！但我按此步骤录制一个宏，所得代码中根本就没有相应的紧缩信息，怎样通过VBA达到这一目的呢？谢谢帮忙!

konggs

Sub 查()
With ActiveDocument.Range.Find
.Text = "={4,20}"
.MatchWildcards = True
With .Replacement
.ClearFormatting
.Font.Spacing = -0.5
End With
.Execute Forward:=True, Replace:=wdReplaceAll
End With
查1
End Sub
Sub 查1()
With ActiveDocument.Range.Find
.Text = "＝{4,20}"
.MatchWildcards = True
With .Replacement
.ClearFormatting
.Font.Spacing = -1.5
End With
.Execute Forward:=True, Replace:=wdReplaceAll
End With
End Sub

ssq1109

这么快!非常感谢孔版主,我刚刚试了一下,根据我的需要改动了一下,您看还要不要优化?

Sub 查()
With ActiveDocument.Range.Find
.Text = "={2}"
.MatchWildcards = True
With .Replacement
.ClearFormatting
.Font.Spacing = -0.5
End With
.Execute Forward:=True, Replace:=wdReplaceAll
End With
With ActiveDocument.Range.Find
.Text = "＝{2}"
.MatchWildcards = True
With .Replacement
.ClearFormatting
.Font.Spacing = -1.5
End With
.Execute Forward:=True, Replace:=wdReplaceAll
End With
End Sub

konggs

具体问题具体分析，根据你的实际情况改着用很好了。

PS：我不是版主[em04]。

老大与如意姐是版主[em17]

ssq1109

我在OF那边上多了,还以为是那边呢!还是要谢谢konggs。

如要将EQ域中的“=====……”紧缩可在前后加上:
ActiveWindow.View.ShowFieldCodes = Not ActiveWindow.View.ShowFieldCodes

若字号变大了要增紧缩值。