[文件] 多個word連結同個excel
軟體: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
→
08/05 22:59, , 1F
08/05 22:59, 1F
→
08/05 23:00, , 2F
08/05 23:00, 2F
→
08/05 23:02, , 3F
08/05 23:02, 3F
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
Office 近期熱門文章
PTT數位生活區 即時熱門文章
