EXCEL VBA代入WORD檔裡面

LITTLEFAT7048

各位前輩您好：

小弟最近在測試EXCEL VBA新增一個WORD之後（是用自訂表單再增加BUTTON的方式），
要把EXCEL的文字代入新增的WORD檔裡，
希望新增WORD的VBA和代入的文字的VBA是分開來的BUTTON，所以簡易的測試如下：
按Button1的時候沒問題。
但是剛開始按Button2的時候，如果沒有打前面的DIM那兩行，就會出現此處需要物件。
但是加了前面2行，第3行會出現：
「沒有設定物件變數或 with 區塊變數」
可以請前輩指導一下嗎？

如果是把文字直接打在CreateWD的SUB裡面，基本上沒什麼問題。
不過因為輸入的文字不定（有可能是Sheet1，有可能是Sheet2裡面的文字）
，所以才希望用代入的方式另外再做一個Button。

還望前輩有空時能指點小弟一番，謝謝各位前輩！

1. Private Sub CommandButton1_Click()
   
2. Call CreateWD
   
3. End Sub

複製代碼

1. Private Sub CommandButton2_Click()
   
2. Dim wordapp As Word.Application
   
3. Set wordapp = CreateObject("word.application")
   
4. wordapp.Selection.TypeText "test"
   
5. End Sub

複製代碼

1. Private Sub CreateWD()
   
2. Dim wordapp As Word.Application
   
3. Set wordapp = CreateObject("word.application")
   
4. wordapp.Visible = True
   
5. wordapp.Documents.Add
   
6. End Sub

複製代碼

nolookyou

回復 1# LITTLEFAT7048


    版大好，
    可以附圖並舉例說明一下嗎?
    這樣更具體清楚之外，
    也比較方便站上大神幫你快速解答喔^^

LITTLEFAT7048

回復 2# nolookyou

下載 (50.98 KB)
截圖

2018-5-22 15:56

新增WORD的BUTTON點下去之後會多一個WORD新檔，
因為新增的WORD檔原本會有表格（現在截圖沒有，因為測試用），
小弟希望點下面的代入資料，
會將工作表1的A1~A4欄代入進去，
不過未來的想法是可能會一直增加，
所以到時後代入資料會變成可以用選的（目前的想法是要用INPUTBOX）去輸入想要的資料，
例如：A欄就輸入1，B欄就輸入2…以此類推。
所以才會希望一個BUTTON是新增WORD檔的表格，
另外一個BUTTON就是將EXCEL 的文字資料代入新增的那個WORD檔裡，
請問這樣前輩看得懂嗎？QQ

nolookyou

回復 3# LITTLEFAT7048


    假如改成：一個按鈕按下去
   完成：
   1.開新的WORD檔
   2.將指定的EXCEL欄位資料，寫到WORD裡面

    這樣比較方便，版大這樣OK嗎?

LITTLEFAT7048

回復  LITTLEFAT7048


    假如改成：一個按鈕按下去
   完成：
   1.開新的WORD檔
   2.將指定的E ...
nolookyou 發表於 2018-5-22 17:18

前輩您建議的小弟有試過簡單的，基本上沒有問題。
不過當初因為畫表格的程式碼太過冗長，所以才會想說獨立出來一個SUB，
但是獨立出來之後才發現有這種問題因而上網尋求有經驗的前輩指導，
小弟發現好像是因為如果換個SUB，
那原本使用中的WORD就不認識了XD...
可能SUB只認識他自己新增的WORD...