录制了二行宏却不能用。请教哪里出了问题。

xzcdcak

如图，我有一个word文件，段前段后有很多的空格，我的操作是ctrl+a,全选后选行居中，这样段前段后的空格就都没有了。

我用鼠标操作没有问题，但是我录制了这段宏，如下：
Sub 宏1()
    Selection.WholeStory
    Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
End Sub

就这么个二行的宏却不工作。我不知道我哪里作错了，请高手指教。

zhanglei1371

sendkey方法了解下，发送^e

413191246se

* 张老师 好！——不知下面两句代码是不是你的原创，我觉得在各个版本 Word 中都很管用。
* 楼主 请测试：（全选——居中——两端对齐——删除了段落首尾空格）

1. Sub DeleteParagraphSpace()
   
2.     Selection.WholeStory
   
3.     CommandBars.FindControl(ID:=122).Execute
   
4.     CommandBars.FindControl(ID:=123).Execute
   
5. End Sub

复制代码

zhanglei1371

413191246se 发表于 2022-11-24 11:02
* 张老师 好！——不知下面两句代码是不是你的原创，我觉得在各个版本 Word 中都很管用。
* 楼主 请测试： ...

好像是的，在我发表的原创帖里收录着

xzcdcak

太感谢了。完美解决我的问题。

梧叶沙沙

413191246se 发表于 2022-11-24 11:02
* 张老师 好！——不知下面两句代码是不是你的原创，我觉得在各个版本 Word 中都很管用。
* 楼主 请测试： ...

请教一下，如何获取到按钮的id值呢？

wdpfox

word2019验证代码没有问题。

xzcdcak

wdpfox 发表于 2022-11-24 16:29
word2019验证代码没有问题。

运行是没有问题。可我是想通过这个，去除段开头和段结尾的空格，原来那个录制的作不到。回答问题的大神的那个能用。

413191246se

楼主，说明录制宏并非完美。有时，甚至录不上一句代码。