Quote:

---

Originally Posted by Crittar
As a suggestion:

Drive it from word, pick up the appropriate excel row and save the word doc, close the doc and start a new one picking up the next excel row.

---

Quote:

---

Originally Posted by Crittar

Code:

Sub Expenses()
'
' Expenses Macro
' Macro created 14/08/2003 by Chris Lawery
'
    Dim MyShortMonth, MyShtId, MyYear, MyShortDate

'  Define appropriate objects to access the sheet.
    Dim MyXl As Object, MyBook As Object, MySheet As Object, MyRange As Object
    
    Load UserForm2
    UserForm2.Show
    
    MyShortMonth = Left(MyMonth, 3)
    MyYear = Year(Now)
    If MyShortMonth = "Jan" Then
        MyYear = MyYear - 1
    End If
    
    MyShtId = MyShortMonth & " " & MyYear

' Open excel, error code is to handle already open or not.    
    On Error Resume Next
    Set MyXl = GetObject(, "Excel.Application")
    If Err = 429 Then
        Err = 0
        Set MyXl = CreateObject("Excel.Application")
    End If

' Open appropriate workbook and sheet
    Set MyBook = MyXl.Workbooks.Open("c:\data\excel\New Expenses.xls")
    Set MySheet = MyBook.Sheets(MyShtId)
    
' Select appropriate area of sheet, move to correct place in word document and copy from sheet to word.
    Set MyRange = MySheet.Range("C3")
    With MyRange
        .Select
        .Copy
    End With
    Selection.MoveDown Unit:=wdLine, Count:=9
    Selection.Paste
    Selection.Font.Size = 12

' Select appropriate area of sheet, move to appropriate area of document and copy from sheet to word.
    Set MyRange = MySheet.Range("C4")
    With MyRange
        .Select
        .Copy
    End With
    Selection.MoveDown Unit:=wdLine
    Selection.Paste
    Selection.Font.Size = 12

' Repeat the above select / copy as required.
 

' Finished with spreadsheet, close it.
    
    MyBook.Close
    MyXl.Quit

Hope this helps.

---