Вставить изображение WMF в надстройку VSTO для Word (выбор текущего документа)

Я создаю надстройку VSTO Word в vb.net для вставки изображений в виде метафайлов Windows (а не расширенных метафайлов, как по умолчанию в Word 2010). Я делал это раньше в VBA с помощью кода:

Selection.PasteSpecial datatype:=wdPasteMetafilePicture

Я ищу ресурсы и помощь по

  1. Получение местоположения курсора в документе Word (выделение)
  2. Проверьте, относится ли изображение к определенному типу (в данном случае WMF).
  3. Вставить изображение в документ при выделении

Мы будем благодарны за любую помощь / ссылки, которые вы можете предоставить!

---РЕДАКТИРОВАТЬ---

Мне удалось успешно вставить изображение метафайла Windows, но я не уверен, как выбрать текущий документ. Я могу создать новый объект приложения Word с новым документом, а затем вставить туда изображение, но я не могу выбрать уже открытый экземпляр слова. См. Код ниже (обратите внимание, что я безуспешно пробовал 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

vb.net add-in paste ms-word vsto
person jungliaadmi    schedule 20.08.2012    source источник

Ответы (1)


arrow_upward
0
arrow_downward

Объявление 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
person jungliaadmi    schedule 23.08.2012