Question

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

Open "01.doc" For Output As #1

Print #1, "Shipping; Mark: "
Print #1, txtMark
Print #1, "NAME OF GOODS: " & xlProductName
Print #1, "Size: " & xlDimension
Print #1, "Q'ty: " & xlQty & " pcs"
Print #1, "DIMENSION: " & xlPackingDimension & " cm"
Print #1, "N.Wt/Gr.Wt: " & xlWeight & " kg"
Print #1, "ROLL NO.: " & xlRollNo
Print #1, "CASE NO.: " & xlCaseNo
Print #1, "COUNTRY OF ORIGIN: MADE IN CHINA"

Close #1

想用这段代码想直接生成WORD文件,同时控制WORD字体字号加粗,以及页面设置成A4横向,在VB6里是否有简单方法可以控制WORD

Answer 1

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

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应用程序。这是优秀程序员编程的好习惯。

Answer 2

appword.selection.font.bold
=
true
appword.selection.font.italic
=
true
这是加粗和倾斜的语句！
你自己看加在自己想要的地方！