How can I execute Word

[Lev FatMan]

I have to open a word document during runtime from VB, I managed doing it when the word is already up, but how do I execute it if it is not activated?

FatMan

[Cakkie]

You can use the CreateObject fucntion to create an instance of word

set appWord = CreateObject("Word.Application")




Tom Cannaerts
slisse@planetinternet.be

Programming today is a race between software engineers striving to build bigger and better idot-proof programs, and the universe trying to produce bigger and better idiots. So far, the universe is winning -- Rich Cook

[Iouri]

Here is a good example

'ref to word8 lib
'Create an empty class to reference the Word Object
Dim w1 As Word.Application

Private Sub cmdAddDocument_Click()

'Create a new document
w1.Documents.Add

End Sub

Private Sub cmdAddText_Click()

'Test to see if there is a document open
If w1.Documents.Count < 1 Then
MsgBox "No documents open"
Exit Sub
End If

'Set the font size
w1.Selection.Font.Size = txtSize.Text

'Set the font weight etc.
w1.Selection.Font.Bold = IIf(chkBold.Value = 1, True, False)
w1.Selection.Font.Italic = IIf(chkItalic.Value = 1, True, False)
w1.Selection.Font.Underline = IIf(chkUnderline.Value = 1, True, False)

'Set the alignment
w1.Selection.ParagraphFormat.Alignment = drpJustification.ListIndex' (combo)

'Type the text
w1.Selection.TypeText txtTypeText.Text

End Sub

Private Sub cmdPrint_Click()

'Print out
w1.ActiveDocument.PrintOut

End Sub

Private Sub Form_Load()

'Create a new instance of word
Set w1 = New Word.Application

'Initialize Word as visible
Option1_Click 0

'Make the default value the first in the list
drpJustification.Text = drpJustification.List(0)

End Sub

Private Sub Form_Terminate()

'Close the Word application (not saving changes)
w1.Quit False
Set w1 = Nothing

End Sub

Private Sub Option1_Click(Index As Integer)

'Make word invisible / visible
w1.Visible = IIf(Index = 0, True, False)

End Sub


Iouri Boutchkine
iouri@hotsheet.com