Word VBA 运行时错误 4605 此命令无效，但逐步运行可以？

Question

Word VBA，代码如下：Sub test2() Dim fd As FileDialog, fn, doc As Document, dn$ Set fd = Application.FileDialog(3) With fd .AllowMultiSelect = True .Show End With For Each fn In fd.SelectedItems Set doc = Documents.Open(fn) With doc .Range.Copy dn = .Name .Close End With Selection.Paste Selection.TypeText "--------------" & dn & Chr(13) NextEnd Sub首先，用的是office 365，Win10系统。代码本身应该是没错的，在部分电脑上可以顺利运行。但是在有些电脑上运行会报错：4605，详情见图片。第二，在无法运行的电脑上，如果逐步执行代码，也是可以的，但是连续运行就会报错。第三，分析后发现问题出现在 Selection.Paste 这里，剪贴板复制到了需要复制的内容，但是如果右键点击会发现，粘贴选项是灰色的。 问题就出现在这里，求教各位大侠，该如何解决 ？

Answer 1

剪贴板的内容经常可能冲突，别的应用清空了剪贴板，自然粘贴就灰色的，粘贴的代码就会报错。追问

那该如何解决呢 ？ 谢谢 ！

Answer 2

应该是版本问题，部分电脑能运行是由于版本和你一样，一些不能运行，应该是版本过低。比如我的EXCEL2003版本里就没有DATEIF只有DATE360