Significant performance problem when duplicating or pasting shape

gmayor · #1 03-30-2015, 02:59 AM

Assuming there is only one table in the document, you could use mail merge processes to speed things up.

With the image already placed in the first cell add the following to duplicate it to the rest of the table. Even with a large table it is pretty well instantaneous.

Code:

Dim oDoc As Document
Dim oFld As field
    Set oDoc = ActiveDocument
    With oDoc.MailMerge
        .MainDocumentType = wdMailingLabels
        WordBasic.MailMergePropagateLabel
        .MainDocumentType = wdNotAMergeDocument
    End With
    For Each oFld In ActiveDocument.Tables(1).Range.Fields
        If oFld.Type = wdFieldNext Then oFld.Delete
    Next oFld

NobodysPerfect · #2 03-30-2015, 03:37 AM

Hi,

great idea - but ... I did not mention this in my OP because I didn't have a mail merge solution in my mind.

There is aleady one InlineShape in each table cell. The inserted Shape should be on top of the InlineShape. As I'm not a mail merge expert, I really don't know if, and if yes, how to realize that challange.

Sorry for not mentioning this earlier.

NP

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Performance problem ActiveX radio buttons	NobodysPerfect	Word VBA	8	05-31-2014 03:51 AM
Word 2000--Problem with format retention when pasting	JerryL	Word	2	01-05-2014 07:20 PM
Copy and pasting problem Word 2010	Sarah262	Word	3	08-16-2012 03:46 PM
Office '03 + '07-->Performance?	markg2	Office	1	08-04-2011 06:09 AM
Pasting problem	Alec	Word	1	11-09-2009 12:26 PM