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