[文件] 多個word連結同個excel

[Allenbootung (不痛)]

軟體:excel, word

版本:2010

各位版友好，如果word要連結excel裡的欄位時，最簡單的方法是先複製
excel儲存格，然後在word的貼上裡下拉：連結並合併格式設定。

貼上後按alt+f9可以看到
{ LINK Excel.Sheet.8 "I:\\work\\00index.xls" "取代資料!R6C5" \a \f 5 \h  \* MERGEFORMAT }

請問這段源碼除了從excel貼上，還有其他方法嗎？
直接在word裡打字會變成純文字。

原本還不知道連結並合併格式設定這個方法時，
我是在word裡的字串做記號然後用vba取代。

doc1.doc
----
#strA1#
#strA3#


doc2.doc
----
#strA1#
#strA2#

由於既然記號都已經做好了，現在我想把 #strA1# 取代為
{ LINK Excel.Sheet.8 "00index.xls" "取代資料!R1C5" \a \f 5 \h  \* MERGEFORMAT }

但是用vba跑過的結果是純文字，word裡沒有程式碼的效果。

-
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 114.26.236.117
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1501937604.A.7D6.html
※ 編輯: Allenbootung (114.26.236.117), 08/05/2017 21:23:17
→ soyoso: 其他方式想到是ctrl+f9，新增功能變數；或於插入→文字→
→ soyoso: 快速組件→功能變數方式新增
→ soyoso: 巨集方面可用fields
With myDoc.Content.Find
        myWord.Visible = True
            .Text = Cells(i, 2)
            .Replacement.Text = Cells(i, 4)
            .Forward = True
            .Wrap = wdFindContinue
            .MatchCase = False
            .MatchWholeWord = False
            .MatchByte = True
            .Execute Replace:=wdReplaceAll
        End With

我想是因為要取代的該是元件不是 .Replacement.Text
※ 編輯: Allenbootung (114.26.236.117), 08/07/2017 19:27:33