作者：乔山办公网日期：
返回目录：word文档
1、office重装。
2、word文件修复
3、网上下载修复软件
4、重装系统
5、OVRE.
生成目录时，会打开一个【索引抄和目录】对话框，在【目录】选项卡中单击【修改】按袭钮，
然后会打开【样式】对话框，修改百目录度1、目录2、目录3等的样式。也就是选择某个目录级别，然后单击【修改】知按钮，在新打开的对话框中道修改字体格式和段落格式，
如果你经常编辑的Word 文档具有相似的格式或版面，那么使用模板会简化许多操作，省去一些重复的步骤，大大提高工作效率。模板是一个用来创建文档的大概模型，一个模板一般包含的信息有：本的格式信息，样式，内容，宏按钮，自定义工具栏、宏、快捷键，自动图文集词条等。Word 默认情况下包含多种模板，选择“文件”菜单下的“新键”命令，就会弹出新键对话框，其中就是包含的各种模板，既包括许多中文模板，也包括英文向导模板。当Word 自带的模板不能满足我们的需要时，我们可以自己建立模板，一般情况有两种创建模板的方法。一种是，选择“文件”菜单下的“新建”选项，在弹出的对话框中选中“模板”项，在其中加入模板所需信息，然后保存。另一种方法是，打开一篇已经编辑好的文档，并将该文档另存为文档模板。当每次进7a686964616fe78988e69d83337入Word 时，系统都会自动新建一个空白文档，并分配一个名称为“文档1”的文档。其实大多数情况下，其默认设置比如说字体、字号、纸型等都不满足我们的需要。有没有一种方法让其打开的就是我们经常使用的设置呢，答案是肯定的，可以利用Word 的模板功能来实现。其实我们新建一个文档时，实际上是打开了一个名为“normal.doc”的文件。该文件的位置一般位于：C:WindowsApplication DataMicrosoftTemplates 文件夹下，具体操作方法如下：打开“normal.doc”文档，将各项设置改成自己所需的样式，点击文件下拉菜单中的“另存为”，在“另存为”对话框中输入要保存的文件名，保存类型选择“文档模板”，单击“确定”就可以了。以后每打开这一文件时，它的默认格式就是刚才设置的那样了。一个模板并不一定是自己使用，或许是一个公司的所有人使用，这样，并不是所有人都能看懂所有意思，在需要输入数据的地方加入一些提示信息一定会给使用者带来方便。其实这是可以通过“域”来实现的，在提示用户的同时，还可以预先设置文字的字体、字号等。具体的操作步骤如下：按下 Ctrl＋F9 组合键，插入一对标明域代码的花括号{}； 在花括号之间键入“MacroButton NoMacro [单击此处输入姓名]”； 对插入的域和文字进行必要的格式设置；在域上方单击鼠标右键，并选择“切换域代码”。这样，当单击提示时提示就处于被选中状态，输入新的文字将替换提示信息。
以前做过的代码找一段出来供参考。
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 '行间e799bee5baa6e997aee7ad94e59b9ee7ad94366距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