Computer Programming Concepts and Visual Basic David I. Schneider

388 Computer Programming Concepts and Visual Basic
Private Sub cmdCreate_Click()
Dim objWord As Object
Set objWord = CreateObject(“Word.Basic”)
objWord.FileNewDefault
objWord.Insert “I can resist everything.”
objWord.Wordleft
objWord.Bold
objWord.Insert “ except temptation”
objWord.FilePrint ‘Make sure your printer is on
objWord.FileSaveAs “QUOTE.DOC”
objWord.FileClose Set
objWord = Nothing
End Sub
[Run and click the command button. The printer will produce the following output.]
I can resist everything except temptation.
THE OLE CONTAINER CONTROL
An OLE Container control provides a bridge to Windows applications, such as spreadsheets
and word processors. For instance, it can hold an Excel spreadsheet or a Word document. The
application can be either linked or embedded through the OLE Container control. With linking,
a link is established to the data associated with the application and only a snapshot of the
data is displayed. Other applications can access the object’s data and modify them. For example,
if you link a text file to a Visual Basic application, the text file can be modified by any
application linked to it. The modified version appears in all documents linked to this text.
With embedding, all the application’s data are actually contained in the OLE Container control
and no other application has access to the data.
When you place an OLE Container control on a form, the dialog box in Figure 13-1
appears. You can select an application from the list and then press the OK button (or doubleclick
on the application) to insert it into the control. Alternately, you can click on the “Create
from File” option button to produce the dialog box in Figure 13-2. From this second
dialog box, you specify a file (such as a Word .DOC file or an Excel .XLS file) by typing it
into the text box or clicking the Browse command button and selecting it from a standard file
selection dialog box. After the file has been selected, you have the option of checking the
Link check box before clicking on the OK button to insert the contents of the file into the
OLE Container control.
FIGURE 13-1 An Insert Object Dialog Box