Dim doc As Document
Dim objWD As Word.Application
Set objWD = CreateObject("Word.Application")
Set doc = objWD.Documents.Open("C:/...
使用下面的代码,你就可以判断WORD内容是否使用了粗体的字形。
Dim doc As Document
Dim objWD As Word.Application
Set objWD = CreateObject("Word.Application")
Set doc = objWD.Documents.Open("C:/MyWord.doc")
word拼音指南无法使用
word拼音指南无法使用 那是因为,word拼音指南若想出得来,得靠微软的拼音输入法来支撑,它是拼音功能就是从这个输入法里面来的。或者,如果你的word在安装的时候是自定义安装,而不是完全安装,也会出这种问题。 一般来说,你得必须安装Microsoft 中文输入法 3.0 或更高版本,否则此功能无效。 有了如上的前提条件,该拼音指南就能正常使用了,当然,一次你最多就能给30 字符同时添加拼音,超过30 个的则不行。 知识拓展:利用拼音指南,我们可以做如下的部分工作。 让拼音与文字分离 我们习惯把拼音放在文
If doc.Paragraphs(1).Range.Font.Bold = -1 Then
MsgBox"没有使用粗体''
else
MsgBox"已使用了粗体''
End If
Word文档不同位置如何切换跳转
Word文档不同位置如何切换跳转 不过别着急,下面就教你一招,保证当你在进行跳转时快速如飞! 因为Word能够智能地记录你最后四次的编辑位置和当前插入符的位置。但前提是必须在插入符处进行了编辑,才能记录,如果只是简单地将插入符移到文档的某一位置,则不会记录的。 如果你已经在插入符处进行了编辑操作,这时你只需简单地重复按“Shift F5”键或“Ctrl Alt Z”键,就可在最后四个插入符位置间循环,即使在不同文档间也是通行的。 知识拓展:怎样让微软拼音不再随Word启动 在日常工作中,我们经常会遇到这样