Save email as PDF in outlook, and edit document in word

[rm7885]

I changed the code to read

For Each oShape In oRng.InlineShapes
        oShape.LockAspectRatio = msoTrue
        If oShape.Width > wdApp.InchesToPoints(6.5) Then
            oShape.Width = wdApp.InchesToPoints(6.5)
        End If
    Next oShape

But the code still fails at the same line.