如何控制这种对话框

sunjet

抱歉,我不是太能表达我的意思,不过并不是我不想传我的代码上来,而是我是用Delphi编程,通过OLE实现,所以我上传有一定困难,但我能把VB的转换过去,

我试着吧它转成VB形式,可能代码有错,肯是写的伪代码,见谅

Option Explicit Sub Example() Dim MyDialog As Dialog, OldFontName As String, NewFontName As String,stylesName As String stylesName=选择的样式,如:标题 2 With ActiveDocument.Styles(stylesName) Set MyDialog = Dialogs(wdDialogFormatDefineStyleFont) With MyDialog .Font = ActiveDocument.Styles(stylesName).Font ' (这行是我想要的伪代码:前面这个Font是指Dialogs的属性,等号后面的是所选样式的Font) If .Show = -1 Then ActiveDocument.Styles(stylesName).Font= .Font (这里是更新设置) End If End Sub '----------------------

sunjet

想实现这样的代码行不通嘛?

sunjet

请守柔进来再帮忙看一下

守柔

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 .fontmajor = OldFontName '****** If .Show = -1 Then NewFontName = .fontmajor End If End With MsgBox NewFontName If NewFontName <> OldFontName Then '此处可以适当修改，以便应于所选样式的修改 .Font.Name = NewFontName MsgBox "标题 2原有中文字体为" & OldFontName & ";" & vbCrLf & "现已修为您选定的" & NewFontName & "中文字体!" End If End With End Sub '----------------------

我还是不太明白楼主的意思。注意，对话框中的参数（如下），可以设置，也可以返回，我把这些参数列了出来，楼主看需要的用吧。

Points、Underline、Color、StrikeThrough、Superscript、Subscript、Hidden、SmallCaps、AllCaps、Spacing、Position、Kerning、KerningMin、Default、Tab、Font、Bold、Italic、DoubleStrikeThrough、Shadow、Outline、Emboss、Engrave、Scale、Animations、CharAccent、FontMajor、FontLowAnsi、FontHighAnsi、CharacterWidthGrid、ColorRGB、UnderlineColor、PointsBi、ColorBi、FontNameBi、BoldBi、ItalicBi 和 DiacColor

sunjet

谢谢,我基本上明白了,

是这样的,我确实也是考虑了用对话框参数进行设置,但无法通过参数Font的设置,我想可能是我对Font理解有错误吧,通常,我认为Font代表所有的字体的属性(名称,粗体,斜体等等),所以对话框Font直接用styles的Font赋值就够了.但测试同不过.另外我用MyDialog.Font.Name取名也是错误的操作,所以对话框参数Font代表是什么,能否告知,或者演示一下它怎么设置,我想就OK了.

非常谢谢守柔,我为这个问题折腾了一个月,快发疯了,有点笨笨的转不出来 还有一个问题,是在守柔代码里的出现的问题,为什么我设置的是styles中的某一项,整个的Word文本都被修改了?守柔好像前面提到过这种可能,但我没有明白该怎么避免这件事发生.

[此贴子已经被作者于2005-8-10 10:40:28编辑过]

守柔

请注意我上述代码中，字体的返回 .fontmajor 与设置属性！

再请参：

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

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