vba判断WORD字体是否是粗体

使用下面的代码，你就可以判断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

赞 (0)

相关推荐

  • 如何将QQ音乐的桌面歌词字体设置为粗体

    如何将QQ音乐的桌面歌词字体设置为粗体

    今天给大家介绍一下将QQ音乐的桌面歌词字体设置为粗体的具体操作步骤.1. 打开电脑,找到桌面上的QQ音乐图标,双击打开2. 进入主页面后,点击页面右上角的三横图标,打开主菜单3. 在打开的主菜单中,选 ...

  • VBA判断Word的选择性粘贴是否选择无格式文本

    代码如下，如果想判断为其它格式的，请自行修改。 Option Explicit Sub EditPasteSpecial() '''当用户单击选择性粘贴命令时,Word自动调用本过程 Dim myDl ...

  • vba判断word文字颜色是否为蓝色

    ①第一种代码 On Error GoTo ErrHandle Set myRange = ActiveDocument.Range(Selection.Start, ActiveDocument.Co ...

  • 怎么用CDR做粗体字、斜体字以及文字倒影

    CDR是常用的设计软件,和PhotoShop不一样,那么CDR中要做粗体字.斜体字和文字倒影,要怎么做呢?本文举例说明: 一.粗体字 01 打开CDR X6后,输入"我们都是好孩子" ...

  • VBA for Word设置字体的格式

    以下代码为通过VBA代码来设置Word字体的各种格式。 WApp.Selection.Font.NameFarEast = "华文中宋"; WApp.Selection.Font.NameAscii ...

  • 怎么给bilibili中的弹幕设置粗体字体

    怎么给bilibili中的弹幕设置粗体字体

    今天给大家介绍一下怎么给bilibili中的弹幕设置粗体字体的具体操作步骤.1.  解锁手机后,找到桌面上的哔哩哔哩app,打开2. 进入主页面后,点击页面右下角的"我的"选项3. ...

  • 想强调重点该用粗体、下划线还是斜体？

    计算机辅助的设计中,一般人可以轻易的凸显任何内文.只要透过 Word 等基本文书编辑软件内的 i, B, U 等按钮,或任意改变文字颜色,就可以达到基本的强调.但是,这些设定对读者而言,究竟是干扰还是 ...

  • 怎么给word字体设置大小和粗细

    这篇分享的是大家经常会遇到的一个word功能----怎么给word字体设置大小和粗细. 设置字体大小 01 首先我们打开word并且找到一段示例文字(这里的示例文字是摘抄的泰戈尔飞鸟集并附带英文翻译. ...

  • word 字体格式有没有什么快捷键啊?

    关于字体格式的常用快捷键有: [ctri+U]: 为字符添加下划线 [ctri+B]: 字符变为粗体 [ctri+I]: 字符变为斜体 [ctri+ shift+F]: 改变字体 [ctri+ shi ...