菊花朵朵向阳开
以前做过的代码找一段出来供参考。
Private Sub CommandButton4_Click() '排版格式
Dim T_WORD As String
Dim RNG As Range
Dim mypra As Paragraph
Set mydic = CreateObject("Scripting.Dictionary") '二级标题字符
mydic.Add "一", 1
mydic.Add "二", 1
mydic.Add "三", 1
mydic.Add "四", 1
mydic.Add "五", 1
mydic.Add "六", 1
mydic.Add "七", 1
mydic.Add "八", 1
mydic.Add "九", 1
mydic.Add "十", 1
T_WORD = TextBox1.Text
导出路径文件名 = ThisDocument.Path & "\" & T_WORD
Set mydoc = Documents.Open(导出路径文件名)
mydoc.Activate
Selection.WholeStory '选中全部
Selection.ClearFormatting '清除全部格式
zz = 0
'For Each mypra In ActiveDocument.Paragraphs
For Each mypra In mydoc.Paragraphs
If Not mypra.Range.Information(wdWithInTable) = True Then '非表格段落
zz = zz + 1
MYSTR = mypra.Range.Text
mychar = Mid(MYSTR, 1, 1)
'mypra.Select
If zz = 1 Or zz = 2 Then '一级标题 黑体 小二 是 居中 1行 1行 固定值18磅 无
With mypra
.Range.Font.Name = "黑体"
.Range.Font.Size = 18 '（小二高度18磅）
.Range.Font.Bold = True
.Range.ParagraphFormat.Alignment = wdAlignParagraphCenter
.Range.ParagraphFormat.LineUnitBefore = 1
.Range.ParagraphFormat.LineUnitAfter = 1
'.Range.ParagraphFormat.SpaceBefore = 10.5 '段前 1123修改为5号10.5磅
'.Range.ParagraphFormat.SpaceAfter = 10.5 '段后
.FirstLineIndent = 0 '首行缩进无
.LineSpacingRule = wdLineSpaceExactly
'.LineSpacingRule = wdLineSpace1pt5
.Range.ParagraphFormat.LineSpacing = 18 '行间距18磅
End With
Else
If mydic.Exists(mychar) Then '二级标题 黑体 小四 是 两端对齐 1行 1行 固定值18磅 首行缩进2字符
With mypra
.Range.Font.Name = "黑体"
.Range.Font.Size = 12
.Range.Font.Bold = True
.Range.ParagraphFormat.Alignment = wdAlignParagraphJustify
.Range.ParagraphFormat.LineUnitBefore = 1
.Range.ParagraphFormat.LineUnitAfter = 1
'.Range.ParagraphFormat.SpaceBefore = 10.5 '段前 小四高度=12磅 1123修改为5号10.5磅
'.Range.ParagraphFormat.SpaceAfter = 10.5 '段后
'.FirstLineIndent = CentimetersToPoints(1.27) '首行缩进2字符 0.635*2=1.27
.FirstLineIndent = CentimetersToPoints(0.74) '首行缩进2字符 0.74 和正文相同
' .LineSpacingRule = wdLineSpace1pt5
.LineSpacingRule = wdLineSpaceExactly
.Range.ParagraphFormat.LineSpacing = 18 '行间距18磅
End With
Else '正文 宋体 五号 否 两端对齐 0行 0.5行 固定值18磅 首行缩进2字符
With mypra
.Range.Font.Name = "宋体"
.Range.Font.Size = 10.5
.Range.Font.Bold = False
.Range.ParagraphFormat.Alignment = wdAlignParagraphJustify
'.Range.ParagraphFormat.SpaceBefore = 0 '段前0
'.Range.ParagraphFormat.SpaceAfter = 5.25 '段后0.5*10.5=5.25
.Range.ParagraphFormat.LineUnitBefore = 0
.Range.ParagraphFormat.LineUnitAfter = 0.5
.FirstLineIndent = CentimetersToPoints(0.74) '0.37*2=0.74
.LineSpacingRule = wdLineSpaceExactly
.Range.ParagraphFormat.LineSpacing = 18 '行间距18磅
.Alignment = wdAlignParagraphJustify
End With
If zz = 3 Then '第3段落居中
With mypra
.Range.ParagraphFormat.Alignment = wdAlignParagraphCenter
End With
End If
End If
End If
End If
Next mypra
mydoc.Save
mydoc.Close False '关闭word文档
Set mydoc = Nothing '清空工作簿项目
End Sub
用代码怎么设置word文档的格式
你可以使用一个简单的方法获取VBA代码：点击word菜单:工具—宏—录制新宏,然后在 word文档中输入内容，再设置格式如颜色、间距等，接着点击停止录制宏。
、最后按快捷键：Alt+F8 ，找到刚才录制的宏名，点击编辑就看到代码了
源代码 粘贴到word，格式怎么变了
word文档中的粘贴功能具有“保留源格式”“合并格式”“只保留文本”三种模式，您在使用粘贴功能时单击右键，选择粘贴中的保留源格式就可以了哦
请问word中编辑程序代码怎样才美观？
将word写入一个独立的表格单元格中，用宋体，字号为10像素，斜体，颜色用灰色，无须底纹。
并将单元表格距左一定距离。
word怎么设置编号格式
word设置编号格式，可通过定义新编号格式自定义设置编号格式。
方法步骤如下：
1、打开需要操作的WORD文档，点击标号后面的下拉三角按钮并选择“定义新编号格式”。
2、点击字体，进入字体格式自定义界面。
3、在字体标签页，可根据需要设置不同的字体编号格式，然后点击确定按钮即可。
4、返回主文档，可发现已成功在word设置编号格式。
word中如何加入漂亮的程序代码？
1、选中代码区
2、格式→边框和底纹→底纹，选择一种浅浅的灰色。
代码区是不是衬上了一层浅的背景
Microsoft Word2007中如何插入域代码并设置域代码的格式
中的域用作文档中可能会改变的数据的占位符，并用于在邮件合并文档中创建套用信函和标签。这些种类的域也称为域代码，它们不同于那些用于输入信息的域类型，如在表单上。
请阅读以下相关域
日期-时间格式开关显示域结果
使用特定命令时（
如插入页码时、插入封面等文档构建基块时或创建目录时），
Word 会自动插入域
。还可以手动插入域，以自动处理文档外观，如合并某个数据源的数据或执行计算。
在 Microsoft Office Word 2007 中，很少需要手动插入域，因为内置命令和内容控件提供了域为许多 Word 版本提供的大多数功能。在 Word 早期版本创建的文档中，比较容易见到域。您可以使用本文中的信息来理解并使用域。
安全性 任何阅读文档的人都可以看到域代码，因此请确保域代码中放置的信息不是机密信息。
注释：本文中的信息适用于 Word 中的任何域代码。
在word里怎么排版代码
工具/原料
wordNotepad++
方法/步骤
将代码复制到 Notepad++。在菜单【Language】中选择编程语言的种类以格式化代码的样式。如下图所示：
选择以下（1）、（2）步骤中的一个。
(1)选中Notepad++文本编辑区里的代码，鼠标右键点击选中区域，在弹出的菜单当中选择【Plugin commands】->【Copy Text with to Syntax Highlighting】。
(2)选中Notepad++文本编辑区里的代码，进入【Plugins】菜单，进入【NppExport】，点击【Copy all formats to clipboard】。
在Word里粘贴前面在Notepad++中复制的代码。然后选择这段文字的底纹为浅灰即可，效果图如下：
转载请注明出处51数据库 » 代码格式word word代码改变文本格式
