Re: [问题] selection.paste不能用?

楼主: aljinn (Smokeless Fire)   2019-03-05 18:39:36
※ 引述《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)
楼主: aljinn (Smokeless Fire)   2019-03-05 20:16:00
成功了 @@ 感谢soyoso大大 虽然问题点依旧不明 XDDD
作者: soyoso (我是耀宗)   2019-03-05 19:11:00
那如改以selection.range.copy的方式是否有机会达成呢如果还是不行的话,先宣告个变量(假设是r)dim r as rangeset r = selection.rangeselection.endkey ...selection.formattedtext = rselection.homekey ..这样就没使用到copy的部分了

Links booklink

Contact Us: admin [ a t ] ucptt.com