word中如何更改表格样式

一、WORD 中如何设置表格样式

WORD 中设置表格样式的方法如下： 1、首先单击表格上的“十字形图标”，可以全选表格。

2、接着单击“设计”，操作如下图，选择其中一个表格样式。 3、如图，表格的外观快速改变了。

接着将光标定位在任一单元格内。 4、接下来教大家设置单元格底纹。

以橘色为例。单击“橘色”。

效果设置如同。 5、我们接着继续调整表格格式。

选中表格后，设置表格对齐方式，以“水平居中”为例。 6、这时候文本更改位居中对齐，接着选中表格首行，然后更改文字方向。

7、如图，首行文字变成了纵向排列。大家根据需要设置文字方向。

这里按ctrl+Z撤销更改文字方向的操作。 8、接着选择表格，启动排序命令。

9、设置排序关键字，这里单击“面积”。在类型中单击“数字”。

我们将根据表格中面积的数字大小进行排序。选择升序。

单击确定。效果如下。

10、选中表格后，启动自动调整命令。按照图所示操作点击。

效果如图。。

二、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、首先我们需要打开一个word2013文档，插入一个表格，如下图示例。

2、此时我们选择表格点击“开始”，如下图示例中红色框处部分。 3、在下图示例的红色小框处，我们用鼠标点击段落功能右下角的小箭头。

4、此时我们发现，页面上会弹出一个关于段落设置的对话框，如下图所示。 5、从这里我们可以看到有“常规”、“缩进”等功能，图中用红色框出来。

6、这里我们也可以设置行间距，如下图红色框出部分，按要求逐个设置。 7、比如我们设置好以下格式，下图中我用红色箭头标出来了，数值可以根据实际需求设定。

8、这个时候我们再点击“确定”后，就可以实现我们所需要的设置了。段落设置是我们在使用word表格中经常会遇到的问题，当我们能熟练设置的时候，就会让格式按我们的要求进行完美呈现。

四、在Word2010中可以改变表格样式的操作是

打开Word2010文档，单击表格任意单元格。

单击“设计”选项卡。

在“表格样式”中单击“其他”按钮。

在菜单中选择“新建表样式”命令。

在“根据格式设置创建新样式”对话框中的“名称”编辑框中输入新样式的名称。

样式类型”选择默认的“表格”选项。

单击“样式基准”下三角按钮。

选择比较接近实际需要的表格样式。

在“将格式应用于”下拉列表中选择“整个表格”选项。

设置字体、字号、加粗、倾斜等文字格式。

单击“字体颜色”下三角按钮。

在颜色面板中选择合适的字体颜色。

单击“格式”按钮。

在菜单中选择“边框和底纹”命令。

在“边框和底纹”对话框的“边框”选项卡中设置表格边框

在“底纹”选项卡中设置表格底纹

单击“确定”按钮

选中“基于该模板的新文档”选项。

单击“确定”按钮

我们可以在表格样式列表中选择自定义的表格样式。

五、如何批量修改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。

转载请注明出处51数据库 » word中如何更改表格样式