Hi All,

I am attempting to convert all tables in a document to images, the code seems to work fine when the tables\pages are in portrait orientation. The issue of bottom rows being missing presents itself when landscape orientation has been applied.

There is a prepping process that unmerges cells and splits tables per individual page, where appropriate.

I have attempted many fix options, all to no avail. Code used below.

Sub ConvertTablesToImages(ByVal currentDoc As Word.Document)


     Dim tbl As Table, rng As Range, i As Integer
     Dim tWidth As Long, tHeight As Long
    
    For i = currentDoc.Tables.Count To 1 Step -1
        Set tbl = currentDoc.Tables(i)
        tbl.Select
        Set rng = tbl.Range
        'Get table width prior to resetting
        'tWidth = ReturnTableWidth(tbl)
        'tHeight = ReturnTableHeight(tbl)
        tbl.PreferredWidth = 0
        tbl.Range.CopyAsPicture
        
        rng.Collapse Direction:=wdCollapseStart
        'rng.Collapse Direction:=wdCollapseEnd
        
        tbl.Delete
        rng.PasteSpecial DataType:=wdPasteEnhancedMetafile
     
        'rng.ShapeRange(1).LockAspectRatio = msoFalse
        rng.ShapeRange(1).ConvertToInlineShape
    
        
    Next
End Sub
any help appreciated, tearing my hair out with this one.

Thanks

Gordon