Access 2013 VBA，无法使用 Access 2013 中的数据填写 Word 2013 表单
Access 2013 VBA,bad filling Word 2013 forms with data from Access 2013
我在使用 Access 2013 中的数据填写 Word 2013 表单时遇到问题。
参考文献：
Visual Basic for application
MS Access 15 Office Library
Ole automation
MS Access 15 database engine object
MS Word 15 Object Library
MS ActiveX data object multi-dimensional library 2.8
我的代码是：
Dim wordApp As Word.Application
Dim wordDoc As Word.Document
Set wordApp = New Word.Application
With wordApp
.Visible = True
Set wordDoc = .Documents.Open("C:\Template\Document.dotx", , False)
With wordDoc
.FormFields("NR").result = Me!NR
NR - 是标准数字格式，例如 1500.00
如果我在 Document.docx 中键入 1500.00 结果是 1500,00，但如果我键入 1500.80（点后的 00 除外），我将得到 15008,00。
打印值比键入值大十倍。
在区域设置中我设置了点分隔符，但在 Word 中我看到昏迷（但在 Access 2010 中有效）。
我发现了一个错误！
访问 VBA 代码没问题，但问题出在 Document.dotx 的内容上。我在 post 中写道，我在区域设置中设置了点分隔符，但在 Word 书签 "NR" 中我看到了昏迷。那是个问题。我更改了书签属性（数字格式从 0,00 到 0.00）并且一切正常。
很抱歉我自己回答了我的问题，但我希望这可以帮助其他人找到解决问题的方法。
我在使用 Access 2013 中的数据填写 Word 2013 表单时遇到问题。 参考文献：
Visual Basic for application
MS Access 15 Office Library
Ole automation
MS Access 15 database engine object
MS Word 15 Object Library
MS ActiveX data object multi-dimensional library 2.8
我的代码是：
Dim wordApp As Word.Application
Dim wordDoc As Word.Document
Set wordApp = New Word.Application
With wordApp
.Visible = True
Set wordDoc = .Documents.Open("C:\Template\Document.dotx", , False)
With wordDoc
.FormFields("NR").result = Me!NR
NR - 是标准数字格式，例如 1500.00
如果我在 Document.docx 中键入 1500.00 结果是 1500,00，但如果我键入 1500.80（点后的 00 除外），我将得到 15008,00。 打印值比键入值大十倍。
在区域设置中我设置了点分隔符，但在 Word 中我看到昏迷（但在 Access 2010 中有效）。
我发现了一个错误！ 访问 VBA 代码没问题，但问题出在 Document.dotx 的内容上。我在 post 中写道，我在区域设置中设置了点分隔符，但在 Word 书签 "NR" 中我看到了昏迷。那是个问题。我更改了书签属性（数字格式从 0,00 到 0.00）并且一切正常。 很抱歉我自己回答了我的问题，但我希望这可以帮助其他人找到解决问题的方法。