作者Allenbootung (不痛)
看板Office
標題[文件] 多個word連結同個excel
時間Sat Aug 5 20:53:17 2017
軟體: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://webptt.com/m.aspx?n=bbs/Office/M.1501937604.A.7D6.html
※ 編輯: Allenbootung (114.26.236.117), 08/05/2017 21:23:17
1F：→ soyoso: 其他方式想到是ctrl+f9，新增功能變數；或於插入→文字→ 08/05 22:59
2F：→ soyoso: 快速組件→功能變數方式新增 08/05 23:00
3F：→ soyoso: 巨集方面可用fields 08/05 23:02
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