访问2013 VBA,使用Access 2013中的数据填写Word 2013表单

时间:2015-09-15 22:14:21

标签: vba ms-word access-vba export-to-word

我在使用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中它起作用了。)

1 个答案:

答案 0 :(得分:0)

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