代码格式word word代码改变文本格式

以前做过的代码找一段出来供参考。

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代码改变文本格式