2012-02-10 43 views
1

根據複選框是否被點擊,我想要一個MS Word 2010文檔,其中有一個複選框(ckeckable)和一個顯示不同文本的文本框(textfield)。在Word 2010中修改文本框的複選框

我試圖尋找它,但不知所有的建議並不意味着作爲複選框問題的解決方案......

我倒覺得解決方案應該在Visual Basic中使用?

回答

2

這樣的事情?

Private Sub CheckBox1_Change() 
    If CheckBox1.Value = True Then 
     TextBox1.Text = "Checked!" 
    Else 
     TextBox1.Text = "Unchecked." 
    End If 
End Sub 

這裏假設你有一個名爲CheckBox1複選框,並呼籲TextBox1一個文本框。上面的代碼放在ThisDocument模塊中。

結果看起來像這樣enter image description here和這個enter image description here

編輯哎呀,我在Excel中製作了這些圖片......哦,他們在Word中看起來幾乎完全相同。

編輯您現在已經改變了需求,並希望當複選框未選中時文本框「隱藏」。有沒有正式的方式來「隱藏」的文本框,但是可以將其刪除可見的特徵,即文本包含還有「沉沒的」特殊效果,使得它與背景無法分辨:

Private Sub CheckBox1_Change() 
    If CheckBox1.Value = True Then 
     TextBox1.Text = "Checked!" 
     TextBox1.SpecialEffect = fmSpecialEffectSunken 
    Else 
     TextBox1.Text = "" 
     TextBox1.SpecialEffect = fmSpecialEffectFlat 
     'Textbox is now "invisible" 
    End If 
End Sub 
+0

是的,類似的東西,但是當我想要打印時,盒子仍然在紙上留下一個空白空間的缺口 - 它可以通過一個「不活動時隱藏的盒子」來解決嗎?或類似的東西? – Nowacki 2012-02-10 13:48:49

+0

剛剛測試過它,它打印對我來說很好...複選框打印?順便說一句如果你覺得這個答案有用,那麼請記住點擊左邊的複選標記來接受它。 – 2012-02-10 14:34:30

+0

嗨,讓弗朗西斯,我希望當複選框未被標記並且在檢查時可見時,文本框被隱藏,你知道該怎麼做嗎?如果是這樣,我會很樂意回答botton :-) – Nowacki 2012-02-10 22:32:01