复制框时，Word不会保存

Question

我有一个VBA程序，可以使用大多数复制/粘贴和书签插入自动组装来自其他文档的Word文档。从其他文档复制后，一个模板将无法保存。这是错误的代码：

'get starting doc w macro (styletemplate)
Set mydoc = wrd.Documents.Open(strformattemplate, False, False) 
'this is the base doc with styles - this save works fine 
mydoc.SaveAs2 filename:=strNewName,FileFormat:=wdFormatXMLDocumentMacroEnabled

'here's our skeleton  this is what we want to copy in
Set skel = wrd.Documents.Open(skelpath)
Set rangetocopy = skel.Range(0, skel.Bookmarks("\endofdoc").End)
rangetocopy.copy ' copy to clipboard
'copy in the skeleton and close it
Set workingrange = mydoc.Range(0, mydoc.Bookmarks("\endofdoc").End)
workingrange.Paste
mydoc.Save  'here's where it's failing
skel.Close False

第二次保存失败。有一个无尽的弹出窗口。用户必须中止。我想强调一下，这段代码适用于所有其他模板。如果包含一个形状（标题的下划线框），它似乎会失败。像这样的框出现在每章的第一页。