如何使用VBA将Microsoft Word公式导入Microsoft Excel？

我一直在寻找方法将图片和表格以及其他东西从Microsoft Word 2010移动到Microsoft Excel 2010。我想找到的方法是用OMath对象或等式来做同样的事情。我想尽可能地保持方程的原始形式，所以如果这意味着将OMath对象转换为图片（InlineShape），那么这就是我想要做的。如何使用VBA将Microsoft Word公式导入Microsoft Excel？

这里是方程式的样子在Word中，我想导入使用到Excel VBA： enter image description here

现在，我只能够传输的这个Range.Text表示对象，这使得这个公式是这样的：

enter image description here

我发现，我可以选择这个对象，做一个选择的副本。有没有办法确定这个选择的尺寸？我想将其粘贴到已调整大小以适合等式的特定单元格中。我遍历Word文档中的段落，每个段落被称为DocPara，当我遇到一个方程式，我选择它是这样的：

DocPara.Range.OMaths(1).Range.Select 
With Selection 
    .CopyAsPicture 
    oWB.ActiveSheet.Paste Destination:=oWB.ActiveSheet.Cells(headingCount, 3) 
End With

与我上面那是什么画面浆中的问题在我想要的位置，但比它坐的行大，如果我调整行的大小，图片会随行大小垂直线性延伸。在粘贴之前，我需要调整粘贴该图像的行的大小。如何访问我刚放在剪贴板上的图片的大小？

有没有人有一些想法？我真的很感激它:)

来源

2013-12-23 Jake Smith

看看[此]（http://office.microsoft.com/en-us/excel-help/use-equation -editor-in-excel-HP010215799.aspx） – Justin

谢谢，我会一直关注的。但是，我试图用一个已经存在于Word文档中的公式来完成这个工作。我希望能够从单词中提取方程式，并将其放在excel中。 –

粘贴图片后，将其.Placement属性设置为xlMove（移动单元格，但不调整大小），然后再调整行的大小。这可以防止图片大小调整。

这等效于设置画面格式属性

enter image description here

来源

2013-12-23 22:53:47

如何使用VBA将Microsoft Word公式导入Microsoft Excel？

回答

相关问题