用于删除单词的VBA代码

我在功能区上保留了一个“删除word”按钮，这是我多年来在word的每个副本上创建的一个小而简单的宏。现在我有了word 2013，我做到了：

CTRL-ALT-R，M（录制宏）

选择“按钮”

做所有正确的事情来选择一个小图片并将其放在功能区上，然后单击“确定”

F8，F8（选择当前单词）

删除

CTRL-ALT-R（停止录制宏）

---

很简单，对吧？那为什么这个该死的宏只删除一个字符呢？

它对我来说就像广告中说的那样。我怀疑你按F8键是为了凑在一起，但它错过了第二个。张贴它记录的代码，或者让它看起来像这样：

Selection.Extend 'turn on extend mode
Selection.Extend 'extend to the current word
Selection.Delete Unit:=wdCharacter, Count:=1

---

它像广告上说的那样适合我。我怀疑你按F8键是为了凑在一起，但它错过了第二个。张贴它记录的代码，或者让它看起来像这样：

Selection.Extend 'turn on extend mode
Selection.Extend 'extend to the current word
Selection.Delete Unit:=wdCharacter, Count:=1