5

所以我有这个函数来生成和返回我的图像（.bmp 格式）。我想把它放到一个word文档中。我看了看，InlineShapes.AddPicture但它只需要一个string参数，这需要我物理保存图片，然后将图片的路径作为参数提供给 AddPicture，这是我不想要的。我想生成图片并直接存储它，而我需要一个带Image参数的方法。

PS创建Word文档，表格，决定将图片放入哪个单元格，所有这些都完成了，我只需要插入图片。

这是生成图片的代码，所以你可以看到我只是将它作为一个对象，但不要将它存储在物理上的任何地方。这是在 C# 中，但我想使用 Word 文档进行操作，我正在使用 VB.NET 编写。

Bitmap picture = new Bitmap(100, 100);

        // generates a QRcode image and returns it
        public Image generateQRcodeImage(string textValue)
        {
            QrEncoder encoder = new QrEncoder(ErrorCorrectionLevel.M);
            QrCode qrCode;
            encoder.TryEncode(textValue, out qrCode);

            using (Graphics graph = Graphics.FromImage(picture))
            {
                new GraphicsRenderer(new FixedCodeSize(100, QuietZoneModules.Two)).Draw(graph, qrCode.Matrix);
            }

            return picture;
        }
4

3 回答 3

4

如果您已经设置了 Word 文档的创建和打开，并且根据您提供的功能，我想您唯一要做的就是：

    Dim rng As Word.Range = oDoc.Range(int1, int2)

    Dim img As Image = qrGen.generateQRcodeImage("desiredInfoToEncloseInQRcode")
    Clipboard.SetImage(img)
    rng.Paste()

qrGen当然，实现该generateQRcodeImage()功能的类的对象在哪里。而且您还必须将此代码放在您想要在 Word 文档中排列的位置（表格/单元格/等）

于 2013-05-14T11:22:09.543 回答
2

此代码可帮助您通过 vb.net 将图片插入 ms 字：

Dim word_app As Word._Application = New  _
Word.ApplicationClass()

  ' Create the Word document.
Dim word_doc As Word._Document = _
word_app.Documents.Add()

Dim para As Word.Paragraph = word_doc.Paragraphs.Add()
para.Alignment = Word.WdParagraphAlignment.wdAlignParagraphCenter
para.Range.InlineShapes.AddPicture(YOURPATHPICTURE)
para.Range.InsertParagraphAfter()

并且不要忘记导入库。

Imports Microsoft.Office.Interop

祝你好运！

于 2014-05-14T03:33:51.347 回答
0

我使用以下变量：

Public oDoct As Microsoft.Office.Interop.Word.Document
Public oTable As Microsoft.Office.Interop.Word.Table

我所做的是这样的：

1) 我在 Form1 的 PictureBox (pict1) 中有我想要的图片/图像

2）由于我想把它放在一个表中，我创建了表

oDoct.Sections(1).Headers(1).Range.Bookmarks.Add("mHeader", )
oTable = oDoct.Tables.Add(oDoct.Sections(1).Headers(1).Range.Bookmarks.Item("mheader").Range,    2, 3)

请注意，表格将包含在标题中，并且我添加了一个书签（“mHeader”），但这不是必需的。我这样做是因为我希望我的图像作为标题。

3) 我在表格中为图片添加了一个书签

oTable.Cell(1, 1).Range.Bookmarks.Add("hPicture_c11")

4）然后将图片复制到剪贴板中

Clipboard.SetImage(Form1.pict1.Image)

5）最后将图片粘贴到表格内

oTable.Cell(1, 1).Range.Bookmarks.Item("hPicture_c11").Range.Paste()

“hPicture_c11”书签不是强制性的。如果您只想插入图片，请使用以下代码：

oDoct.Range.Bookmarks.Item("\endofdoc").Range.Paste()

最后一件事：检查图像的尺寸。即使它一旦被插入到文档中，它就可以被视为任何图像，如果它太大，你可能需要在 Word 中调整它的大小

于 2015-07-25T02:36:48.790 回答