vbword页面设置

① VB如何设置word文件的页面设置和字体等

下面就是一些例子，告诉你如何与这些程序会话，并控制它们。

Option Explicit

Dim xlsApp As Excel.Application
Dim wrdApp As Word.Application

只要相关的对象库已经被选择，在应用程序中进行对象变量的赋值是可能的。Microsoft Excel 8.0对象库是相对于Excel的，而 Microsoft Word 8.0 对象库是为Word服务的。

在VB的IDE环境中，从“工程”菜单中选择“引用”，可以看到系统可用的所有库列表。

Private Sub Command1_Click()
Set xlsApp = Excel.Application
With xlsApp
'Show Excel
.Visible = True
'Create a new workbook
.Workbooks.Add
'Put text in to the cell that is selected
.ActiveCell.Value = "Hi"
'Put text into A3 regardless of the selected cell
.Range("A3").Value = "This is an example of connecting to Excel"
End With
End Sub

在上面的程序段中，我们在变量xlsApp中建立了一个对象，这样Excel就对用户可见了。当Excel象这样启动后，并不包含一个工作簿，所以必须创建或者执行打开操作。这里，我们建立了一个新的工作簿，然后，就可以操作其中的信息，或者打印，或者保存，或者你任意想做的事情。

Private Sub Command2_Click()
'close the workbook
xlsApp.Workbooks.Close
'Close Excel
xlsApp.Quit
End Sub

上面这段代码执行关闭程序的功能。首先，关闭工作簿，这将出现一个提示对话框，询问用户是否想保存修改；然后，退出应用程序。

Private Sub Command3_Click()
Set wrdApp = New Word.Application
With wrdApp
'Show Word
.Visible = True
'Create New Document
.Documents.Add
'Add text to the document
.ActiveDocument.Content.Text = "Hi"
.ActiveDocument.Content.Text = "This is a test example"
End With
End Sub

上面这段代码中，在变量wrdApp中设置引用Word程序的对象。同样，当Word按照这种方式启动后，不会包含一个文档，所以，必须执行建立或者打开操作。这里是建立了一个新文档，然后可以操作其中的信息了，打印、保存、发送邮件，等等...

但是，在Word文档中放置文本并非容易！特别是与Excel一起工作时。为了简单地在特定的地方放置文本，需要有一个bookmark标记。这意味着，需要事先建立一个模板。

Private Sub Command4_Click()
'Close the current document
wrdApp.ActiveDocument.Close
'Close Word
wrdApp.Quit
End Sub

上面这段代码的功能是关闭应用程序。首先，关闭当前文档，这时可能需要用户保存修改。然后，退出程序。

Private Sub Form_Unload(Cancel As Integer)
'Clear the memory
Set xlsApp = Nothing
Set wrdApp = Nothing
End Sub

最后一段代码就是关闭VB应用程序。这是优秀程序员编程的好习惯。

② vb如何进行word页面设置的代码

'工程引用MicrosoftWord12.oObjedtLibrary
PrivateSubCommand1_Click()
DimwdAsNewWord.Application
wd.Documents.AddDocumentType:=wdNewBlankDocument
Withwd.Selection
.Font.Spacing=2
.ParagraphFormat.Alignment=wdAlignParagraphCenter'居中
.Font.Size=16'字号
.Font.Name="宋体"
.Font.Bold=True'粗体
.TypeText"这是一个VB编辑word的测试。"'输出字符
.Font.Bold=False

.TopMargin=CentimetersToPoints(1.27)'页面上边距
.BottomMargin=CentimetersToPoints(1.27)'页面下边距
.LeftMargin=CentimetersToPoints(1.27)'页面左边距
.RightMargin=CentimetersToPoints(1.27)'页面右边距
EndWith
wd.Visible=True
wd.ShowMe
Setwd=Nothing
EndSub

③ 如何用vb创建word文档并进行页面设置

学习下有关word，vba有关的知识，了解下我惹的对象的属性和方法！

