Instance of an application

[KrupaBenhur]

I have a list which contains entries like "Microsoft Word Document", "Microsoft Powerpoint Presentation" etc.,. On click of anyone, I should create a new word document or a new powerpoint presentation. How can I achieve this? Please let me know.

Mail me @ krupa_bg@infy.com

Rgds
Krupa Benhur.G

[Iouri]

'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 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



the same you do for Powerpoint

Iouri Boutchkine
iouri@hotsheet.com