java - 在Java中将图像插入到word文档中

Question

有人能给我指明正确的方向，告诉我如何用 Java 将图像插入到 word 文档中吗？

Answer 1

只是一个想法:

首先需要下载WordAPI，可以下载权here .要用 JAVA 创建 word 文档，有一个类可以满足您的所有需求。该类称为 WordProcessing .

下面是该类中实现的方法的简短预览:

• createNewDocumentFromTemplate(String templateName)
• createNewDocumentFromTemplateToSelectByUser()
• setNoteNotMatchingBookmarks(boolean noteNotMatchingBookmarks)
• typeTextAtBookmark(字符串书签，字符串 textToType)
• typeTextAtBookmark(字符串书签，String[] linesToType)
• 更改文档目录(字符串文档目录)
• saveDocumentAs(字符串文件名)
• saveDocumentAsAndClose(字符串文件名)
• 关闭文档()
• 打印并忘记()
• printToPrinterToSelectByUserAndForget()
• printAndForget(字符串打印机名称)
• executeMacro(String macroName) <---- 对你来说很有趣
• 退出应用程序()
• 执行()

如您所见，有许多有用的功能可用于创建您的文档。

现在您可以通过调用 executeMacro 函数插入图像。

宏看起来像这样:

Option Explicit

Sub InsertPicture()

   Dim sPath As String
   Dim sBildPfad As String
   Dim lRes As Long

   'The path of your picture
   sBildPfad = "C:\temp"

   'remember the current path of the picture
   sPath = Options.DefaultFilePath(Path:=wdPicturesPath)

   'changing the path
   Options.DefaultFilePath(Path:=wdPicturesPath) = sBildPfad

   'open dialog
   lRes = Application.Dialogs(wdDialogInsertPicture).Show

   'reset path
   Options.DefaultFilePath(Path:=wdPicturesPath) = sPath

   If lRes <> 0 And ActiveDocument.InlineShapes.Count > 0 Then
      'if inserted, changing the size
      Call PicSize(ActiveDocument.InlineShapes(ActiveDocument.InlineShapes.Count))
   End If

End Sub

Sub PicSize(oPic As InlineShape)
   Dim iScale As Single
   Dim iWidth As Single

   iWidth = 200 ' (pixel)

   oPic.LockAspectRatio = msoTrue
   ' scaling
   iScale = (iWidth / oPic.Width) * 100
   oPic.ScaleWidth = iScale
   oPic.ScaleHeight = iScale
End Sub