☰

wdWord 和 wdExtend 命令在 Excel 宏中不起作用

tag-icon • tag-icon microsoft-excel microsoft-word vba
wdWord 和 wdExtend 命令在 Excel 宏中不起作用

我最近一直在尝试创建一个宏来自动从 Word 文档中抓取数据并将其放入 Excel 表中，但遇到了一点问题。在让宏找到我要查找的特定数据后，我需要它先选择整个单词，然后再将其传输过去。问题是我从录制的 Word 宏中抓取的命令似乎无法正常工作。

Excel 似乎将 wdWord 和 wdExtend 解释为未声明的变量，但我不确定如何让它们像在 Word 中那样运行。

任何帮助都将不胜感激。谢谢。

        WApp.Selection.Find.ClearFormatting
        WApp.Selection.Find.Execute "Crew Lead"
        WApp.Selection.MoveDown Unit:=5, Count:=1
        WApp.Selection.MoveRight Unit:=wdWord, Count:=1
        WApp.Selection.MoveLeft Unit:=wdWord, Count:=1, Extend:=wdExtend```

答案1

明确显示枚举类型：

WApp.Selection.MoveLeft Unit:=WdUnits.wdWord, Count:=1, Extend:=WdMovementType.wdExtend

或者

您可以使用这些枚举的值。wdWord 的值为 2（请参阅WdUnits 枚举（Word））

Name          Value         Description
wdWord        2             A word

而 wdExtend 的值为 1WdMovementType 枚举（Word）

Name          Value         Description
wdExtend      1             The end of the selection is extended to the end of the specified unit.

您的代码将是：

WApp.Selection.MoveLeft Unit:=2, Count:=1, Extend:=1

相关内容