常用内置对话框参数解读

doitbest · 发表于 2015-8-4 17:26

Endlesswx 发表于 2015-8-3 17:30
非常想问老师，Word中也可以这样预设对话框参数吗？
我测试 Application.Dialogs(wdDialogFormatFont). ...

Public Sub abc()
With Application.Dialogs(wdDialogFormatFont)
.Font = "华文仿宋"
If .Show = -1 Then
MsgBox "你所选的文件名：" & .Font
End If
End With
End Sub

Endlesswx · 发表于 2015-8-5 08:56

doitbest 发表于 2015-8-4 17:26
Public Sub abc()
With Application.Dialogs(wdDialogFormatFont)
.Font = "华文仿宋"

谢谢LZ，学会怎么赋值了

其实我想预设参数的对话框是插入题注（wdDialogInsertCaption），想在show出插入题注对话框后按一下→方向键，主要是为了自动在编号与题注内容之间插入一个空格。但由于Dialogs.show立刻就返回值了，试过sendkeys不好使，而且好像wdDialogInsertCaption也没有题注文本的属性

我只能用插入后再修改的方式写了这样一个亡羊补牢型的http://blog.sina.com.cn/s/blog_51817ae50102w8mz.html

7176386 · 发表于 2016-1-15 14:39

感谢分享，很有帮助！

shery2010 · 发表于 2016-6-1 21:43

谢谢分享，收藏学习

龙城飞将III · 发表于 2016-9-16 22:17

哇塞，发现很多功能，直接调用对话框，对参数进行赋值，执行就完了。赞赞赞！

frankcui007 · 发表于 2016-9-22 14:09

这个真的有用呢

liaoliangbang · 发表于 2016-10-14 14:33

不错。学习！

ndyzx · 发表于 2016-10-14 22:02

doitbest 发表于 2014-5-7 15:59
1、“高级筛选”对话框application.Dialogs(xlDialogFilterAdvanced).Showarg1:=xlFilterInPlace,arg2:=act ...

谢谢来学习了，留痕便查。

hjwlouis · 发表于 2017-6-8 09:55

收藏！！！！！！

ruixizhao · 发表于 2018-4-8 10:45

我咋就下载不下来呢？进度条到67%就不动了

		自动登录	找回密码
密码			免费注册

[原创] 常用内置对话框参数解读