How to Use Named WordBasic Arguments in OLE Automation

• Microsoft Word for Windows, versions 6.0, 6.0a, 6.0c
• Microsoft Word for Windows 95, version 7.0
• Microsoft Excel for Windows, versions 5.0, 5.0a
• Microsoft Visual Basic, Applications Edition

SUMMARY

This article describes how to create a routine in Microsoft Visual Basic for Applications that uses named and position arguments to send commands to Word for Windows using OLE Automation. For example, you can send OLE Automation commands to Word from a Microsoft Excel Visual Basic for Applications macro to perform a print merge operation in Word (see the "Sample Visual Basic for Applications Module to Run Mail Merge in Word" section at the end of this article).

MORE INFORMATION

The syntax for named arguments in Visual Basic, Applications Edition, is similar to the WordBasic syntax in Word for Windows. You can see the similarities in the following sample WordBasic and Visual Basic for Applications syntax, both of which start a new Word document based on the LETTER1.DOT template:

   WordBasic Syntax
   ----------------

   FileNew .Template = "C:\WINWORD\TEMPLATE\LETTER1.DOT", .NewTemplate = 0

   Visual Basic, Applications Edition, Syntax
   ------------------------------------------

   .FileNew Template := "c:\winword\template\letter1.dot", NewTemplate := 0

   Object doesn't support this property or method.

Sample Visual Basic for Applications Module and WordBasic Macro

WARNING: ANY USE BY YOU OF THE CODE PROVIDED IN THIS ARTICLE IS AT YOUR OWN RISK. Microsoft provides this macro code "as is" without warranty of any kind, either express or implied, including but not limited to the implied warranties of merchantability and/or fitness for a particular purpose.

The following sample Visual Basic for Applications module uses OLE Automation to send named arguments to Word and create a new document:

Sub Test()

  .FileNewDefault
  .Insert "This text appears here because of OLE Automation."
  .StartOfLine 1
  .FormatFont Points:="12", SmallCaps:=1, Font:="Courier New", Bold:=1
  .StartOfDocument
  .FormatParagraph Alignment:=1, WidowControl:=0

End Sub

The following is the WordBasic macro equivalent of the above Visual Basic for Applications module:

Sub MAIN

End Sub

Sample Visual Basic for Applications Module to Run Mail Merge in Word

For the following mail merge example to work, you need to have Word 6.x running with a main mail merge document open.

Sub Print_Merge()

    With wordbasic
         .MailMerge CheckErrors:=1, Destination:=0, MergeRecords:=0,

    End With
End Sub

REFERENCES

"Microsoft Word Developer's Kit," version 6.0, Microsoft Press, 1994, pages 174-182