Hi,
http://support.microsoft.com/default...b;en-us;301656
Ken
------------------
"Mikey" <Mikey@nospam-nohow-noway.net> wrote in message
news:uSSfN1AIEHA.2720@TK2MSFTNGP11.phx.gbl...[color=blue]
> Sample VB .NET source code to create mailing labels or customized letters
> using MS Word MailMerge
>
> This VB .NET source code will start MS Word and call methods and set
> properties in MS Word to execute a MailMerge to create mailing labels or
> customized letters.
>
> A label name known to MS Word MailMerge mailing label wizard may be used[/color]
or[color=blue]
> a template file containing the field names Line1 thru Line5 for each[/color]
record[color=blue]
> to be printed. If a template file is used ("bUseTemplate"=True),
> "strLabelName" contains the full path filename to the template file
> otherwise it contains a label name known to the MS Word MailMerge mailing
> label wizard (e.g. "5162").
>
> The "strFileName" parameter contains the full path filename to a data file
> containing TAB delimited records with exactly 5 fields in each record.[/color]
Each[color=blue]
> record contains the name and address information. The first record of the
> data file contains the field names (Line1, Line2, Line3, Line4, Line5)
> delimited by a TAB character.
>
> The "wd_AlignmentCode" parameter and the "intOffset" parameter are used[/color]
only[color=blue]
> when "bUseTemplate" is False. They specify the alignment of the fields
> within the label and their offset from the left margin of the label table
> cell respectively. "intOffset" is specified in inches.
>
> Add References to:
> Microsoft Word 10.0 Object Library
> Microsoft Office 10.0 Object Library
> or equivalent for older or newer releases of MS Office
>
> Imports:
> Microsoft.VisualBasic
> __________________________________________________ ___
> Sub CreateWordMailMerge(ByVal strLabelName As String, _
> ByVal wd_AlignmentCode As Word.WdCellVerticalAlignment, _
> ByVal intOffset As Single, _
> ByVal strFileName As String, _
> ByVal bUseTemplate As Boolean)
> Dim oApp As Word.Application
> Dim oDoc As Word.Document
> Dim x As Integer
> Dim bOK As Boolean = False
> Dim oAutoText As Word.AutoTextEntry
>
> Try
> 'Start a new document in Word
> oApp = CType(CreateObject("Word.Application"),[/color]
Word.Application)[color=blue]
> If bUseTemplate Then
> Try
> oDoc = oApp.Documents.Open(CType(strLabelName,
> System.Object), False, True, _
> False, , , True, , , _
>[/color]
Word.WdOpenFormat.wdOpenFormatDocument,[color=blue]
> , True)
> Catch MyException As System.Exception
> MsgBox(String.Concat("Unable to open ", strLabelName,[/color]
_[color=blue]
> ControlChars.Cr.ToString,[/color]
ControlChars.Cr.ToString,[color=blue]
> _
> "Error Message: ", MyException.Message,
> ControlChars.Cr.ToString, _
> "Source: ", MyException.Source,
> ControlChars.Cr.ToString, _
> "InnerException: ",
> MyException.InnerException.Message, ControlChars.Cr.ToString), _
> MsgBoxStyle.Critical, "Label Template Open[/color]
Failure")[color=blue]
> CType(oApp, Word._Application).Quit()
> oApp = Nothing
> Exit Sub
> End Try
> Else
> oDoc = oApp.Documents.Add
> End If
> oApp.Visible = True ' Make MS Word visible
> Application.DoEvents()
> ' Do MailMerge
> With oDoc.MailMerge
> If Not bUseTemplate Then
> With .Fields
> .Add(oApp.Selection.Range, "Line1")
> oApp.Selection.TypeParagraph()
> .Add(oApp.Selection.Range, "Line2")
> oApp.Selection.TypeParagraph()
> .Add(oApp.Selection.Range, "Line3")
> oApp.Selection.TypeParagraph()
> .Add(oApp.Selection.Range, "Line4")
> oApp.Selection.TypeParagraph()
> .Add(oApp.Selection.Range, "Line5")
> End With
> oAutoText =
> oApp.NormalTemplate.AutoTextEntries.Add("wordAutoT extTemp", oDoc.Content)
> oDoc.Content.Delete()
> End If ' If bUseTemplate
> ' Set up the mail merge type as mailing labels and use
> ' a tab-delimited text file as the data source.
> .MainDocumentType =
> Word.WdMailMergeMainDocType.wdMailingLabels
> .OpenDataSource(strFileName, _
> Word.WdOpenFormat.wdOpenFormatText, _
> False, True, False, False)
> If Not bUseTemplate Then
> '
> 'Create the new document for the labels using the
> AutoText entry
> '
> oApp.MailingLabel.CreateNewDocument( _
> CType(strLabelName, String), _
> "", _
> "wordAutoTextTemp", _
> False, _
> Word.WdPaperTray.wdPrinterManualFeed)
> End If ' If bUseTemplate
> '
> 'Execute the mail merge to generate the labels.
> .Destination =
> Word.WdMailMergeDestination.wdSendToNewDocument
> .Execute()
> '
> If Not bUseTemplate Then
> 'Delete the AutoText entry
> oAutoText.Delete()
> End If ' If bUseTemplate
> End With
> '
> 'Close the original document so that
> 'the Mail Merge results are displayed
> CType(oDoc, Word._Document).Close(False)
> '
> If Not bUseTemplate Then
> ' Apply vertical alignment
> For x = 1 To oApp.ActiveDocument.Tables.Count
>
> oApp.ActiveDocument.Tables.Item(x).Range.Cells.Ver ticalAlignment = _
> wd_AlignmentCode
> Next
> Application.DoEvents()
> For x = 1 To oApp.ActiveDocument.Tables.Count
> oApp.ActiveDocument.Tables.Item(x).LeftPadding =
> oApp.InchesToPoints(intOffset)
> oApp.ActiveDocument.Tables.Item(x).Rows.LeftIndent =
> oApp.InchesToPoints(intOffset)
> Next
> Application.DoEvents()
> End If
> If oApp.ActiveWindow.View.Type <> Word.WdViewType.wdPrintView
> Then
> If oApp.ActiveWindow.View.SplitSpecial =
> Word.WdSpecialPane.wdPaneNone Then
> oApp.ActiveWindow.ActivePane.View.Type =
> Word.WdViewType.wdPrintView
> Else
> oApp.ActiveWindow.View.Type =
> Word.WdViewType.wdPrintView
> End If
> End If
> '
> 'Prevent save to Normal template when user exits Word
> oApp.NormalTemplate.Saved = True
> oApp = Nothing
> oDoc = Nothing
> Catch MyException As System.Runtime.InteropServices.COMException
> MsgBox(String.Concat("Error occured while communicating with[/color]
MS[color=blue]
> Word", _
> ControlChars.Cr.ToString, ControlChars.Cr.ToString, _
> "ErrorCode: ", MyException.ErrorCode,
> ControlChars.Cr.ToString, _
> "Error Message: ", MyException.Message,
> ControlChars.Cr.ToString, _
> "Source: ", MyException.Source, ControlChars.Cr.ToString,[/color]
_[color=blue]
> "StackTrace: ", MyException.StackTrace,
> ControlChars.Cr.ToString), _
> MsgBoxStyle.Critical, "MS Word Problem")
> End Try
> End Sub
>
>
>
>
>
>
>[/color]
