Ik vroeg me af hoe je de controle kunt overpakken van een programma. Ik ga een soort "automatiseringsprogrammaatje" maken omdat ik me wat verveel. Nu had ik al in een voorbeeld gezien hoe je word kon besturen, maar kan je dit voor ieder programma doen?? ZO ja hoe??
van word heb ik tot nu toe volgende gezien:
van word heb ik tot nu toe volgende gezien:
Option Explicit
'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
'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