1

vb.netでVSTOWordアドインを作成して、画像を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 に答える