Re: [問題] selection.paste不能用？

[aljinn (Smokeless Fire)]

※ 引述《aljinn (Smokeless Fire)》之銘言：
: (若是和其他不同軟體互動之問題 請記得一併填寫)
: 軟體:Office 365 Word
: 這問題應該很弱…不過我不會寫程式只好來求教 XD
: 這麼簡單的巨集
: Selection.Copy
: Selection.EndKey Unit:=wdStory
: Selection.PasteAndFormat (wdFormatOriginalFormatting)
: Selection.HomeKey Unit:=wdStory
: 但是第三行Selection.Paste會被說錯誤4605「此指令未提供」是怎麼回事？

經過soyoso大大回應我又查詢和測試了一下
相關討論很少，但又看到一兩篇相同/類似症狀的
官方給的建議幾乎都沒用(測不出同樣情況、認定是其他軟體干擾等等)
有人說什麼也沒做後來忽然就又能用了，原因依舊不明

但我自己試一下發現很奇怪
如果把第一句Selection.Copy拿掉，自己先copy好再執行後面指令就可以
粗略實驗幾次，感覺似乎是Selection.Copy和Paste系列全部指令會衝突？
這應該不是原本就存在的邏輯？而且以前不會啊(至少我改用365之前沒遇到過)

除了想再問問有沒有人知道原因
也想請教如果無法直接解決的話…有沒有繞過的辦法？
例如把Selection改成別的expression？(我其實完全不會VBA  Orz)

--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 27.242.62.74
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1551782379.A.D6E.html
※ 編輯: aljinn (27.242.62.74), 03/05/2019 18:39:59
→ soyoso: 那如改以selection.range.copy的方式是否有機會達成呢
→ soyoso: 如果還是不行的話，先宣告個變數(假設是r)
→ soyoso: dim r as range
→ soyoso: set r = selection.range
→ soyoso: selection.endkey ...
→ soyoso: selection.formattedtext = r
→ soyoso: selection.homekey ..
→ soyoso: 這樣就沒使用到copy的部分了
→ aljinn: 成功了 @@ 感謝soyoso大大 雖然問題點依舊不明 XDDD