vbawordfont

1.VBA for Word怎么设置字体的格式

以下代码为通过VBA代码来设置Word字体的各种格式。

WApp.Selection.Font.NameFarEast = "华文中宋"；

WApp.Selection.Font.NameAscii = "Times New Roman";

WApp.Selection.Font.NameOther = "Times New Roman";

WApp.Selection.Font.Name = "宋体"；

WApp.Selection.Font.Size = float.Parse("14");

WApp.Selection.Font.Bold = 0;

WApp.Selection.Font.Italic = 0;

WApp.Selection.Font.Underline = Microsoft.Office.Interop.Word.WdUnderline.wdUnderlineNone;

WApp.Selection.Font.UnderlineColor = Microsoft.Office.Interop.Word.WdColor.wdColorAutomatic;

WApp.Selection.Font.StrikeThrough =0；//删除线

WApp.Selection.Font.DoubleStrikeThrough = 0；//双删除线

WApp.Selection.Font.Outline =0；//空心

WApp.Selection.Font.Emboss = 0；//阳文

WApp.Selection.Font.Shadow = 0；//阴影

WApp.Selection.Font.Hidden = 0；//隐藏文字

WApp.Selection.Font.SmallCaps = 0；//小型大写字母

WApp.Selection.Font.AllCaps = 0；//全部大写字母

WApp.Selection.Font.Color = Microsoft.Office.Interop.Word.WdColor.wdColorAutomatic;

WApp.Selection.Font.Engrave = 0；//阴文

WApp.Selection.Font.Superscript = 0；//上标

WApp.Selection.Font.Subscript = 0；//下标

WApp.Selection.Font.Spacing = float.Parse("0")；//字符间距

WApp.Selection.Font.Scaling = 100；//字符缩放

WApp.Selection.Font.Position = 0；//位置

WApp.Selection.Font.Kerning = float.Parse("1")；//字体间距调整

WApp.Selection.Font.Animation = Microsoft.Office.Interop.Word.WdAnimation.wdAnimationNone；//文字效果

WApp.Selection.Font.DisableCharacterSpaceGrid =false;

WApp.Selection.Font.EmphasisMark = Microsoft.Office.Interop.Word.WdEmphasisMark.wdEmphasisMarkNone;

2.如何用word vba实现页面设置里的字体设置

With Selection.Font

.NameFarEast = "宋体"

.NameAscii = "Times New Roman"

.NameOther = "Times New Roman"

.Name = "Times New Roman"

.Size = 12

.Bold = False

.Italic = False

.Underline = wdUnderlineNone

.UnderlineColor = wdColorAutomatic

.StrikeThrough = False

.DoubleStrikeThrough = False

.Outline = False

.Emboss = False

.Shadow = False

.Hidden = False

.SmallCaps = False

.AllCaps = False

.Color = wdColorAutomatic

.Engrave = False

.Superscript = False

.Subscript = False

.Spacing = 0

.Scaling = 100

.Position = 0

.Kerning = 1

.Animation = wdAnimationNone

.DisableCharacterSpaceGrid = False

.EmphasisMark = wdEmphasisMarkNone

End With

补充：

wdStyleNormal=-1，试试With ActiveDocument.Styles(-1).Font

3.vba word 中 怎么得到当前文档中所有字体的名称啊

给你代码吧：

Sub a()

Dim str As String

For Each c In ThisDocument.Characters

If InStr(str, c.Font.Name) = 0 And Len(c.Font.Name) > 0 Then

str = str & c.Font.Name & ","

End If

Next

MsgBox UBound(Split(Left(str, Len(str) - 1), ",")) + 1 & "种字体，分别是" & vbCrLf & Left(str, Len(str) - 1)

End Sub

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

你按F1进入帮助，查找Dialogs，有解释和例子。

所有的Dialogs可以用如下方法获得。在VBA界面，点菜单的插入，模块，粘贴如下代码：

Sub x()

Dim xDlg As Dialog

Dim xStr As String

For Each xDlg In Application.Dialogs

xStr = xStr & Chr(13) & xDlg.CommandName

Next

Selection.TypeText xStr

End Sub

按F5运行此宏，得到了所有的内置对话框。

然后可以用

Sub xxxx()

Application.Dialogs(wdDialogFormatDefineStyleLang).Show

End Sub

粗体部分就是上面的那些名字，改为任意一个，运行就可以了。

没有表样式的。

5.如何在Excel VBA 中读写word文档 步骤

参考这个：

Sub ExcelToWord（) ' 利用Word程序创建文本文件

Dim WordApp As Object

Dim Records As Integer, i As Integer

Dim Region As String, SalesAmt As String, SalesNum As String, strTitle As String

Set WordApp = CreateObject("Word.Application") '创建word对象

Records = Application.CountA(Sheets("sheet1").Range("A:A")) 'A列数据个数

WordApp.Documents.Add '新建文档

'写Title

strTitle = Cells(1, 5)

With WordApp.Selection

.Font.Size = 28

.ParagraphFormat.Alignment = 1 '左对齐0 居中1 右对齐2

.Font.Bold = True

.TypeText Text:=strTitle

.TypeParagraph

End With

'写内容

For i = 1 To Records

'Region = Data.Cells(i, 1).Value '将第一列某行的值赋值给变量

Region = Cells(i, 1)

'SalesNum = Data.Cells(i, 2).Value '获取该行B列数据

SalesNum = Cells(i, 2)

'SalesAmt = Data.Cells(i, 3).Value '获取该行C列数据

SalesAmt = Cells(i, 3)

With WordApp.Selection

.Font.Size = 14 '设置字体字号

.Font.Bold = True '字体粗

.ParagraphFormat.Alignment = 0 '设置对齐

.TypeText Text:=Region & SalesNum

.TypeParagraph

.Font.Size = 12 '设置字体

.ParagraphFormat.Alignment = 0 '设置对齐

.Font.Bold = False '字体不加粗

.TypeText Text:=vbTab & SalesAmt

.TypeParagraph '回车

.TypeParagraph '回车

End With

Next i

WordApp.ActiveDocument.SaveAs Filename:="AAA" '保存文件

WordApp.Quit '退出程序

Set WordApp = Nothing '清空

MsgBox "文件保存在我的文档底下的AAA文件"

End Sub

转载请注明出处51数据库 » vbawordfont