④ vb判断WORD文档页面设置是否正确

最佳答案
回答：huangjianshi
学者
5月31日 19:30 文档编辑页面－工具－选项－格式标记，把段落标记复选框钩上就可以看见了。看图解

⑤ VB如何设置WORD的页眉页脚

With WordDoc.ActiveWindow
If .View.SplitSpecial <> wdPaneNone Then
.Panes(2).Close
End If
If .ActivePane.View.Type = wdNormalView Or .ActivePane.View.Type = wdOutlineView Or .ActivePane.View.Type = wdMasterView Then
.ActivePane.View.Type = wdPageView
End If
.ActivePane.View.SeekView = wdSeekCurrentPageHeader
End With

With WordSel
.Font.Name = "楷体_GB2312"
.Font.Bold = True
.ParagraphFormat.Alignment = wdAlignParagraphRight
.TypeText Text:="这里是页眉！"

'这里是Logo图片
Dim LogoFile As String
LogoFile = Path.App & "Logo.BMP"
On Error Resume Next
Kill LogoFile
On Error GoTo 0
SavePicture imgMyLogo.Picture, LogoFile
WordApp.ActiveDocument.Shapes.AddPicture Anchor:=.Range, FileName:=LogoFile, LinkToFile:=False, SaveWithDocument:=True
Kill LogoFile

.MoveDown Unit:=wdLine, Count:=1
.Font.Bold = True
.Font.Name = "楷体_GB2312"
.ParagraphFormat.Alignment = wdAlignParagraphCenter
.TypeText Text:="这里是页脚"
WordDoc.ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
End With

⑥ VB控件OLE中显示的WORD文档如何翻页

方法/步骤来

• 打开word软件，如图所示自

  

⑦ 在vb编写的界面里如何操作word

这个题目太大了吧。能不能缩小一下范围呢？不说的话给你来点范文吧。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
将格式应用于选定内容
下列示例使用 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
.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

⑧ 如何用VB代码制作Word文档的字体设置框

方法/步骤
1
打开word
双击桌面word图标打开word窗口，也可同时按下“win+r"键，在运行对话框中输入：winword，回车亦可快速打开word窗口。
2
制作样表
在打开的word文档中，插入一个样表，用于后期操作。
把光标定位到表格中，这时工具栏会出“设计”选框卡，点击切换到该页面上。
开始录制宏
1.此时，在word应用程序窗口的状态栏中，找到如图“录制宏”按钮，进行单击。
2.弹出的“录制宏”窗口，保持默认配置不变，点击“确定”开始录制。
3.点击“设计”选项卡中样式列表后面的下拉按钮，在下拉菜单中选择“修改表格样式”。
在弹出的“修改样式”窗口，依次修改“线型”、“线宽”、“线的颜色”、以及“边框”（必须重新选择，否则修改不会反映到表格中）。
点击“确定”，确定表格边框样式的修改。
完成宏录制
再次在word应用程序窗口的状态栏中，找到如图“录制宏”按钮，单击停止宏录制。
查看宏代码
在word窗口，依次点击工具栏“开发工具”——“Visual
Basic”或直接按下组合键“ALT+
F11
”,打开宏代码窗口。
可以看到代码窗口的代码挺多，是不是有一种脑胀的感觉。
查看关键代码
其实，大家不用害怕，只要稍微认真观察一下，大家就会发现这些代码大多都是在重复，关键代码也就那么几项，也正是我们所需要的。
With
ActiveDocument
.Styles("网格型").Table
With
.Shading
.Texture
=
wdTextureNone
.ForegroundPatternColor
=
wdColorAutomatic
.BackgroundPatternColor
=
wdColorAutomatic
End
With
With
.Borders(wdBorderLeft)
.LineStyle
=
wdLineStyleDashLargeGap
.LineWidth
=
wdLineWidth300pt
.Color
=
wdColorRed
End
With
……
End
With