Duplicate a Shape in Word 2013 from Access 2013 error

Question

Error occurs on With oshp.duplicate  line.  From Access 2013 vba need to duplicate a shape in a Word 2013 document. 
In a simple test document the With oshp.duplicate line works.  In the actual document that has been working fine using Office 2010 it causes an error on that line.
Public Function SpecialTable_testDup()
Dim shp As Word.Shape
Dim oshp As Word.Shape
Dim oshpRng As Word.shaperange
Dim oshpcopy As Word.Shape
Dim shpnum As Long
Dim shptop As Long
Dim shpleft As Long
Dim shpID As Integer
Dim i As Integer
Dim ShapeIndex As Integer
Dim mydoc As Word.Document
Set mydoc = ActiveDocument
mydoc.Activate
'activate for good measure
i = 1
For Each shp In mydoc.Shapes           'kk
    If shp.Title = "chtGeoPieQ" Or shp.Title = "chtSegPiesQ" Then
        ShapeIndex = i
        shptop = shp.top
        shpleft = 0
        shpnum = shp.ID
        Debug.Print "mydoc.Shapes(i).ID = " & mydoc.Shapes(i).ID
        Exit For
    End If
    i = i + 1
Next shp
Set oshp = mydoc.Shapes(ShapeIndex)
    With oshp
        .top = shptop
        .Left = shpleft
        shpID = oshp.ID
        Debug.Print "oshp.name = " & oshp.name
   End With
With oshp.Duplicate        'ERROR
    .name = "newshape1"
    .top = 200
    .Left = 100
    Debug.Print "mydoc.Shapes(newshape1).ID  = " & mydoc.Shapes("newshape1").ID
End With
End Function
Kim Khan

Answer 1

Error occurs on
With oshp.duplicate  line.  From Access 2013 vba need to duplicate a (pie chart) shape in a Word 2013 document.  Also I
tried  Set oshpcopy = oshp.Duplicate line and received the same error that crashes Word 2013.
Run-time error -2147023170.  Automation error.  The remote procedure call failed.
Can I send the Word 2013 file via email to you?  Are there any none bugs regarding the duplicate command in Office 2013?
Code starts:___________________________________
Public Function testDup()
Dim shp As Word.Shape
Dim oshp As Word.Shape
Dim oshpRng As Word.shaperange
Dim oshpcopy As Word.Shape
Dim shpnum As Long
Dim shptop As Long
Dim shpleft As Long
Dim shpID As Integer
Dim i As Integer
Dim ShapeIndex As Integer
Dim mydoc As Word.Document
Set mydoc = ActiveDocument
mydoc.Activate
 'activate for good measure
ShapeIndex = 1
i = 1
For Each shp In mydoc.Shapes
If shp.Title = "chtPieA" Or shp.Title = "chtPieB" Then
ShapeIndex = i
shptop = shp.top
shpleft = 0
shpnum = shp.ID
Debug.Print "mydoc.Shapes(i).ID = " & mydoc.Shapes(i).ID
Exit For
End If
i = i + 1
Next shp
Set oshp = mydoc.Shapes(ShapeIndex)
With oshp
.top = shptop
.Left = shpleft
shpID = oshp.ID
Debug.Print "oshp.name = " & oshp.name
End With
Set oshpcopy = oshp.Duplicate 'error
With oshpcopy
.name = "newshape2"
.top = 200
.Left = 100
Debug.Print "mydoc.Shapes(newshape1).ID = " & mydoc.Shapes("newshape1").ID
End With
With oshp.Duplicate 'ERROR
.name = "newshape1"
.top = 200
.Left = 100
Debug.Print "mydoc.Shapes(newshape1).ID = " & mydoc.Shapes("newshape1").ID
End With
Set oshp = Nothing
Set oshpcopy = Nothing
End Function
Code ends:___________________________________
Kim Khan