他人在填写使用Word制作好的表格是如何保持统一的格式？

选中表格→右击→表格属性→选项可以调整各方向的字与边框的距离，

还有可以调整对应单元格的字体，使字体紧缩，让其不分行，可以调整对应单元格的字的段落格式，把行间距调小一些，这样打上两行也不会变样。

这个是属于文档段落中间被强行换行的问题,用查找替换的办法去除即可

选中第三段(即拉黑)，然后，编辑，替换，在上面一行填入回车符号，下行仍留空。然后全部替换即可。在选择是不是要检查其它部分时选择“否”。

把标题、一级标题、正文这些样式固定下，在修改样式的时候设置成“添加到模板”，可以去掉“自动更新”，最好再各自设置快捷键！这样，只要是变化一个段落的格式，其余则全部自动变化了。

用格式刷，单击用一次，双击可以反复使用。

你的问题可这样解决： 全选——编辑——替换——光标单击在“查找内容”框里——单击“格式”按钮——字体——在“字体颜色”中选择红色——确定——光标单击在“替换为”框里——单击“格式”按钮——在“字体颜色”中格式——字体——西文字体，这里设置选择绿色——确定——单击“全部替换”按钮。

用vba代码可以实现。

下面这段代码是设置文字格式的，根据标题序号的不同，设置不同的格式。供参考！

Private Sub CommandButton4_Click() '排版格式

Dim T_WORD As String

Dim RNG As Range

Dim mypra As Paragraph

Set mydic = CreateObject("ScriptingDictionary") '二级标题字符

mydicAdd "一", 1

mydicAdd "二", 1

mydicAdd "三", 1

mydicAdd "四", 1

mydicAdd "五", 1

mydicAdd "六", 1

mydicAdd "七", 1

mydicAdd "八", 1

mydicAdd "九", 1

mydicAdd "十", 1

T_WORD = TextBox1Text

导出路径文件名 = ThisDocumentPath & "\" & T_WORD

Set mydoc = DocumentsOpen(导出路径文件名)

mydocActivate

SelectionWholeStory '选中全部

SelectionClearFormatting '清除全部格式

zz = 0

'For Each mypra In ActiveDocumentParagraphs

For Each mypra In mydocParagraphs

If Not mypraRangeInformation(wdWithInTable) = True Then '非表格段落

zz = zz + 1

MYSTR = mypraRangeText

mychar = Mid(MYSTR, 1, 1)

'mypraSelect

If zz = 1 Or zz = 2 Then '一级标题 黑体 小二 是 居中 1行 1行 固定值18磅 无

With mypra

RangeFontName = "黑体"

RangeFontSize = 18 '（小二高度18磅）

RangeFontBold = True

RangeParagraphFormatAlignment = wdAlignParagraphCenter

RangeParagraphFormatLineUnitBefore = 1

RangeParagraphFormatLineUnitAfter = 1

'RangeParagraphFormatSpaceBefore = 105 '段前 1123修改为5号105磅

'RangeParagraphFormatSpaceAfter = 105 '段后

FirstLineIndent = 0 '首行缩进无

LineSpacingRule = wdLineSpaceExactly

'LineSpacingRule = wdLineSpace1pt5

RangeParagraphFormatLineSpacing = 18 '行间距18磅

End With

Else

If mydicExists(mychar) Then '二级标题 黑体 小四 是 两端对齐 1行 1行 固定值18磅 首行缩进2字符

With mypra

RangeFontName = "黑体"

RangeFontSize = 12

RangeFontBold = True

RangeParagraphFormatAlignment = wdAlignParagraphJustify

RangeParagraphFormatLineUnitBefore = 1

RangeParagraphFormatLineUnitAfter = 1

'RangeParagraphFormatSpaceBefore = 105 '段前 小四高度=12磅 1123修改为5号105磅

'RangeParagraphFormatSpaceAfter = 105 '段后

'FirstLineIndent = CentimetersToPoints(127) '首行缩进2字符 06352=127

FirstLineIndent = CentimetersToPoints(074) '首行缩进2字符 074 和正文相同

' LineSpacingRule = wdLineSpace1pt5

LineSpacingRule = wdLineSpaceExactly

RangeParagraphFormatLineSpacing = 18 '行间距18磅

End With

Else '正文 宋体 五号 否 两端对齐 0行 05行 固定值18磅 首行缩进2字符

With mypra

RangeFontName = "宋体"

RangeFontSize = 105

RangeFontBold = False

RangeParagraphFormatAlignment = wdAlignParagraphJustify

'RangeParagraphFormatSpaceBefore = 0 '段前0

'RangeParagraphFormatSpaceAfter = 525 '段后05105=525

RangeParagraphFormatLineUnitBefore = 0

RangeParagraphFormatLineUnitAfter = 05

FirstLineIndent = CentimetersToPoints(074) '0372=074

LineSpacingRule = wdLineSpaceExactly

RangeParagraphFormatLineSpacing = 18 '行间距18磅

Alignment = wdAlignParagraphJustify

End With

If zz = 3 Then '第3段落居中

With mypra

RangeParagraphFormatAlignment = wdAlignParagraphCenter

End With

End If

End If

End If

End If

Next mypra

mydocSave

mydocClose False '关闭word文档

Set mydoc = Nothing '清空工作簿项目

End Sub

可以参考下面方法处理：

1、首先单击“文件”—“选项”；

2、在d出的“选项”面板上“自定义功能区”面板的右边一栏勾线“开发工具”；

3、单击“开发工具”，在d出的面板上单击“visualbasic”；

4、调出代码窗口，输入批量修改表格代码；

5、单击“开发工具”—“宏”；

6、在d出的宏命令选择框中选择“批量修改表格”执行“宏命令；

7、然后选中所有表格；

8、单击“设计”，选择合适的效果；

9、最后即可完成。