I wrote a macro that retrieves data from a database, populates a table using bookmarks and then copies this table and pastes it at the end of the document before moving to the second row of data. I am looking for improving the efficiency and performance of this macro. 1. Is there a better copy and paste algo for tables 2. can i clear the clipboard between each copy and paste. will it improve the performance. 3. any other suggestions Some pieces of the macro pasted below Set oWorkSpace = session.GetWorkSpace Set oQueryDef = oWorkSpace.GetQueryDef(strQueryName) ' REM execute the query Set oResultSet = currentsession.BuildResultSet(oQueryDef) oResultSet.Execute longNumColumns = oResultSet.GetNumberOfColumns ' no of columns ' Start populating the template table Row = 1 Status = oResultSet.MoveNext NumRows = 0 Do While Status = 1 'REm Go to the template table Selection.GoTo What:=wdGoToTable, Which:=wdGoToFirst, Count:=1, Name:="" Row = Row + 1 Dim strBookName As String For Column = 2 To longNumColumns 'REM Fill it in the bookmark strBookName = "field" & (Column - 1) ' field1, filed2 etc UpdateBookmark strBookName, CStr(oResultSet.GetColumnValue(Column)) Next 'REM Done with the row, Copy the table and paste it below Selection.Tables(1).Select Selection.Copy Selection.EndKey Unit:=wdStory Selection.InsertBreak Type:=wdPageBreak Selection.PasteAndFormat (wdPasteDefault) ' Move Next Status = oResultSet.MoveNext NumRows = NumRows + 1 Loop ' Clear the first table CleanAllBookMarks Exit Sub
