2017-04-24 47 views
1

有沒有辦法以編程方式攻擊VBA (Access)中的文本?如何在VBA中刪除文本 - 以編程方式?

例如;當我點擊一個按鈕,我想改變Hello World!H̶e̶l̶l̶o̶ ̶w̶o̶r̶l̶d̶!̶

感謝


編輯#1:就意識到,沒有刪除線的可能性(據我所知)在VBA中,所以這個問題得到了回答。對於那些想知道是否有可能的人來說,這很可能不是。

+0

這是可能的,你應該提及哪一個。 Excel/Word /等。在Excel中,嘗試'ActiveCell.Font.Strikethrough = True' – PatricK

+0

@PatricK啊,對不起。我的意思是Visual Basic for Applications(Access) – Paramone

+0

沒有在Access VBA上工作,從[Acces MSDN]開始(https://msdn.microsoft.com/en-us/library/office/ff192120.aspx) – PatricK

回答

2

發現這個雖然谷歌,荷蘭國際集團爲同一個問題:

  1. 創建兩個文本框命名txtTexttxtOverlay
  2. 通過代碼或手動使這兩個文本框的大小完全相同。
  3. txtOverlay正好置於txtText之上,再次通過代碼或 手動。
  4. 運行下面的代碼酌情:

    Const conTransparent = 0 
    
    'Should be a Fixed Width Font 
    Me![txtText].FontName = "Courier New" 
    Me![txtText].FontSize = 12 
    Me![txtText] = "Your text" 
    
    Me![txtOverlay].FontName = "Courier New" 
    Me![txtOverlay].FontSize = 12 
    Me![txtOverlay].BackStyle = conTransparent 
    Me![txtOverlay] = String(Len(Me![txtText]), "-") 
    

幸得誰與它想出的傢伙: https://bytes.com/topic/access/answers/722250-strikethrough-text

希望它能幫助!

+0

哈哈哈哈!哦,哇,這很美。非常感謝! – Paramone

相關問題