java word模板开发 word动态数据填入 word文本数据填入 doc模板开发 docx模板开发 有运行中项目 验证可行

 word的操作方式(docx),附核心java代码

在需要动态控制的区域,在window下面按:ctrl+F9,会生成的区域,然后选中区域,右键编辑域,弹出如下框框

 

 类别为邮件合并,区域为MergeField,然后再域名

中编写代码,比如动态文本值为:${(baseTotal)!},其中baseTotal为字段名,如下图,()!为判断非空新的异常处理,确定后会在word中显示如下

 

注意:如下代码中加粗的为核心关键代码

     @ApiOperation(value =

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 打赏
    打赏
  • 0
    评论
以下是使用VBA代码将Excel数据Word模板的基本步骤: 1. 打开Word模板文件并创建Word文档对象。 ```VBA Dim wordApp As Word.Application Dim wordDoc As Word.Document Set wordApp = New Word.Application Set wordDoc = wordApp.Documents.Open("C:\Template.docx") ``` 2. 在Word模板书签并保存。 在Word模板书签,书签将用于标识我们要数据的位置。例如,我们可以在Word模板名为"Name"和"Age"的两个书签。 ```VBA wordDoc.Bookmarks.Add "Name", wordDoc.Range(0, 0) wordDoc.Bookmarks.Add "Age", wordDoc.Range(0, 0) wordDoc.Save ``` 3. 打开Excel文件并读取数据。 ```VBA Dim excelApp As Excel.Application Dim excelWorkbook As Excel.Workbook Dim excelWorksheet As Excel.Worksheet Set excelApp = New Excel.Application Set excelWorkbook = excelApp.Workbooks.Open("C:\Data.xlsx") Set excelWorksheet = excelWorkbook.Worksheets("Sheet1") Dim name As String Dim age As Integer name = excelWorksheet.Range("A2").Value age = excelWorksheet.Range("B2").Value excelWorkbook.Close ``` 4. 在Word文档数据。 ```VBA wordDoc.Bookmarks("Name").Range.Text = name wordDoc.Bookmarks("Age").Range.Text = age ``` 5. 关闭Word文档和Excel应用程序并保存Word文档。 ```VBA wordDoc.Close SaveChanges:=True wordApp.Quit excelApp.Quit ``` 完整的VBA代码如下: ```VBA Sub FillWordTemplate() Dim wordApp As Word.Application Dim wordDoc As Word.Document Dim excelApp As Excel.Application Dim excelWorkbook As Excel.Workbook Dim excelWorksheet As Excel.Worksheet '打开Word模板文件 Set wordApp = New Word.Application Set wordDoc = wordApp.Documents.Open("C:\Template.docx") '在Word模板书签并保存 wordDoc.Bookmarks.Add "Name", wordDoc.Range(0, 0) wordDoc.Bookmarks.Add "Age", wordDoc.Range(0, 0) wordDoc.Save '打开Excel文件并读取数据 Set excelApp = New Excel.Application Set excelWorkbook = excelApp.Workbooks.Open("C:\Data.xlsx") Set excelWorksheet = excelWorkbook.Worksheets("Sheet1") Dim name As String Dim age As Integer name = excelWorksheet.Range("A2").Value age = excelWorksheet.Range("B2").Value excelWorkbook.Close '在Word文档数据 wordDoc.Bookmarks("Name").Range.Text = name wordDoc.Bookmarks("Age").Range.Text = age '关闭Word文档和Excel应用程序并保存Word文档 wordDoc.Close SaveChanges:=True wordApp.Quit excelApp.Quit End Sub ``` 以上代码仅供参考,具体实现可能需要根据具体情况进行调整。

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

长青风

赏一块,发大财!赏两块,惹人爱

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付:¥1
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值