[Outlook 2007][Word 2007][VBA]Tekst van Word naar Outllook *

[Avar]

Ik probeer een macro te maken die de gebruiker een Word document laat kiezen en deze dan in een email antwoord plakt, zodat de diverse mensen op de support afdeling standaard antwoorden kunnen kiezen.

Hier een gedeelte van de macro:

code:

Dim WApp As New Word.Application
   If WApp.Dialogs(wdDialogFileOpen).Show = -1 Then
   WApp.ActiveDocument.Select
   WApp.Selection.Copy
   objsel.Paste
End if

Wat blijkt nu: bij grote Word bestanden of een tragere computer wordt niet het hele document gekopieerd maar ontbreken er stukken. Als ik een vertraging toevoeg tussen Wapp.Activedocument.Select en Wapp.Selection.Copy gaat het wel goed. Met vertraging bedoel ik dus een messagebox of een tijdloopje. Het is net alsof de macro door gaat zonder op die .Select te wachten.
Ook als ik daarna de inhoud van het Clipboard handmatig ergens in plak kan ik zien dat de kopie niet volledig is.

Ik snap het niet...