Excel调用wordVBA代码出错！！！

子小1995

我的问题描述：VBA代码写在word时，.HomeKey unit:=wdStory, Extend:=wdMove不报错。但是，由于实际应用中，我这里需要借助Excel调用word来完成整个代码的实现，这句话就出现了问题【因为我需要使用Excel中的个人工作簿的功能】。
我的分析：我个人觉得是wdstory和wdmove是wordVBA的语法样式，如果用Excel调用的话，就出现了语法上的问题。但具体是什么原因，目前还不清楚。


代码大致内容：
With Selection()
  .HomeKey unit:=wdStory, Extend:=wdMove         '这句报错了
  If .Find.Execute(findtext:="320", Forward:=True) Then
     .Expand wdParagraph
  End If
End With

TuskAi

在Excel里要把word专用的参数改写成数字格式
在word的立即窗口debug.print参数可以获取对应的数字

闻启学

wdStory ，wdMove          换成常量数字就行 ， 这个除非用前期绑定就无问题   Selection 这个也出现问题哦 这个要指定 是word，app 还是 Excel。app

子小1995

TuskAi 发表于 2022-12-13 13:25
在Excel里要把word专用的参数改写成数字格式
在word的立即窗口debug.print参数可以获取对应的数字

嗯嗯，非常感谢，很有帮助，已经解决。但是得和楼下那位的方法结合起来，就是selection必须指定为word.selection()，最终解决了。

子小1995

闻启学 发表于 2022-12-13 16:23
wdStory ，wdMove          换成常量数字就行 ， 这个除非用前期绑定就无问题   Selection 这个也出现问题 ...

感谢，已解决。