vba判断WORD字体是否是粗体
时间:2023-12-07 12:47:31
使用下面的代码,你就可以判断WORD内容是否使用了粗体的字形。
Dim doc As Document
Dim objWD As Word.Application
Set objWD = CreateObject("Word.Application")
Set doc = objWD.Documents.Open("C:/MyWord.doc")
If doc.Paragraphs(1).Range.Font.Bold = -1 Then
MsgBox"没有使用粗体''
else
MsgBox"已使用了粗体''
End If
标签:vba判断WORD字体是否是粗体
![](/images/zang.png)
![](/images/jiucuo.png)
猜你喜欢
猎豹极速WiFi创建热点不能正常上网的解决方法
2023-11-25 17:17:16
![](https://img.aspxhome.com/file/2023/4/a307520_0s.jpg)
Word文档中怎么分割表格与合并表格快捷键
2023-03-31 07:58:17
Win10怎么卸载电脑上的应用软件?
2022-10-26 20:46:06
![](https://img.aspxhome.com/file/2023/5/a314801_0s.jpg)
Windows 10 10056最新预览版截图曝光啦
2023-05-02 15:11:47
![](https://img.aspxhome.com/file/2023/2/a286236_0s.jpg)
桌面图标不可以随意拖动怎么办
2023-09-05 04:12:37
![](https://img.aspxhome.com/file/2023/1/a281688_0s.png)
电脑开机长时间不使用黑屏怎么办?
2022-05-01 22:10:13
![](https://img.aspxhome.com/file/2023/26/a220203_0s.jpg)
怎么关闭win10自带杀毒软件
2023-11-24 17:58:11
![](https://img.aspxhome.com/file/2023/0/50910_0s.png)
Win10电脑怎么建立多个桌面?
2023-05-12 12:27:01
![](https://img.aspxhome.com/file/2023/1/a278874_0s.jpg)
新浪页游助手如何加速?
2023-12-17 09:09:15
![](https://img.aspxhome.com/file/2023/7/a330678_0s.jpg)
如何用石大师重装系统工具安装最新的Win11系统?
2023-06-07 17:39:57
![](https://img.aspxhome.com/file/2023/30/a264531_0s.png)
Win7旗舰版默认网关不可用怎么回事?
2022-02-12 05:20:32
![](https://img.aspxhome.com/file/2023/26/a229305_0s.png)
在wps文字中如何设置字符底纹
2022-01-17 01:40:52
Sketch入门基础-画布、Artboard(画板)功能介绍
2022-10-08 14:23:55
![](https://img.aspxhome.com/file/2023/4/a212044_0s.jpeg)
Win7系统使用的不是Administrator管理员账号怎么回事?
2023-01-07 11:26:52
![](https://img.aspxhome.com/file/2023/26/a228402_0s.jpg)
Win7系统电脑设置连接远程桌面的操作方法
2023-06-22 18:33:28
![](https://img.aspxhome.com/file/2023/3/a297638_0s.jpg)
excel下拉菜单怎么做_excel下拉菜单设置方法
2022-10-24 05:47:29
![](https://img.aspxhome.com/file/2023/4/a312079_0s.jpg)
ppt怎么设计漂亮的幻灯片模板?
2023-10-10 05:38:05
![](https://img.aspxhome.com/file/2023/10/a346578_0s.jpg)
Win10除了Edge以外的浏览器都不能上网怎么办?
2022-08-28 16:17:21
![](https://img.aspxhome.com/file/2023/26/a225930_0s.jpg)
电脑系统如何找回回收站图标?
2023-07-14 06:42:26
![](https://img.aspxhome.com/file/2023/2/a288996_0s.png)
Win10两周年更新RedStone 3将在2017年夏季到来
2022-02-02 11:56:07
![](https://img.aspxhome.com/file/2023/5/a315027_0s.jpg)