Manual update for 'Excel to Word' table

Hi,

I am trying to create a macro to copy an Excel table into a Word document.
The macro need to perform the following three steps. I am stuck with the
third step. It is also not possible to record a macro for this step. Can you
please help me with that?

1. Paste the Excel table in the clipboard at the cursor location in the word
document. (Pastespecial)
2. Format the table
3. Change the update option to ‘Manual Update’ ( this can be done manually as
follows: Edit -- links-- Manual Update )

My code:

...

Selection.PasteSpecial Link:=True, DataType:=wdPasteHTML    '  paste table
into Word

Dim tbl As Table

For Each tbl In Selection.Tables
  
  tbl.Rows.HeightRule = wdRowHeightAuto
  tbl.Rows.Height = InchesToPoints(0)                 ' format the table
  tbl.AutoFitBehavior (wdAutoFitWindow)
  
  Next tbl

--------------------------------------------- ‘ the part after this is not
working.
Dim alf As Shape
For Each alf In ActiveDocument.Shapes
If alf.Type = msoLinkedOLEObject Then
alf.LinkFormat.AutoUpdate = False
End If
Next

Thanks,

MG.

--
Message posted via http://www.officekb.com