VERSION 5.00
Begin VB.Form frmWordLink2 
   Caption         =   "Link to Word"
   ClientHeight    =   5685
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   7410
   LinkTopic       =   "Form1"
   ScaleHeight     =   5685
   ScaleWidth      =   7410
   StartUpPosition =   3  'Windows Default
   Begin VB.TextBox txtDonation 
      Height          =   288
      Left            =   1560
      TabIndex        =   13
      Top             =   1680
      Width           =   1092
   End
   Begin VB.TextBox txtAddress 
      Height          =   288
      Index           =   3
      Left            =   3120
      TabIndex        =   8
      Top             =   1200
      Width           =   1092
   End
   Begin VB.TextBox txtAddress 
      Height          =   288
      Index           =   2
      Left            =   1560
      TabIndex        =   7
      Top             =   1200
      Width           =   1572
   End
   Begin VB.TextBox txtAddress 
      Height          =   288
      Index           =   1
      Left            =   1560
      TabIndex        =   6
      Top             =   840
      Width           =   2172
   End
   Begin VB.TextBox txtAddress 
      Height          =   288
      Index           =   0
      Left            =   1560
      TabIndex        =   5
      Top             =   480
      Width           =   2172
   End
   Begin VB.ComboBox comTitle 
      Height          =   288
      ItemData        =   "frmWordLink2.frx":0000
      Left            =   1560
      List            =   "frmWordLink2.frx":0013
      TabIndex        =   4
      Top             =   120
      Width           =   732
   End
   Begin VB.TextBox txtName 
      Height          =   288
      Index           =   1
      Left            =   3240
      TabIndex        =   3
      Top             =   120
      Width           =   1092
   End
   Begin VB.TextBox txtName 
      Height          =   288
      Index           =   0
      Left            =   2280
      TabIndex        =   2
      Top             =   120
      Width           =   972
   End
   Begin VB.CommandButton cmdExit 
      Caption         =   "E&xit"
      Height          =   612
      Left            =   2280
      TabIndex        =   1
      Top             =   4560
      Width           =   1212
   End
   Begin VB.CommandButton CmdToWord 
      Caption         =   "&Create Letter"
      Height          =   612
      Left            =   480
      TabIndex        =   0
      Top             =   4560
      Width           =   1212
   End
   Begin VB.Label lblDonation 
      Caption         =   "Donation"
      Height          =   252
      Left            =   120
      TabIndex        =   12
      Top             =   1680
      Width           =   852
   End
   Begin VB.Label lblCtyPostcode 
      Caption         =   "County/Postcode"
      Height          =   252
      Left            =   120
      TabIndex        =   11
      Top             =   1200
      Width           =   1452
   End
   Begin VB.Label lblAddress 
      Caption         =   "Address"
      Height          =   252
      Left            =   120
      TabIndex        =   10
      Top             =   480
      Width           =   732
   End
   Begin VB.Label lblName 
      Caption         =   "Name"
      Height          =   252
      Left            =   120
      TabIndex        =   9
      Top             =   120
      Width           =   732
   End
End
Attribute VB_Name = "frmWordLink2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim w1 As Word.Application
Dim d1 As Word.Document

Sub Thankyou()
'
' Thankyou Macro
' code identified by recording a macro in Word
    donation = txtDonation.Text
    DonorName = comTitle.Text + " " + Trim(txtName(0).Text) + " " + Trim(txtName(1).Text)
    CountyLine = Trim(txtAddress(2).Text) + " " + Trim(txtAddress(3).Text)
' Trim is used to get rid of unwanted spaces at the beginning or end of text
    Salutation = "Dear " + comTitle.Text + " " + Trim(txtName(1).Text)
    Message = "We would like to confirm your booking..........."
    Message = Message + " " + Format(donation, " ") + "."
'
    With w1.Selection
        .TypeParagraph
        .TypeParagraph
        .Font.Size = 12
        .Font.Name = "arial"
        .TypeText Text:=DonorName
        .TypeParagraph
        .TypeText Text:=txtAddress(0).Text
        .TypeParagraph
        .TypeText Text:=txtAddress(1).Text
        .TypeParagraph
        .TypeText Text:=CountyLine
        .TypeParagraph
        .InsertDateTime DateTimeFormat:="dddd, dd MMMM yyyy", _
            InsertAsField:=False
        .TypeParagraph
        .TypeParagraph
        .TypeText Text:=Salutation
        .TypeParagraph
        .TypeParagraph
        .TypeText Text:=Message
        .TypeParagraph
        .TypeParagraph
        .TypeText Text:="Yours Faithfully"
        .TypeParagraph
        .TypeParagraph
        .TypeParagraph
        .TypeParagraph
        .TypeParagraph
        .TypeParagraph
        .TypeText Text:="Vicky Jones"
    End With
End Sub

Private Sub CmdToWord_Click()
' Defines two objects that enable Word to be
' accessed and manipulated
    Set w1 = CreateObject("Word.Application")
' allows Word to be opened
    With w1
        .Visible = True
        .Application.WindowState = wdWindowStateMaximize
        Set d1 = .Documents.Add("advantage.dot")
' Blue party was created as a template file and stored in the directory
' C:\Program Files\Microsoft Office\Templates
' This opens a new document using that template
        Thankyou
' runs the routine entered in general section which
' copies the text from the box into the Word document
    End With
End Sub

Private Sub cmdExit_Click()
    End
End Sub