Microsoft KB Archive/118646

{|
 * width="100%"|

-

The information in this article applies to:


 * Microsoft Visual Basic Standard and Professional Editions for Windows, version 3.0
 * Microsoft Word for Windows, version 6.0

-

SUMMARY
Word for Windows version 6.0 does not supply scroll bars that would allow an activated document embedded in the Visual Basic 3.0 OLE container control to be scrolled through. This article describes how to provide buttons that allow the user to scroll through an embedded Word for Windows version 6.0 document that has been activated for visual editing.

To scroll through the window, you must call a Word Basic method such as VLine. However, if you call the method from within a scroll-bar event, the code does not work. The problem is that when the scroll bar receives the focus, the Word document object in the OLE control is deactivated. If you try to activate the Word Document object in the scroll-bar event, the insertion point moves to the beginning of the document, causing you to lose the current position in the document. This problem happens with any control that can receive the focus.

MORE INFORMATION
To work around the problem, use a control that cannot receive the focus (for example, the image-control or the spin button). You can use the image control to simulate a button. When you click it, the focus remains on the OLE container control, and therefore the Word document object stays activated. This allows you to call a Word Basic method such as VLine to allow you to scroll through the window in the click event of the image control.

Example
 Start Visual Basic; Form1 is created by default. Add an OLE container control to Form1 (Ole1 is the default name for the control). The insert object dialog box should appear after you draw the OLE container control on the form. Choose Create from the File option, and choose an existing Word .DOC file that is more than a page in length. The "Link" and "Display As Icon" check boxes should not be checked. Choose the "OK" button when you are done; the document should now be embedded in the OLE container control. Add a spin button to Form1 (Spin1 is the default name of the control).  Place the following code in the spin-down event:      Sub Spin1_SpinDown If Ole1.AppIsRunning Then Ole1.Object.Application.WordBasic.VLine 1 Else Ole1.Action = 7 'Activate End If     End Sub   Place the following code in the spin-up event.      Sub Spin1_SpinUp If Ole1.AppIsRunning Then Ole1.Object.Application.WordBasic.VLine -1 Else Ole1.Action = 7 'Activate End If     End Sub  Save the project.</li> Run the application.</li> Double-click the OLE control to activate the Word .DOC object for visual editing.</li> Press the spin button to scroll up and down the document.</li></ol>