word宏怎么取消全文加粗呢？怎么实现取消

o0star0o · 发表于 2021-11-22 18:42

宏加粗的公式是：Selection.Font.Bold = wdToggle

我录制了宏，加粗和取消都是这个公式一模一样的，只是连续两次
已知一个word文档，里面有的字体是加粗的，有的没有加粗
我想全选全部取消加字，请问用宏什么实现呢？用什么办法？

lss001 · 发表于 2021-11-22 19:19

本帖最后由 lss001 于 2021-11-22 19:42 编辑

Sub Word全文取消加粗()
ActiveDocument.Select '选择全文先
'Selection.Font.Bold = True '文本加粗
Selection.Font.Bold = False '取消加粗
End Sub

413191246se · 发表于 2021-11-23 01:46

* 楼主，下面是微软官方 VBA 帮助文档中的原版《取消加粗》宏：

Sub FindBold()
'取消加粗
With ActiveDocument.Content.Find
.ClearFormatting
.Font.Bold = True
With .Replacement
.ClearFormatting
.Font.Bold = False
End With
.Execute Findtext:="", ReplaceWith:="", Format:=True, Replace:=wdReplaceAll
End With
End Sub

复制代码

daibao88 · 发表于 2021-11-23 11:13

ActiveDocument.Content.Font.Bold = False

		自动登录	找回密码
密码			免费注册

[求助] word宏怎么取消全文加粗呢？怎么实现取消

评分