1

我正在 vb.net 中创建一个 VSTO Word 加载项,以将图像粘贴为 Windows 元文件(不是 Word 2010 中默认的增强元文件)。我之前在 VBA 中使用以下代码完成了此操作:

Selection.PasteSpecial datatype:=wdPasteMetafilePicture

我正在寻找资源和帮助

  1. 获取光标在Word文档中的位置(选择)
  2. 检查图像是否属于特定类型(在本例中为 WMF)
  3. 将图像粘贴到文档的选择处

您可以提供的任何帮助/链接将不胜感激!

- -编辑 - -

我已经能够成功粘贴 Windows 图元文件图像,但我不确定如何选择当前文档。我可以使用新文档创建一个新的单词应用程序对象,然后将图像粘贴到那里,但我似乎无法选择已经打开的单词实例。请参阅下面的代码(请注意,我尝试过 oWord = GetObject(, "Word.Application") 没有成功)

    Dim oWord As Word.Application
    Dim oDoc As Word.Document
    Dim objDataTypeMetafile As New Object
    objDataTypeMetafile = Word.WdPasteDataType.wdPasteMetafilePicture

    oWord = CreateObject("Word.Application")
    oWord.Visible = True
    oDoc = oWord.Documents.Add

    oWord.Selection.PasteSpecial(, , , , objDataTypeMetafile, , )
    oWord = Nothing
    oDoc = Nothing
4

1 回答 1

0

将 oWord 声明为 Glocals.ThisAddIn.Application 是诀窍。现在完美运行。

    Dim oWord As Word.Application = Globals.ThisAddIn.Application
    Dim objDataTypeMetafile As New Object
    objDataTypeMetafile = Word.WdPasteDataType.wdPasteMetafilePicture

    oWord.Visible = True
    oWord.Selection.PasteSpecial(, , , , objDataTypeMetafile, , )
    oWord = Nothing
于 2012-08-23T13:30:33.780 回答