下面的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 = "隶书"
.Size = 36
.Bold = True
End With
End With
With ActiveDocument.Paragraphs(1)
增加word标题样式中的标题4.标题5.标题6
增加word标题样式中的标题4.标题5.标题6 在word文档中设置文字的格式,有时候需要使用word内部提供的设置好的格式,就比如设置文字的不同级别的标题,就需要使用各种标题的样式! 一般情况下,要使用标题,在格式工具栏上面,有“正文”两个字的那个下拉列表框,里面就有标题的样式,但是,如下图一样。 一般只有三级的标题样式,标题 1、标题 2和标题 3,如果但是没有标题4、标题5、标题6等等,但是万一我们要使用标题4、标题5、标题6或者更多级别的标题,应该如何设置才能使用呢,方法如下,不算难。 找到菜单“
.Alignment = wdAlignParagraphCenter
.SpaceAfter = InchesToPoints(0.5)
End With
部分代码解释:
Dim rngFormat As Range定义变量
Set rngFormat = ActiveDocument.Range(Start:=0, End:=0)设置rngFormat变量的位置,位于文档的最上面
With rngFormat
里面的代码功能是设置字体字号等属性
End With
With ActiveDocument.Paragraphs(1)
.Alignment = wdAlignParagraphCenter
.SpaceAfter = InchesToPoints(0.5)
End With
该代码代码功能是添加段后距离为0.5英寸
Word如何插入半勾√符号
Word如何插入半勾√符号 一、使用长相类似半勾的符号 如果使用这种方法,就比较简单了。方法如下: 在Word中,找到菜单“插入”→“符号”,如下图。 弹出下面的对话框。 上图中,选择“符号”选项卡,然后,在里面找到如上图的符号,即?这个符号,将其插入到文档里面,然后,你就可以将?复制到任何地方,代替半勾来使用。 二、使用绘图的办法制作半勾 同样,在Word文档中,通过绘图工具栏,先绘制一个√符号,接着,在通过绘制直线的工具,在半勾上画一叉,最后,再将两者组合在一块,成功一个整体,就成为半勾符号了。 该组


