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

他人在填写使用Word制作好的表格是如何保持统一的格式?,第1张

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

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

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

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

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

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

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

用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、最后即可完成。

欢迎分享,转载请注明来源:内存溢出

原文地址: http://outofmemory.cn/bake/12189454.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-05-21
下一篇 2023-05-21

发表评论

登录后才能评论

评论列表(0条)

保存