我在使用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中它起作用了。)
答案 0 :(得分:0)
我发现了一个错误! 访问VBA代码是可以的,但问题是Document.dotx的内容。我在帖子中写道,我在区域设置中设置了点分隔符,但在Word书签" NR"我看到了昏迷。这是个问题。我更改了书签属性(数字格式从0,00到0.00),并且每件事都很有效。 对不起,我回答了自己的问题,但我希望这可以帮助其他人找到问题的解决方案。