我这里有个word文档,里面有200个表格要修改成统一的样式.请问怎么...

这应该属于长文档编辑的问题，我不清楚你在排版长文档时严格按照一级标题、二级标题、正文等比较规范的格式，就你提出的问题可以选中你要改变的格式的正文的其中一段（只选一段即可），然后点右键在快捷菜单的最下面有一行“选择格式相似的文本”，这样凡是应用了同类正文样式的正文就会被选中，而其它的几级标题和表格图片不同级别文本和格式不相同不相似的正文都不会被选中，这样就可以对你要修改的正文部分单独进行格式修改了。

如果不行，可说清楚些，或者发个图过来看看，再说怎么解决！

word里面表格的字体样式始终无法改变,怎么办

WORD中批量修改表格的格式：第一步，先用宏将所有表格选中：Sub 宏1() Dim mytable As Table Application.ScreenUpdating = False For Each mytable In ActiveDocument.Tables mytable.Range.Editors.Add wdEditorEveryone Next ActiveDocument.SelectAllEditableRanges (wdEditorEveryone) ActiveDocument.DeleteAllEditableRanges (wdEditorEveryone) Application.ScreenUpdating = TrueEnd Sub第二步，设置格式。

先设置好字体字号，再设置表格属性：右键——表格属性（或者点菜单栏的表格——表格属性）——行，选中“指定高度”，在“行高值是”中选择“固定值”，设定一个适当值。

...

如何使word文档中的表格不能修改（我想一直用这个表格格式,不想...

这样吧，用WORD的“窗体域”+“保护文档”功能来实现。

1、调出“窗体”工具栏，在“视图”菜单下的“工具栏”里可以找到；2、根据需要，在表单元格内插入一个“文字型窗体域”，工具栏第一个，显示为ab|，插入后显示一个灰色底纹；每个单元格一个。

双击出现选项，可以输入“默认文本”等；3、保护文档，在选项1＂格式设置限制＂中，打勾，选项2“编辑限制”，选择“填写窗体”；选项3，“是，启动强制保护”，输入密码。

OK，现在你只能编辑灰色底纹部分的了。

WORD表格如果做成不能更改的模板？

1、ACCESE 可以解决这个问题2、设置标记，及修改密码，可以看得出对方都在哪里做了修改。

3、让别人可以填表，也就是相当于让别人可以修改这个表格的内容，而你又让别人不能改，有点矛盾4、您应该是想让别人不能修改表格可填部分的内容，您可以试试“1、”这是一种数据库，设置了格式后，别人只能填表格，而不能修改每一列顶部的“项目” 我都感冒加失恋了，还这么仔细回答问题， 要选为满意哦，不然对不起我

如何批量修改Word文档中的表格样式和题注格式

在进行大型项目的方案文档设计时，一个文档中有可能涉及到上百个图表，在最后定稿的时候，需要进行统一的格式化处理。

面对这些数目庞大的表格，挨个用格式刷进行处理，一路刷下来往往手都会刷酸，更令人奔溃的是好不容易刷完了，发现字体或大小不对，这时候可能需要再重新刷一遍。

那么如果能提高效率呢？word中的VBA功能，就是专为这种工作量庞大，而需要重复的工作设计的。

对表格的样式进行统一处理VBA代码如下：Sub FormatAllTables()For i = 1 To ActiveDocument.Tables.Count " ActiveDocument.Tables(i).Style = ＂my＂With ActiveDocument.Tables(i).Range.ParagraphFormat.LeftIndent = CentimetersToPoints(0).RightIndent = CentimetersToPoints(0).SpaceBefore = 0.SpaceBeforeAuto = False.SpaceAfter = 0.SpaceAfterAuto = False.LineSpacingRule = wdLineSpace1pt5.Alignment = wdAlignParagraphJustify.WidowControl = False.KeepWithNext = False.KeepTogether = False.PageBreakBefore = False.NoLineNumber = False.Hyphenation = True.FirstLineIndent = CentimetersToPoints(0).OutlineLevel = wdOutlineLevelBodyText.CharacterUnitLeftIndent = 0.CharacterUnitRightIndent = 0.CharacterUnitFirstLineIndent = 0.LineUnitBefore = 0.LineUnitAfter = 0.MirrorIndents = False.TextboxTightWrap = wdTightNone.AutoAdjustRightIndent = True.DisableLineHeightGrid = False.FarEastLineBreakControl = True.WordWrap = True.HangingPunctuation = True.HalfWidthPunctuationOnTopOfLine = False.AddSpaceBetweenFarEastAndAlpha = True.AddSpaceBetweenFarEastAndDigit = True.BaseLineAlignment = wdBaselineAlignAuto End With" 设置表中的字体及大小ActiveDocument.Tables(i).SelectWith Selection.Font.Size = 12.Font.Name = ＂宋体＂End WithActiveDocument.Tables(i).Cell(1, 1).SelectWith Selection.SelectRow.Font.Bold = True.Shading.BackgroundPatternColor = -603923969.ParagraphFormat.Alignment = wdAlignParagraphCenter End WithNextEnd Sub123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354在文档编写中，表格中题注的字体及大小一般与正文也不一样，需要单独进行设置，由于题注设置需要自动编号，可通过VBA代码对这些自动编号的题注进行自动化处理，其基本思路是查找带有域“图”的所有文本；选中它，然后格式粘贴。

其代码如下：Sub FormatTableTitle()myHeadings = ActiveDocument.GetCrossReferenceItems（＂图＂）findTxt = ＂＂For i = 1 To UBound(myHeadings) "MsgBox myHeadings(i)findTxt = myHeadings(i) With Selection.Find.Text = findTxt.Replacement.Text = ＂＂.Forward = True.Wrap = wdFindContinue.Format = False.MatchCase = False.MatchWholeWord = False.MatchByte = True.MatchWildcards = False.MatchSoundsLike = False.MatchAllWordForms = FalseEnd WithSelection.Find.ExecuteSelection.PasteFormat Next iEnd Sub