根據 Access (2013) 中的布林值將自動文字（或 Quickpart）插入 Word (2013)

Question

在網路上的任何地方都沒有找到任何關於此的資訊（至少是任何有效的資訊——稍後會詳細介紹）。

我想做的是，按下我在 Access Form 中建立的按鈕，Word 打開一個 docx 並根據中的幾個 TRUE/FALSE 複選框填充某些 rtf 段落（在某些點）目前在存取表中打開的記錄。

用於將值傳遞到 Word docx 的存取程式碼：

函數 OpenWord(conPath As String)

將 appword 調暗為 Word.Application

昏暗的文檔作為 Word.Document

出錯時繼續下一步

錯誤清除

設定 appword = GetObject(, "word.application")

如果 Err.Number <> 0 那麼

設定 appword = New Word.Application

appword.Visible = True

萬一

設定 doc = appword.Documents.Open(conPath, , True)

與文件

.FormFields("TextName").Result = Me.Name

.FormFields("TextAnotherName").Result = Me.AnotherName

.FormFields("TextBoolean1").Result = Me.Boolean1

.FormFields("TextBoolean2").Result = Me.Boolean2

.FormFields("TextBoolean3").Result = Me.Boolean3

結束於

appword.ActiveWindow.View.Type = wdPrintView

appword.Visible = True

應用程式字.激活

設定文檔=無

設定應用程式字=無

上面的方法非常適合透過「開發人員」>「舊版」>「文字表單欄位」將名稱傳遞到 Word docx。布林值也會顯示（即：-1 表示 TRUE，0 表示 FALSE）。我想做的是：

IF {TextBoolean1} = "0" "{ AUTOTEXT someparagraph}" ""

這個網路建議不起作用。

總結一下：讓 Word 2013 根據從 Access 傳入的布林值在文件中的預定義位置插入預定義段落（自動文字或快速元件建構塊）需要什麼？ （有什麼方法可以做到這一點？）

謝謝你們的善意幫助——這讓我困惑了一個星期，嘗試了各種無效的途徑，

難住了

Answer 1

首先，我認為您可以透過使用 Access 資料庫中的郵件合併來簡化巨集中的大量程式碼，然後透過巨集來進行操作。

此處顯示的 IF 欄位的欄位代碼應該可以使用。透過點擊CTRL+F9而不僅僅是常規括號，確保用特殊欄位括號包圍程式碼。