代码如下，如果想判断为其它格式的，请自行修改。 option explicit sub editpastespecial() '''当用户单击选择性粘贴命令时,word自动调用本过程 dim mydlg as word.dialog dim strdatatype as string set mydlg = word.dialogs(wddialogeditpastespecial) '''选择性粘贴对话框 if mydlg.show = -1 then strdatatype = ucase$
02/19 08:01
下面的vba代码功能，第一步，word当前文档的上面添加文字dzwebs文字。然后，又设置第一段居中对齐，并在该段落之后添加半英寸的间距。将dzwebs的格式设为36磅，隶书字体。 dim rngformat as range set rngformat = activedocument.range(start:=0, end:=0) with rngformat .insertafter text:="dzwebs" .insertparagraphafter with .font .
02/14 06:27
下面的vba代码功能，第一步，word当前文档的上面添加文字dzwebs文字。然后，又设置第一段居中对齐，并在该段落之后添加半英寸的间距。将dzwebs的格式设为36磅，隶书字体。 dim rngformat as range set rngformat = activedocument.range(start:=0, end:=0) with rngformat .insertafter text:="dzwebs" .insertparagraphafter with .font .name
03/08 20:03
以下代码为通过vba代码来设置word字体的各种格式。 wapp.selection.font.namefareast = "华文中宋"; wapp.selection.font.nameascii = "times new roman"; wapp.selection.font.nameother = "times new roman"; wapp.selection.font.name = "宋体"; wapp.selection.font.size = float.parse("14");
05/03 19:37
①什么是对象和集合 对象代表一个 word 元素，如文档、段落、书签或单独的字符。集合也是一个对象，该对象包含多个其他对象，通常这些对象属于相同的类型;例如，一个集合对象中可包含文档中的所有书签对象。通过使用属性和方法，可以修改单独的的对象，也可修改整个的对象集合。 ②什么是属性 属性是对象的一种特性或该对象行为的一个方面。例如，文档属性包含其名称、内容、保存状态以及是否启用修订。若要更改一个对象的特征，可以修改其属性值。 若要设置属性的值，可在对象的后面紧接一个句号、属性名
03/06 22:07
使用下面的代码，你就可以判断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"