Word VBA中,用什么语句来调用内置字体对话框

发布网友 发布时间：2022-04-29 17:28

我来回答

共2个回答

热心网友 时间：2023-10-23 18:38

可以用这样的方式打开内置的字体对话框
dlgAnswer = Dialogs(wdDialogFormatFont).Show
dlgAnswer的值可以是：
-1 （以确定响应对话框）
-2 （关闭）
0 （取消）
……

关闭对话框后，可以这样访问设置值
FountName = Dialogs(wdDialogFormatFont).Font
以上语句可以返回字体名

除了 Font 属性外，还有以下属性可供使用
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

写一个简单的例子

Sub aa()
dlgAnswer = Dialogs(wdDialogFormatFont).Show

If dlgAnswer = -1 Then
MsgBox "字体名：" & Dialogs(wdDialogFormatFont).Font
MsgBox "是否斜体：" & Dialogs(wdDialogFormatFont).Italic
End If
End Sub

热心网友 时间：2023-10-23 18:39

参考：
Dialogs(wdDialogFormatFont).Show '字体对话框
Dialogs(wdDialogTableAutoFormat).Show '套用表格格式对话框

热心网友 时间：2023-10-23 18:38

可以用这样的方式打开内置的字体对话框
dlgAnswer = Dialogs(wdDialogFormatFont).Show
dlgAnswer的值可以是：
-1 （以确定响应对话框）
-2 （关闭）
0 （取消）
……

关闭对话框后，可以这样访问设置值
FountName = Dialogs(wdDialogFormatFont).Font
以上语句可以返回字体名

除了 Font 属性外，还有以下属性可供使用
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

写一个简单的例子

Sub aa()
dlgAnswer = Dialogs(wdDialogFormatFont).Show

If dlgAnswer = -1 Then
MsgBox "字体名：" & Dialogs(wdDialogFormatFont).Font
MsgBox "是否斜体：" & Dialogs(wdDialogFormatFont).Italic
End If
End Sub

热心网友 时间：2023-10-23 18:38

可以用这样的方式打开内置的字体对话框
dlgAnswer = Dialogs(wdDialogFormatFont).Show
dlgAnswer的值可以是：
-1 （以确定响应对话框）
-2 （关闭）
0 （取消）
……

关闭对话框后，可以这样访问设置值
FountName = Dialogs(wdDialogFormatFont).Font
以上语句可以返回字体名

除了 Font 属性外，还有以下属性可供使用
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

写一个简单的例子

Sub aa()
dlgAnswer = Dialogs(wdDialogFormatFont).Show

If dlgAnswer = -1 Then
MsgBox "字体名：" & Dialogs(wdDialogFormatFont).Font
MsgBox "是否斜体：" & Dialogs(wdDialogFormatFont).Italic
End If
End Sub

热心网友 时间：2023-10-23 18:39

参考：
Dialogs(wdDialogFormatFont).Show '字体对话框
Dialogs(wdDialogTableAutoFormat).Show '套用表格格式对话框

热心网友 时间：2023-10-23 18:39

参考：
Dialogs(wdDialogFormatFont).Show '字体对话框
Dialogs(wdDialogTableAutoFormat).Show '套用表格格式对话框

热心网友 时间：2023-10-23 18:38

可以用这样的方式打开内置的字体对话框
dlgAnswer = Dialogs(wdDialogFormatFont).Show
dlgAnswer的值可以是：
-1 （以确定响应对话框）
-2 （关闭）
0 （取消）
……

关闭对话框后，可以这样访问设置值
FountName = Dialogs(wdDialogFormatFont).Font
以上语句可以返回字体名

除了 Font 属性外，还有以下属性可供使用
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

写一个简单的例子

Sub aa()
dlgAnswer = Dialogs(wdDialogFormatFont).Show

If dlgAnswer = -1 Then
MsgBox "字体名：" & Dialogs(wdDialogFormatFont).Font
MsgBox "是否斜体：" & Dialogs(wdDialogFormatFont).Italic
End If
End Sub

热心网友 时间：2023-10-23 18:38

可以用这样的方式打开内置的字体对话框
dlgAnswer = Dialogs(wdDialogFormatFont).Show
dlgAnswer的值可以是：
-1 （以确定响应对话框）
-2 （关闭）
0 （取消）
……

关闭对话框后，可以这样访问设置值
FountName = Dialogs(wdDialogFormatFont).Font
以上语句可以返回字体名

除了 Font 属性外，还有以下属性可供使用
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

写一个简单的例子

Sub aa()
dlgAnswer = Dialogs(wdDialogFormatFont).Show

If dlgAnswer = -1 Then
MsgBox "字体名：" & Dialogs(wdDialogFormatFont).Font
MsgBox "是否斜体：" & Dialogs(wdDialogFormatFont).Italic
End If
End Sub

热心网友 时间：2023-10-23 18:39

参考：
Dialogs(wdDialogFormatFont).Show '字体对话框
Dialogs(wdDialogTableAutoFormat).Show '套用表格格式对话框

热心网友 时间：2023-10-23 18:39

参考：
Dialogs(wdDialogFormatFont).Show '字体对话框
Dialogs(wdDialogTableAutoFormat).Show '套用表格格式对话框