摘要： ①将格式应用于选定内容
下列示例使用Selection属性将字符和段落格式应用于选定文本。使用Font属性获得字体格式的属性和方法，使用ParagraphFormat属性获得段落格式的属性和方法。
Sub FormatSelection()
With Selection.Font
.Name = "Times New Roman"
.Size = 14
.AllCaps = True
End With
With Selection.ParagraphFormat
.LeftIndent = InchesToPoints(0.5)
.Space1
End With
End Sub
②将格式应用于某一区域
下列示例定义了一个Range对象，它引用了活动文档的前三个段落。通过应用Font 和ParagraphFormat对象的属性来设置 Range对象的格式。
Sub FormatRange()
Dim rngFormat As Range
Set rngFormat = ActiveDocument.Range( _
Start:=ActiveDocument.Paragraphs(1).Range.Start, _
End:=ActiveDocument.Paragraphs(3).Range.End)
With rngFormat
.Font.Name = "Arial"
.ParagraphFormat.Alignment = wdAlignParagraphJustify
End With
End Sub
③插入文字并应用字符和段落格式
下列示例在当前文档的上部添加单词 Title。第一段居中对齐，并在该段落之后添加半英寸的间距。将单词 Title 的格式设为 24 磅 Arial 字体。
Sub InsertFormatText()
Dim rngFormat As Range
Set rngFormat = ActiveDocument.Range(Start:=0, End:=0)
With rngFormat
.InsertAfter Text:="Title"
.InsertParagraphAfter
With .Font
如何让WORD的宏随文档的打开自动运行
如何让WORD的宏随文档的打开自动运行 因为word自定义宏是不能自动运行的。 下面，本站与您分享一下，经过实践证明可行的方法，让您的宏随文档的打开而自动运行。 前提条件：您的word宏的安全级别设置为中或低。 理论指导：通过word所允许的能够随文档的打开而自动运行的默认宏，调用自定义宏，这样，我们平时自制的word自定义宏，就能实现自动运行了。 比如，您有一个自定义的倒计时的宏，代码大概如下： Sub Timer() '其中的代码已省略。 End Sub '欲想知道倒计时宏代码范例，请您参阅此文
.Name = "Tahoma"
.Size = 24
.Bold = True
End With
End With
With ActiveDocument.Paragraphs(1)
.Alignment = wdAlignParagraphCenter
.SpaceAfter = InchesToPoints(0.5)
End With
End Sub
④在 12 磅和无之间切换段前间距
下列示例切换选定内容中第一段的段前间距。宏将获取当前段前间距的值，如果该值为 12 磅，则删除段前间距格式(将SpaceBefore属性设为零)。如果段前间距的值为除 12 外的其它数值，则将 SpaceBefore属性设为 12 磅。
Sub ToggleParagraphSpace()
With Selection.Paragraphs(1)
If .SpaceBefore <> 0 Then
.SpaceBefore = 0
Else
.SpaceBefore = 6
End If
End With
End Sub
⑤切换加粗格式
下列示例切换选定文本的加粗格式。
Sub ToggleBold()
Selection.Font.Bold = wdToggle
End Sub
⑥将左边距增加 0.5 英寸
下列示例将左边距和右边距增加 0.5 英寸。PageSetup对象包含文档的所有的页面设置属性(左边距、下边距、纸张大小等)。LeftMargin属性用于返回和设置左边距设置。RightMargin属性用于返回和设置右边距设置。
Sub FormatMargins()
With ActiveDocument.PageSetup
.LeftMargin = .LeftMargin InchesToPoints(0.5)
.RightMargin = .RightMargin InchesToPoints(0.5)
End With
End Sub
VS2010复制代码到word时出现中文乱码的解决办法
VS2010复制代码到word时出现中文乱码的解决办法 VS 2010 复制代码到word出现乱码解决办法 直接复制VS2010的代码到Word里面去时，汉字会出现如下乱码，虽然可以采用记事本打开然后复制的方法，但是这样就失去了高亮色，不是我们想要的，下面的小程序就是解决这个问题的。 乱码： 复制代码 代码如下: if (dataObject.GetDataPresent(DataFormats.Rtf)) { //取¨?出?RTF格?式º? string rtf = dataObject.GetData
