如何控制这种对话框

sunjet

我需要调用Word样式里的,字体对话框Dialogs(wdDialogFormatDefineStyleFont)并返回设置的值,我该怎么办?要在调用前把原来的值取到Dialogs内.比如修改设置"标题 5"或者"页眉"

sunjet

为什么没有人回答?

sunjet

没有人能帮我嘛?

sunjet

没有办法

?????????

sunjet

看来是没有希望啦

守柔

我没太明白楼主的意思，请上传您的图片，和示意要求，我看一下。

另建议把您的代码一块附上。

sunjet

谢谢,总算有人能帮忙啦

调用前:

调用字体设置:

调用的微软内置对话窗的全图

目的,在调用前,能够把选择的比如说"标题一"的字体传给对话框,然后调用对话框,修改选择后,返回值,后台修改标题一的设置

[此贴子已经被作者于2005-8-8 14:42:39编辑过]

守柔

我只是简单地做了一个示例，关键是楼主的要求，返回和设置，注意以下代码将可能会被应用于全文档的所有样式字体，您可以根据选定的样式或者录个修改样式的宏，以便修改。

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋ '* Created By I Love You_Word!@ExcelHome 2005-8-8 15:41:37 '仅测试于System: Windows NT Word: 10.0 Language: 2052 '№ 0009^The Code CopyIn [ThisDocument-ThisDocument]^' '* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－

Option Explicit Sub Example() Dim MyDialog As Dialog, OldFontName As String, NewFontName As String With Me.Styles("标题 2") OldFontName = .Font.NameFarEast Set MyDialog = Dialogs(wdDialogFormatDefineStyleFont) With MyDialog If .Show = -1 Then NewFontName = .FontMajor End If End With If NewFontName <> OldFontName Then '此处可以适当修改，以便应于所选样式的修改 .Font.Name = NewFontName MsgBox "标题 2原有中文字体为" & OldFontName & ";" & vbCrLf & "现已修为您选定的" & NewFontName & "中文字体!" End If End With End Sub '----------------------

sunjet

谢谢,不过我试了,不是我想要的效果.因为在这个设置过程中,用户可能先选择"标题 1"做字体设置,然后,关闭对话框后,又选择"标题 5"做设置.所以我并不是想记录设置前有设置后的进行对比,而是想每次设置前,更新对话框的设置到与所选择的样式一致,这样一来,用户就能在对话框里看到原来的设置项是那些,再决定修改与否.如果"标题 1"与"标题 5"设置不一样,那么每次弹出来的对话框内容不一样才对,但我每次都没有更新,弹出来都一样,感觉不对啊.

[此贴子已经被作者于2005-8-8 17:15:14编辑过]

守柔

你讲清楚了吗?象这种情况,应该要把你的主要相关代码上传,我凭什么知道你想要做什么呢?对不对!