精华内容
下载资源
问答
  • 使用wps2019,如何将表格外部边框加粗内部边框不变化。
  • python-docx 操作word文档给表格加边框

    千次阅读 2020-10-27 09:38:33
    https://python-docx.readthedocs.io/en/latest/ @author: Administrator """ from docx import Document from docx.shared import Inches from docx.oxml import OxmlElement from docx.oxml.ns import qn #设置表格的边框...def set_cell_border(cell, **kwargs): """ Set cell`s border Usage: set_cell_border( cell, top={"sz": 12, "val": "single", "color": "#FF0000", "space": "0"}, bottom={"sz": 12, "color":...

    代码样例

    # -*- coding: utf-8 -*-
    """
    Created on Sat Oct 24 17:21:31 2020
    pip install -i https://mirrors.aliyun.com/pypi/simple/ docx
    
    参考文档 https://python-docx.readthedocs.io/en/latest/
    @author: Administrator
    """
    from docx import Document
    from docx.shared import Inches
    
    from docx.oxml import OxmlElement
    from docx.oxml.ns import qn
    
    #设置表格的边框
    def set_cell_border(cell, **kwargs):
        """
        Set cell`s border
        Usage:
        set_cell_border(
            cell,
            top={"sz": 12, "val": "single", "color": "#FF0000", "space": "0"},
            bottom={"sz": 12, "color": "#00FF00", "val": "single"},
            left={"sz": 24, "val": "dashed", "shadow": "true"},
            right={"sz": 12, "val": "dashed"},
        )
        """
        tc = cell._tc
        tcPr = tc.get_or_add_tcPr()
    
        # check for tag existnace, if none found, then create one
        tcBorders = tcPr.first_child_found_in("w:tcBorders")
        if tcBorders is None:
            tcBorders = OxmlElement('w:tcBorders')
            tcPr.append(tcBorders)
    
        # list over all available tags
        for edge in ('left', 'top', 'right', 'bottom', 'insideH', 'insideV'):
            edge_data = kwargs.get(edge)
            if edge_data:
                tag = 'w:{}'.format(edge)
    
                # check for tag existnace, if none found, then create one
                element = tcBorders.find(qn(tag))
                if element is None:
                    element = OxmlElement(tag)
                    tcBorders.append(element)
    
                # looks like order of attributes is important
                for key in ["sz", "val", "color", "space", "shadow"]:
                    if key in edge_data:
                        element.set(qn('w:{}'.format(key)), str(edge_data[key]))
    
    document = Document()
    
    document.add_heading('Document Title', 0)
    
    p = document.add_paragraph('A plain paragraph having some ')
    p.add_run('bold').bold = True
    p.add_run(' and some ')
    p.add_run('italic.').italic = True
    
    document.add_heading('Heading, level 1', level=1)
    document.add_paragraph('Intense quote', style='Intense Quote')
    
    document.add_paragraph(
        'first item in unordered list', style='List Bullet'
    )
    document.add_paragraph(
        'first item in ordered list', style='List Number'
    )
    
    #document.add_picture('monty-truth.png', width=Inches(1.25))
    
    records = (
        (3, '101', 'Spam'),
        (7, '422', 'Eggs'),
        (4, '631', 'Spam, spam, eggs, and spam')
    )
    
    table = document.add_table(rows=1, cols=3)
    hdr_cells = table.rows[0].cells
    hdr_cells[0].text = 'Qty'
    
    set_cell_border(
            hdr_cells[0],
            top={"sz": 12, "val": "single", "color": "#000000", "space": "0"},
            bottom={"sz": 12, "val": "single", "color": "#000000", "space": "0"},
            left={"sz": 12, "val": "single", "color": "#000000", "space": "0"},
            right={"sz": 12, "val": "single", "color": "#000000", "space": "0"},
        )
    
    
    
    hdr_cells[1].text = 'Id'
    hdr_cells[2].text = 'Desc'
    for qty, id, desc in records:
        row_cells = table.add_row().cells
        row_cells[0].text = str(qty)
        row_cells[1].text = id
        row_cells[2].text = desc
    
    document.add_page_break()
    
    document.save('demo.docx')
    
    print('finish !!!')
    
    展开全文
  • 要怎样在Word的表格中增加一列Word表格中:将光标定位在表格最后一行右端(表格外)的回车符处,按回车键即在表格最后增加一行。事实上,在表格的任何位置处增加一行,只要将光标定位在该行表格外的回车符处,按回车键...

    c005419752f49d4fee1ea8e7b7d9260c.png

    要怎样在Word的表格中增加一列

    Word表格中:将光标定位在表格最后一行右端(表格外)的回车符处,按回车键即在表格最后增加一行。

    事实上,在表格的任何位置处增加一行,只要将光标定位在该行表格外的回车符处,按回车键即可在回车符下增加一行。

    试试,必有所获!

    在WORD里如何整齐地插入一列?在WORD里做了一个表格,想在其

    将word里面的表格增加行或列,可按以下步骤操作:1、在表格下方单击鼠标左键,确定添加行或列的位置2、单击word工具栏中的表格3、在弹出菜单中单击“插入”,然后在下级菜单中点击“表格”4、根据需要点击“列数”和“行数”的上下箭头,设置相关参数,然后单击“确定”5、添加完成。

    ...

    如何在word表格里再添加一个表格

    方法一:1、需要添加几行,就选中表格几行;2、单击表格工具布局----在上方(或下方)插入按钮即可。

    方法二:光标放在表格的最后一列的回车符那里(表格外面)按回车,即可在表格的下面添加一行,重复上面的操作,可以在表格的下面添加多行。

    方法三:将光标放在表格的最后一个单元格中,按Tab键即可在表格的下面添加一行,重复上面的操作,可以在表格的下面添加多行。

    如何在WORD中新增加一列表格?

    插入点定位在单元格中,单击“表格→绘制斜线表头”命令,出现对话框,单击“表头样式”下拉菜单选择一种样式(共有5种可选择),分别填入“行标 题”(右上角的项目)、“列标题”(左下角的项目)和“数据标题”(中间格的项目)以及“字体大小”等,最后单击“确定”退出。

    删除斜线表头的方法是,单 击要删除的斜线表头,当周围出现选定标记时,按Del键即可删除该斜线表头。

    自由修改斜线表头 斜线表头绘制好后,如果改变字号,或者调整斜线位置,斜线表头便出现诸如字与字互相叠压或线条移动等不匹配的情况,往往令许多人感到束手无策。

    其实,我们可利用Word的绘图功能加以调整,具体作法是: 1.选中该表头(其实表格斜线是由线条组合在一起的图形),使之周围出现8个控点; 2.在“绘图工具栏”上单击“绘图”按钮,在弹出的菜单中选择“取消组合”命令,并在斜线表头所在的单元格之外的区域单击(即取消选定状态); 3.这时表头中的线条和文字(其实是文本框)均成为独立可调整状态,我们可以任意调整表头的线条和每一个文字的位置,直到满意为止; 4.按Shift键,依次选择每个线条和每个文字块; 5.再次在“绘图工具栏”上单击“绘图”按钮,选择“组合”。

    在上面第三步中,你还可能遇到另一种令人头疼的事情:那就是虽然可独立移动斜线位置,但就是移动不到准确的位置,或者说误差非常大。

    这时,你可尝试如下的步骤: 1.选中该表头; 2.在“绘图工具栏”上单击“绘图”按钮,选择“绘图网格”,弹出“绘图网格”对话框(图2); 图2 3.在“绘图网格”对话框中将“水平间距”和“垂直间距”均调整成最小值,然后单击“确定”,表头中的内容便可任意调整大小、位置了。

    1.4.3 把文字转换成表格 选中需要转换的文字,单击“表格→转换→文本转换成表格”命令,设置好需要转换的列数、行数和套用的格式,在“文字分隔位置”中选中文字分隔符(图3),按“确定”按钮就可以把文字转换成表格。

    图3 1.4.4 把表格转换成文字 选中表格,单击“表格→转换→表格转换成文本”命令,在打开的对话框中选好文字分隔符(图4),单击“确定”按钮即可。

    图4 1.4.5 快速选定整张表格 按“Alt+5(数字键盘上的数字,且Num Lock键处于关闭状态)”,就可以快速选定整张表格。

    1.4.6 随心所欲调整单元格中的文字对齐方式 对于单元格中的文字,你可以随意调整它的位置,上、下、左、右、中间任意设定,设置的方法是:在单元格中右键单击,弹出快捷菜单,在“单元格对齐”子菜单中单击相应的命令即可,共有9种设定可供选择。

    1.4.7 更方便地调整表格的位置 这是在Word中重新定位表格的一个捷径。

    单击“视图→页面”命令,转换到页面视图模式,在页面视图中,把鼠标指针放在表格的左上角直到出现移动柄(框中有一个4个头的箭头),点击移动柄,用它把表格拖动到一个新位置。

    1.4.8 整体缩放表格 将光标停留在表格内部,直到表格尺寸控点(一个小“口”)出现在表格右下角,将鼠标移至表格尺寸控点上,待向左倾斜的双向箭头出现,沿需要的方向拖动即可整体缩放表格。

    1.4.9 使你的列标题可见 当你在Word中创建一个表格时,你可以利用列标题来描述每一列是什么信息。

    但如果表格很长,超过一页时,第一页后面的页列标题将看不到,这样你很难分辨每一列的主题是什么。

    这里将介绍一种使标题可见的技巧: 选择表格的第一行或多行,单击“表格→标题行重复”命令,现在,Word能够自动在后续页的顶端重复表格的标题。

    注意:只有在自动分页时,Word才能够自动重复表格标题,如果你手工插入分页符,表格标题将不会重复。

    而且,重复的表格标题只要在打印预览视图或当你打印文档时才可见。

    1.4.10 用键盘建立表格 你想过只需简单地输入一连串+号和-号,就可以在Word中创建表格吗?下面就是具体的操作方法: 利用一个+号开始一行,然后不停输入-号,直至达到合适的列宽度。

    要想添加一个新列,再次输入+号。

    在输入最后一个+号后按下回车。

    Word将把文本转换为表格。

    要想向表格添加更多的行,移到表格的最后一个单元格并按下Tab键。

    注意:如果这一技巧不起作用,那么你需要打开Word中的自动套用格式特性。

    单击“工具→自动更正”命令,然后单击“键入时自动套用格式”选项卡并选中“表格”复选框。

    1.4.11 给表格增加行 用鼠标点中表格中的最后一个单元,然后按Tab键,即可在表格末端增加一行。

    1.4.12 快速给单元格编号 选定需要进行编号的行或列后,单击工具栏中的“编号”或“项目符号”按钮就可以自动对单元格逐项进行编号,这种方法不但对单个的行或列起作用,对整个表格也可以使用。

    1.4.13 对齐单元格中的内容 选中要对齐内容的行或列,然后右键单击,在弹出的“单元格对齐方式”菜单中选择相应的方式即可。

    1.4.14 快速插入一行 将光标移到表格右侧换行符前按回车键可在下一行插入一行。

    1.4.15 快速插入多行(列) 选定多行(列)后再右键单击,选择“插入行(列)”命令,即可一次插入多行或多列。

    1.4.16 在表格顶端加空行 要在表格顶端加一个非表格的空白...

    怎样给word中的表格增加递增序号

    1先看一下要添加序号的表格。

    2编辑编号样式。

    调出菜单【格式—项目符号和编号】,在选项卡中选择编号,随便点击一种样式,点击“自定义”按钮,按下图填信息,填好后点击确定。

    3选择编号样式。

    选中下图选择的样式,点击确定。

    4自动序号已经加好。

    5下面我们需要把序号左对齐显示,选中序号列。

    :6编辑段落样式。

    选择菜单【格式—段落】,点击“制表位”按钮(红线框)。

    7在弹出的窗口中,先点击“全部清除”,然后在默认制表位中输入“0”,如下图所示。

    点击确定。

    8实现左对齐。

    9如果想序号居中对齐,只要选择序号,点击工具栏中的居中即可。

    展开全文
  • Word表格之VBA知识

    千次阅读 多人点赞 2019-01-28 13:56:10
    Table对象(因为是对象,...下面是Table的常用方法(注意是部分,不是全部,只例出重要的方法,下面的属性皆如此,如果详细面全部的了解,请看Word VBA自带的帮助。VBAWD10.chm) 使用Table对象 可使用 Tables(...

    Table对象(因为是对象,所以用Set赋值)

    该对象代表一个单独的表格。Table 对象是Tables集合的一个成员。Tables集合包含了指定的选定内容范围文档中的所有表格

    下面是Table的常用方法(注意是部分,不是全部,只例出重要的方法,下面的属性皆如此,如果详细面全部的了解,请看Word VBA自带的帮助。VBAWD10.chm)

    使用Table对象

    可使用 Tables(index) 返回一个 Table 对象,其中 index 为索引号。索引号代表选定内容、范围或文档中表格的位置。下例将活动文档中的第一个表格转换为文本。

    ActiveDocument.Tables(1).ConvertToText Separator:=wdSeparateByTabs

    使用Add方法可以在指定范围内新增一表格。下例在活动文档的起始处添加一 3 x 4 表格。

    Set myRange = ActiveDocument.Range(Start:=0, End:=0)

    ActiveDocument.Tables.Add Range:=myRange, NumRows:=3, NumColumns:=4

    Cell 方法

    返回一个 Cell 对象,该对象代表表格中的一个单元格

    expression.Cell(Row, Column)

    expression      必需。该表达式返回一个Table对象。

    Row   Long 类型,必需。指返回的表格行数。可以是介于 1 和表格行数之间的任意整数。

    Column    Long 类型,必需。指返回的表格单元格数目。可以是介于 1 和表格列数之间的任意整数。

    示例

    本示例在新文档中创建一个 3x3 表格,并在表格的第一个和最后一个单元格中插入文本。

    Dim docNew As Document

    Dim tableNew As Table

    Set docNew = Documents.Add

    Set tableNew = docNew.Tables.Add(Selection.Range, 3, 3)

    With tableNew

        .Cell(1,1).Range.InsertAfter "First cell"

        .Cell(tableNew.Rows.Count, _

            tableNew.Columns.Count).Range.InsertAfter "Last Cell"

    End With

    本示例删除活动文档的第一个表格中的第一个单元格的内容。

    If ActiveDocument.Tables.Count >= 1 Then

        ActiveDocument.Tables(1).Cell(1, 1).Delete

    End If

    Split 方法

    在表格中紧靠指定行的上面插入一空段落,并且返回一个 Table 对象,此对象包含指定行及其下一行。(简单的的理解:就是指向拆分后的下面的表格,不清楚也没关系,看下面的例子。)

    expression.Split(BeforeRow)

    expression      必需。该表达式返回一个 Table 对象。

    BeforeRow     Variant 类型,必需。将要拆分的表格的前一行。可以为 Row 对象或行号。

    本示例在活动文档(应试是新建文档)中创建一张 5x5 的表格,并且在第三行之前进行拆分。然后为结果表格(新的 3x5 表格)的单元格添加底纹。

    Set newDoc = Documents.Add

    Set myTable = ActiveDocument.Tables.Add(Range:=Selection.Range, _

        NumColumns:=5, NumRows:=5)

    myTable.Split(BeforeRow:=myTable.Rows(3)).Shading _

        .Texture = wdTexture10Percent

    Table属性

    Range 属性

    本示例复制表格 1 中的首行。

     

    If ActiveDocument.Tables.Count >= 1 Then _

        ActiveDocument.Tables(1).Rows(1).Range.Copy

    End if

    Borders 属性

    该属性返回一个 Borders 集合,该集合代表指定对象的所有边框。

    expression.Borders

    expression      必需。该表达式返回“应用于”列表中的一个对象。

    示例

    本示例对活动文档中的第一个表格应用内部和外部边框。

    Set myTable = ActiveDocument.Tables(1)

    With myTable.Borders

        .InsideLineStyle = wdLineStyleSingle

        .OutsideLineStyle = wdLineStyleDouble

    End With

    Columns 属性

    返回一个 Columns 集合,该集合代表在某一区域、所选内容或表格中所有表格列。只读

    示例

    本示例显示活动文档的第一个表格中的列数。

    If ActiveDocument.Tables.Count >= 1 Then

        MsgBox ActiveDocument.Tables(1).Columns.Count

    End If

    本示例将当前列的宽度设置为 1 英寸。

    If Selection.Information(wdWithInTable) = True Then

        Selection.Columns.SetWidth ColumnWidth:=InchesToPoints(1), _

            RulerStyle:=wdAdjustProportional

    End If

    Rows 属性

    该属性返回一个 Rows 集合,该集合代表某个范围、所选部分或表格中所有的表格行。只读。

    本示例删除活动文档第一个表格的第二行。

    ActiveDocument.Tables(1).Rows(2).Delete

    本示例为插入点所在行的各单元格设置边框。

    Selection.Collapse Direction:=wdCollapseStart

    If Selection.Information(wdWithInTable) = True Then

        Selection.Rows(1).Borders.OutsideLineStyle =  wdLineStyleSingle

    Else

        MsgBox "The insertion point is not in a table."

    End If

    Column 对象

    代表单个表格列。Column 对象是 Columns 集合的一个元素。Columns 集合包括某一表格、选定内容或区域中的所有列。

    使用 Column 对象

    使用 Columns(index) 可返回单独的 Column 对象,其中 index 为索引序号。索引序号代表该列在 Columns 集合中的位置(从左至右计算)

    下列示例选定活动文档中的表格 1 的第一列。

    ActiveDocument.Tables(1).Columns(1).Select

    用 Cell 对象的 Column 属性可返回一个 Column 对象。下列示例删除单元格 1 中的文字,插入新文字,然后对该列进行排序。

    With ActiveDocument.Tables(1).Cell(1, 1)

        .Range.Delete

        .Range.InsertBefore "Sales"

        .Column.Sort

    End With

    用 Add 方法可在表格中添加一列。下列示例为活动文档的第一张表格中添加一列,然后将列宽设置为相等。

    If ActiveDocument.Tables.Count >= 1 Then

        Set myTable = ActiveDocument.Tables(1)

        myTable.Columns.Add BeforeColumn:=myTable.Columns(1)

        myTable.Columns.DistributeWidth

    End If

    说明

    用 Selection 对象的 Information 属性可返回当前列号。下列示例选定当前列并在消息框中显示其列号。

    If Selection.Information(wdWithInTable) = True Then

        Selection.Columns(1).Select

        MsgBox "Column " _

            & Selection.Information(wdStartOfRangeColumnNumber)

    End If

    Cell 对象

    代表单个表格单元格。Cell 对象是 Cells 集合中的元素。Cells 集合代表指定对象中所有的单元格。

    使用 Cell 对象

    用 Cell(row, column) 或 Cells(index)可返回 Cell 对象,其中 row 为行号,column 为列号,index 为索引序号。下列示例给第一行的第二个单元格加底纹。

    Set myCell = ActiveDocument.Tables(1).Cell(Row:=1, Column:=2)

    myCell.Shading.Texture = wdTexture20Percent

    下列示例给第一行的第一个单元格加底纹。

    ActiveDocument.Tables(1).Rows(1).Cells(1).Shading _

        .Texture = wdTexture20Percent

    用 Add 方法可在 Cells 集合中添加 Cell 对象。也可用 Selection 对象的 InsertCells 方法插入新单元格。下列示例在 myTable 的第一个单元格之前插入一个单元格。

    Set myTable = ActiveDocument.Tables(1)

    myTable.Range.Cells.Add BeforeCell:=myTable.Cell(1, 1)

    本示例将第一个表格的头两个单元格设定为一个域 (myRange)。区域设定之后,用 Merge 方法合并两个单元格。

    Set myTable = ActiveDocument.Tables(1)

    Set myRange = ActiveDocument.Range(myTable.Cell(1, 1) _

        .Range.Start, myTable.Cell(1, 2).Range.End)

    myRange.Cells.Merge

    说明

    使用带 Rows 或 Columns 集合的 Add 方法添加一行或一列单元格。

    使用 Selection 对象的 Information 属性返回当前行号和列号。下面的示例改变选中部分第一个单元格的宽度,再显示单元格的行号和列号。

    If Selection.Information(wdWithInTable) = True Then

        With Selection

            .Cells(1).Width = 22

            MsgBox "Cell " & .Information(wdStartOfRangeRowNumber) _

                & "," & .Information(wdStartOfRangeColumnNumber)

        End With

    End If

    Row 对象

    代表表格的一行。Row 对象是 Rows 集合中的一个元素。Rows 集合包括指定部分、区域或表格中的所有行。

    使用 Row 对象

    用 Rows(index) 可返回单独的 Row 对象,其中 index 为索引序号。索引序号代表该行在选定部分、区域或表格中的位置。下列示例删除活动文档中第一张表格的首行。

    ActiveDocument.Tables(1).Rows(1).Delete

    用 Add 方法可在表格中添加行。下列示例在选定部分首行前插入一行。

    If Selection.Information(wdWithInTable) = True Then

        Selection.Rows.Add BeforeRow:=Selection.Rows(1)

    End If

    说明

    用 Cells 属性可修改 Row 对象中的单个单元格。下列示例在选定部分中添加一张表格,并在表格第二行的各单元格内插入数字。

    Selection.Collapse Direction:=wdCollapseEnd

    If Selection.Information(wdWithInTable) = False Then

        Set myTable = _

            ActiveDocument.Tables.Add(Range:=Selection.Range, _

            NumRows:=3, NumColumns:=5)

        For Each aCell In myTable.Rows(2).Cells

            i = i + 1

            aCell.Range.Text = i

        Next aCell

    End If

    访问表格行或列时产生的错误

    如果要访问绘制表格中单独的行或列,而该表格又不统一,则会产生一个运行时错误。例如,如果活动文档中第一张表格的每列中具有不同数量的行,则使用下列指令将导致出错。

    Sub RemoveTableBorders()

        ActiveDocument.Tables(1).Rows(1).Borders.Enable = False

    End Sub

    要避免这种错误可首先使用 SelectColumn  SelectRow 方法选定一列或一行中的单元格。选定单元格后,再使用 Selection 对象的 Cells 属性。下列示例选定第一张文档表格中的第一行。Cells 属性用于访问选定的单元格(第一行中的所有单元格)以删除边框。

    Sub RemoveTableBorders()

        ActiveDocument.Tables(1).Cell(1, 1).Select

        With Selection

            .SelectRow

            .Cells.Borders.Enable = False

        End With

    End Sub

    下列示例选定第一张文档表格的第一列。For Each...Next 循环语句用于在所选内容(第一列中的所有单元格)的每个单元格中添加文字。

    Sub AddTextToTableCells()

        Dim intCell As Integer

        Dim oCell As Cell

        ActiveDocument.Tables(1).Cell(1, 1).Select

        Selection.SelectColumn

        intCell = 1

        For Each oCell In Selection.Cells

            oCell.Range.Text = "Cell " & intCell

            intCell = intCell + 1

        Next oCell

    End Sub

    处理表格

    创建一张表格,插入文字,并应用格式

    下列示例在活动文档的开头插入一张 4 列 3 行的表格。For Each...Next 结构用于循环遍历表格中的每个单元格。在 For Each...Next 结构中,InsertAfter 方法用于将文字添至表格单元格(单元格 1、单元格 2、以此类推)。

    Sub CreateNewTable()

        Dim docActive As Document

        Dim tblNew As Table

        Dim celTable As Cell

        Dim intCount As Integer

        Set docActive = ActiveDocument

        Set tblNew = docActive.Tables.Add( _

            Range:=docActive.Range(Start:=0, End:=0), NumRows:=3, _

            NumColumns:=4)

        intCount = 1

        For Each celTable In tblNew.Range.Cells

            celTable.Range.InsertAfter "Cell " & intCount

            intCount = intCount + 1

        Next celTable

        tblNew.AutoFormat Format:=wdTableFormatColorful2, _

            ApplyBorders:=True, ApplyFont:=True, ApplyColor:=True

    End Sub

    在表格单元格中插入文字

    下列示例在活动文档中第一张表格的第一个单元格中插入文字。Cell 方法返回单独的 Cell 对象。Range 属性返回一个 Range 对象。Delete 方法用于删除现有的文字,而 InsertAfter 方法用于插入文字“Cell 1,1”。

    Sub InsertTextInCell()

        If ActiveDocument.Tables.Count >= 1 Then

            With ActiveDocument.Tables(1).Cell(Row:=1, Column:=1).Range

                .Delete

                .InsertAfter Text:="Cell 1,1"

               ' .text="cell 1,1" 上面两行,可以用这一行表示。

            End With

        End If

    End Sub

    返回表格单元格中的文字,不包括表格结束单元格标记

    下列示例返回并显示文档中第一张表格的第一行中每个单元格的内容。

    Sub ReturnTableText()

        Dim tblOne As Table

        Dim celTable As Cell

        Dim rngTable As Range

        Set tblOne = ActiveDocument.Tables(1)

        For Each celTable In tblOne.Rows(1).Cells

            Set rngTable = ActiveDocument.Range(Start:=celTable.Range.Start, _

                End:=celTable.Range.End - 1)         '注意这里用了-1

            MsgBox rngTable.Text

        Next celTable

    End Sub

     

    Sub ReturnCellText()

        Dim tblOne As Table

        Dim celTable As Cell

        Dim rngTable As Range

        Set tblOne = ActiveDocument.Tables(1)

        For Each celTable In tblOne.Rows(1).Cells

            Set rngTable = celTable.Range

            rngTable.MoveEnd Unit:=wdCharacter, Count:=-1

            MsgBox rngTable.Text

        Next celTable

    End Sub

     

    将文本转换为表格

    下列示例在活动文档的开头插入用制表符分隔的文本,然后将这些文本转换为表格。

    Sub ConvertExistingText()

        With Documents.Add.Content

            .InsertBefore "one" & vbTab & "two" & vbTab & "three" & vbCr

            .ConvertToTable Separator:=Chr(9), NumRows:=1, NumColumns:=3

        End With

    End Sub

     

    返回每个表格单元格的内容

    下列示例定义一个数组,该数组的元素个数等于文档中第一张表格(假定为 Option Base 1)中的单元格数。For Each...Next 结构用于返回每个表格单元格的内容,并将文字指定给相应的数组元素。

    Sub ReturnCellContentsToArray()

        Dim intCells As Integer

        Dim celTable As Cell

        Dim strCells() As String

        Dim intCount As Integer

        Dim rngText As Range

        If ActiveDocument.Tables.Count >= 1 Then

            With ActiveDocument.Tables(1).Range

                intCells = .Cells.Count

                ReDim strCells(intCells)

                intCount = 1

                For Each celTable In .Cells

                    Set rngText = celTable.Range

                    rngText.MoveEnd Unit:=wdCharacter, Count:=-1

                    strCells(intCount) = rngText

                    intCount = intCount + 1

                Next celTable

            End With

        End If

    End Sub

    (测试环境.docVBA中有更好的方法,可以参考)

    将活动文档中的所有表格复制到新文档中

    本示例将当前文档中的表格复制到新文档中。

    Sub CopyTablesToNewDoc()

        Dim docOld As Document

        Dim rngDoc As Range

        Dim tblDoc As Table

        If ActiveDocument.Tables.Count >= 1 Then

            Set docOld = ActiveDocument

            Set rngDoc = Documents.Add.Range(Start:=0, End:=0)

            For Each tblDoc In docOld.Tables

                tblDoc.Range.Copy

                With rngDoc

                    .Paste

                    .Collapse Direction:=wdCollapseEnd

                    .InsertParagraphAfter

                    .Collapse Direction:=wdCollapseEnd

                End With

            Next

        End If

    End Sub

     

    以下为我对表格的认识:(陋见)

    在“测试环境.doc”中有不少的例子(在VBA中),也有解释,

    两个文档花了我8小时以上(即一个工作日以上)

    关于表格在VBA中的相关说明:

    1.         如下图,类似于回车 在VBA中也是chr(13),竖线就是chr(7),怎么知道的?

    2.         当然是看老大们知道的。不过。在“测试环境.doc”中有相关的宏能得到这些数字。这也是授之以渔吧。

    3.         重点推荐“测试环境.doc的相关代码用了我不少功夫,慢慢体会。不懂的可以提出来。

     

    Ch(13)

    Ch(7)

     

    4.         因为chr(13)为段落标记,所以在VBA中,ActiveDocument.Paragraphs.Count测得的段落数与工具、字数统计是不一样的。

    5.         如果这样统计:表格中单元格中类似的 且不为空就为一个段落,否则不算。这就与工工具、字数统计的段落数一样了。

    6.         如果要新建一个表格,再添加一些字符(包括数字)的话,更好的方法是:先字符写入文档中(当然,要加一些标记,以便确定单元格),再利用Word的表格、转换、文字转换为表格。这样,速度快一些。有以下的代码为证。

    Sub 表格5()

    '先放到文档,再放入表格

    Dim i%, astring As String

    Dim adoc As Document

    Dim atime As Long

    Application.ScreenUpdating = False '关闭屏幕更新

    atime = Timer '设atime为正前时间

    For i = 1 To 1000

        astring = astring & i & Chr(13)

    Next

        Set adoc = Documents.Add

            adoc.Content = astring

            adoc.Range.ConvertToTable Separator:=wdSeparateByParagraphs, NumColumns:=10, _

            NumRows:=100

    Application.ScreenUpdating = True

        MsgBox "先放到文档的运行时间为:" & Timer - atime

        '1.28,1.07,1.03

    End Sub

    Sub 表格6()

    '先生成表格,再向单元格中添数

    Dim i%, astring As String

    Dim adoc As Document

    Dim atime As Long

    Dim atable As Table

    Application.ScreenUpdating = False '关闭屏幕更新

    atime = Timer '设atime为正前时间

    Set adoc = Documents.Add

    Set atable = adoc.Tables.Add(Selection.Range, 100, 10)

    With atable.Range

        For i = 1 To 1000

            .Cells(i).Range.Text = i

        Next

    End With

    Application.ScreenUpdating = True

        MsgBox "先放到文档的运行时间为:" & Timer - atime

        '16.3,15.53,15.35

    End Sub

    '几乎是15倍的差别,谁快谁慢应该大家知道了。还顺带说一话:有的软件在操作Word的表格时,就是用类似于“表格6”的方法,而且也没有用Appplication.ScreenUpdating=true。所以,看上去就像在看动画片。(例如:“青山预算之星”的“输出到Word”就是)看来,国产软件还需努力。

    7.         有些尤意末尽的,大家慢慢在程序中体会。

    8.         特别强调:微软本身的许多功能,不是一般的VBA的程序,比VBA要快很多,不明白内部是用什么语言或什么原理在工作。例如:a.邮件合并,速度奇快。如果你试着用VBA来做,速度奇慢。b.修订功能;c.工具、宏、命令listcommands的运行速度。
    等等,都是我们VBA一族所不能及的。(不过来,如果我们的VBA与微软快,微软不PK我们才怪。呵呵,阿Q精神一下,找一下心理平衡。

    展开全文
  • Word表格处理技巧

    千次阅读 2009-05-05 05:56:00
    1 文字巧妙转换成表格通常大家制作表格时,都是采用表格和边框工具...具体方法是这样:(1)按照自己的计划先将表格中的各项内容输入Word文件中,在这需注意的是,一定要利用一种特别的分隔符隔开准备产生表格线的文

     

    1 文字巧妙转换成表格

    通常大家制作表格时,都是采用表格和边框工具来绘制表格,或者利用“表格→插入→表格”命令来定制表格,请问如已输入了文字,则有没有办法让文字快速产生表格呢?

    答:有,可以用Word提供的表格与文字之间的相互转换功能完成。具体方法是这样:

    (1)按照自己的计划先将表格中的各项内容输入Word文件中,在这需注意的是,一定要利用一种特别的分隔符隔开准备产生表格列线的文字内容,该分隔符可以是逗号、制表符、空格或其他字符。

    (2)选中需产生表格的文字内容,在菜单栏单击“表格→转换→文本转换成表格”命令,在弹出的对话框中的“文字分隔符位置”选项中选逗号(一定要和输入表格内容时的分隔符一致),同时按所要的表格形式对其他选项做适当的调整。

    2 用“+”、“-”号巧制表格

    表格制作一般的Word用户都会,但如果只利用键盘上的“+”号和“-”号来快速完成表格制作,可能很多朋友都不会,它的具体操作方法又是如何进行?

    答:利用键盘上的“+”与“-”号制作表格,有时会给我们带来更高的效率。在制作前首先得明白“+”号表示下面将产生一列线条,而“-”号起到连线的作用,其具体制作方法是:首先在要插入表格的地方输入“+”号,用来制作表格顶端线条,然后再输入“-”号,用来制作横线(也可以连续输入多个“-”号,“-”号越多表格越宽),接着再输入一些“+”号(“+”号越多,列越多)。完成后再按回车键,便可马上得到一个表格。

    小提示:用此方法制作出的表格只有一行,若需制作出多行的表格,则可将光标移到表格内最后一个回车符号前,按“Tab”键或回车键(Enter),即可在表格后插入行。

    3 轻松微调行列宽度

    在Word中制作表格时,有时需要对行列宽度进行一些微调,请问除了进行表格属性外,有没有其他更方便的方法呢?

    答:在进行Word表格编辑时,如果要知道行或列的宽度,只需在按住鼠标左键调行的同时按下右键,标尺上(调整行时会在垂直标尺上显示,而在调整列时会在水平标尺上显示)就会显示出行或列的尺度。

    小提示:此时表格标尺的精确度为0.01字符。

    4 表格行列宽度调整技巧

    表格在制作完成后常需进行一些调整,而在调整中有没有技巧呢?

    答:技巧当然有,下面就给大家介绍一下如何对表格行列宽度进行调整的技巧。

    首先选中要调整的行或列,并在选择区域上单击鼠标右键,在弹出菜单中选择“表格属性”选项,然后再根据实际情况选择“行”或“列”选项卡(若要调整行高度则选择“行”选项卡,要调整列宽度则选择“列”选项卡),再选择“指定高度”复选框,然后在其后输入具体数值,完成后单击“确定”按钮便可设置完成。当然若不需达到如此精确度,也可利用鼠标拖动表格线的方式进行调整,在调整的过程中,如不想影响其他列宽度的变化,可在拖动时按住键盘上的“Shift”键;而若不想影响整个表格的宽度,可在拖动时按住“Ctrl”键。

    5 如何让文字自动适合单元格

    当在Word表格中输入文字时,很多用户都遇到过表格单元格被“挤开”的现象,请问有没有办法让文字能够根据单元格的大小而自动调整自身的大小呢?

    答:可以,只需进行一些小设置即可做到。具体设置方法是:

    (1)选中要设置自动调整的单元格。

    (2)在Word菜单栏单击“表格→表格属性”命令。

    (3)再在“表格”选项卡下单击“选项”按钮打开“表格选项”对话框,取消选择“自动重调尺寸以适应内容”复选框。

    (4)单击“确定”按钮返回“表格属性”对话框,然后选择“单元格”选项卡,再单击“选项”按钮,在新打开的对话框中选择“适应文字”复选框即可。

    6 快速缩放表格

    在Word中制作好表格后,若发现需对整个表格进行缩放,请问有没有办法一次对整个表格完成缩放?

    答:在Word 2000及Word XP中,我们只要将指针停留在表格内部任意一处,稍等片刻便可在表格右下角看到一个尺寸控点(一个小“口”字形),将鼠标指针移至该表格尺寸控点上(此时指针会变成二四象限倾斜的双向箭头),按下鼠标左箭再往需要的方向拖动表格,便可实现表格的整体缩体。

    7 表格的整体移动

    上面讲到怎样对表格进行整体缩放,那么如果要对整个表格进行位置移动,请问该如何操作呢?

    答:同样在Word 2000及Word XP中也提供了这种功能,在将指针移到表格上任意单元格上,稍等片刻便可在表格最左上端出现一个移动控点(一个小“田”字形),将鼠标移到控点上方(指针变成四个方向的箭头形时),按下鼠标左键,并移动鼠标便可将整个表格随心所欲地在文件内进行移动。

    8 表格重复标题一次设定

    在制作一些长于一页的表格时,对于标题很多朋友都采用复制粘贴的方法加上,那么有其他更好的方法吗?

    答:在Word中要实现这个功能,其实相当简单。首先选中要重复的表格标题,然后单击“表格→标题行重复”命令,此时每一页表格是不是都有标题了?但需要注意的是这个方法只适用于自动分页,对于强行分页的情况不适用。

    9 表格、文字排版技巧

    在文件中,若要对已制作好的表格及文字进行一些其他排版处理,如“环绕”,可怎样去操作?

    答:在表格上任意位置单击鼠标右键,在弹出菜单中选择“表格属性”选项,在“表格”选项卡下,我们便可以选择需要的排版方式,比如要设置为“环绕”,则可在“环绕”上单击鼠标左键选中,另外如果采用手工绘制表格,可在绘制表格之前按“Ctrl”键,这样得到的表格就有文字环绕效果。

    10 表格中文字排版技巧

    在表格中如何对文字进行设置排版方式,而采用工具栏上的那几个功能太差,有没有更好的方法进行?

    答:当然有更多更好的排版方式。如果是要对整个表格中单元格采用相同排版方式,则可先选中整个表格(如果只是对几个单元格进行设置,可分别选中这几个单元格再设置),然后在选中区上单击鼠标右键,选择快捷菜单中的“单元格对齐方式”选项,在其下一级菜单中所需要的方式上单击鼠标左键即可。

    11 巧制斜线表格

    我们经常需要绘制一些带有斜线的表格,这在Word中怎样进行绘制呢?

    答:把整个表格绘制好,然后选中需要绘制斜线的单元格,再单击“表格→绘制斜线表头”命令,在打开的“插入斜线表头”对话框中可以选择不同的表头样式,再在预览窗右侧相应栏中输入文字,完成后单击“确定”按钮即可。同时采用这种方法制作好的斜线表格,如果我们需要更进一步进行调整,则可在该单元格上单击鼠标右键,在弹出菜单中选择“组合→取消组合”选项,然后再对斜线及该单元格进行调整。

    12 快速拆分表格

    对于已制作好的表格,如果要把它拆分为两个表格,请问有没有办法?

    答:有,可以先将光标移至即将拆分成第二个表格的首行上,然后同时按“Ctrl+Shift+Enter”组合键,便可把光标前插入一空行,这样便将原来的表格分成了两个。

    13 快速合并多行(或多列)线条

    对于Word中的表格,如果要去除一行或一列线条,可以利用橡皮选择无边框线擦除,但如果是要合并连续的多行或多列,我们有没有其他更好的办法呢?

    答:好办法是有的。可以先选中要去掉线条的表格线,并在选择区其上单击鼠标右键,在弹出菜单中选择“表格属性”选项,在新打开的“表格属性”对话框中单击“表格”选项卡下的“边框和底纹”按钮,然后在打开的“边框和底纹”对话框中“预览”旁单击去除不要的相应线条按钮即可。

    14 快速设置表格排版方式

    在制作完成一个表格后,它总是以左侧为对齐点,有没有办法使其居中排版呢?

    答:方法当然有,并且相当简单。首先将指针停留在表格上任意的地方,稍等片刻,表格最左上端便会出现移动控点。再单击该移动控点,便可选中整个表格(当然也可利用行或列的选择方式进行选定),然后单击格式工具栏上的“居中”图标按钮即可使表格居中排版。

    15 快速变换表格虚实线条

    在制作好表格后,如果需要对多行或多列的表线虚化(无边框),或者是要使虚化的线条实化,请问有没有办法呢?

    答:有两种好用的方法实现:第一种方法是打开“表格和边框”对话框(直接在常用工具栏上单击“表格和边框”图标按钮即可),再在“线型”中选择“无边框”,然后在需要虚化的线条上再进行绘制一遍即可。第二种方法是选中需要虚化的表格线条,然后在其上单击鼠标右键,选择“表格属性”选项,在新打开的“表格属性”对话框中选择“表格”选项卡下的“边框和底纹”按钮,然后在打开的“边框和底纹”对话框中“设置”下选择“无”再单击“确定”按钮即可。

    16 表格内数据按小数点对齐

    单位的财会人员常要对一些表列的数据以小数点进行对齐,请问要实现它该如何操作?

    答:可利用Word的制表位功能达到目的,具体操作步骤为:首先按正常方式在Word表格中输入有关数字,然后以列为单位将需要实现按小数点对齐的单元格定义为块;再执行“视图”菜单的“标尺”命令,显示Word的标尺栏(如果用户的标尺栏处于显示状态,则可跳过此步骤);然后在该列上端标尺栏上用鼠标左键双击,打开“制表位”对话框,在“制表位”对话框的“对齐方式”列表框中选择“小数点对齐”选项,单击“确定”按钮后关闭对话窗,标尺栏上便会出现一个“小数点制表符”,此时拖动标尺栏上的“小数点制表符”,使小数点处于表格的适当位置,这样便可使该行数据以小数点对齐。

    17 表格跨页,表头自动跟随

    在制作表格时,若表格长度较长,跨过了一页时,表头每次都是采用复制的方法在另一页上进行制作,请问有没有更简单的方法实现呢,特别是在有多页时,复制起来也很麻烦?

    答:对于这个问题有很多朋友都是采用复制、粘贴的办法解决,其实可以更轻松做到的。首先选中表头,然后单击“表格→标题行重复”命令,其后多页的表头便可迅速完成。

    18 在表格中快速进行计算

    利用Word制作好一张成绩后,想对学生成绩进行求和计算,听他人讲可以利用Word自动完成,请问具体操作方法是怎样?

    答:可以,完成数据输入后,把指针移到准备输入公式的单元格,再在菜单上单击“表格→公式”命令,在“公式”文本框输入公式,再单击“确定”按钮便可得出利用该公式计算得出的数据。同时在“公式”对话框中“粘贴函数”下拉列表下有很多函数供选用,通过选择便可完成很多复杂的计算任务。

    小提示:在输入公式时,可以采用类似于Excel中的样式来引用表格中的数据。表格中的列数可用A、B、C、D……来表示,行数则可以用1、2、3、4……来表示。如“= (A3+B5)/5”即表示第一列的第3行单元格中的数据加上第二列的第5行单元格中的数据然后除以5的结果。另外在表格中进行求和计算时要注意:如果是对行(列)求和,插入点需放在此行(列)最右侧(下面)存放计算结果的单元格中,才能正确显示运算结果,否则会把插入点所在单元格的数据覆盖;而如果求和单元格的上方列和左边行都有数据时,在进行求和计算时列求和优先权大于行求和。

    19 表格中的删除小技巧

    在复制粘贴一张表格后,想对其中的数据进行删除,但不删除表格,有没有简单的方法?

    答:有,首先选中要删除的单元格中数据,再按“Del”键,便可把所有数据删除;而若在选中整行或整列、整个表格时,按“空格键”则可删除已选中的行、列或整个表格。

    20 快速删除表格中指定的行或列

    在删除Word表格中的行或列时,常采用选中,再在其上单击鼠标右键,从弹出菜单中选择“删除”选项的方法,请问有没有更快捷的方法来删除指定行或列?

    答:有,可以先把指针移到要删除的指定行或列中任一单元格中,然后按“Alt+A”组合键,接着按“D”键,再按“R”键,此时会删除光标所在的行,而按“Alt+A”组合键,依次按“D”键、“C”键,则可删除光标所在的列。同时也可以通过按住鼠标左键,拖动鼠标,选定连续的数行(或列),运用上面的组合键,进行快速操作。

    21   Word表格自动排“序号”

    在Word表格中,经常需要填写一些有规律的数据,如序号,可不可以让Word自动完成呢?

    答:可以的。首先在Word表格中选中要填序号的区域,再单击“格式→项目符号和编号”命令,在打开的“项目符号和编号”对话框中选择“编号”选项卡,根据需要选择好编号形式后,再单击框下边的“自定义”按钮,出现“自定义编号列表”对话框,在“编号格式”文本框中输入自己想要的格式形式,注意框中数字“1”不能删掉,而其后的点“.”或半圆括号“)”可去掉或变成其他样式;在“编号样式”下拉列表框中选“1,2,3,……”,“起始编号”数字框中填上序号的第一个数字,如“1”,同时还可在“编号位置”下拉列表选择对齐方式,如“左对齐”、“居中”或“右对齐”;在“字体”栏可对文字做修饰工作;完成后单击“确定”按钮,Word表格所选择的行或列中便自动填写好了想要的“序号”。

    22 一次插入多行或多列

    在制作好表格后,突然发现在表格中还需插入多行或多列,常用的是先选中要插入行或列的下一行或列,再在其上单击鼠标右键,在弹出的菜单中选择“插入行”或“插入列”选项来添加,这样在要插入多行或多列时,操作起来比较麻烦,请问有没有更好的方法一次插入呢?

    答:有,对上面运用的方法稍加改进便可做到。首先在选择行与列时,可以选择多行,即如果要插入三行,则可先一次选中三行,再在选择区上单击鼠标右键,在弹出的菜单中选择“插入行”选项即可。

    23 防止表格跨页断行

    在制作表格时,若长度跨过一页,有时便会出现断行现象,有什么办法避免吗?

    答:要防止某行单元格中的文字前后拆分在两页,在表格上单击鼠标右键,在弹出菜单中选择“表格属性”选项,再在“表格属性”对话框中选择“行”选项卡,取消选择“允许跨页断行”复选框,再单击“确定”按钮关闭属性对话框即可。

    小提示:在Word 97中则选择“表格”菜单中的“单元格高度和宽度”选项,在出现的对话框中,打开“行”选项卡,取消选择“允许跨页断行”复选框,确定后即可防止跨页断行。

    24 表格中数据快速排序

    在表格中输入数据后,如果要对它们进行排序,请问有没有快速的方法进行?

    答:首先选中要排序的列,再单击Word菜单栏中的“表格→排序”命令打开“排序”对话框,选择该列数据要按何类型排序,比如学生成绩当然是选择“数字”,再在其后设置排序方式:升序或降序,在Word中我们一次可最多对三个关键字进行排序。

    25 巧用表格制作罗列式结构图

    在Word中制作罗列式结构图时,总没有别人制作的漂亮,如不对称、上下间隔不均匀等,请问有没有办法解决这个问题呢?

    答:这是很多朋友常被困扰的“难题”,不过利用表格便可轻松解决。首先根据结构图的行、列及括符数制作出相应行、列数的表格,然后对结构图前一级文字所处的单元格选择合并,输入文字并设置为垂直居中,再在绘图工具栏插入相对应的大括符,最后再选中整个表格,在其上单击鼠标右键,选择“表格属性”选项进入,再单击“表格”选项卡下的“边框和底纹”按钮,然后在新窗口设置栏下选择“无”,单击“确定”按钮完成。

    26 如何让表格左右两边绕排文字

    想在表格左右两边绕排文字,请问除了用文本框外还有别的方法吗?

    答:如果要在表格右侧(左侧)输入文字,Word一般会提示“此操作对行结尾无效”的错误信息。这时一般可以用文本框的“绕排”来实现。其实不用文本框也可以实现。操作如下:先把该表格的最后一列(或第一列)合并成一个单元格,并且设置好该单元格只有左边(或右边)有边框,这样在该单元格输入的文字就可以绕排在表格的一边了。

    27 利用表格分栏、竖排文字

    当在编辑一个如报刊那样的文字排版效果(文字横、竖错落有致)的文件,可是用文件段落格式来排版好像效果不是很好,请问有什么更好的操作方法吗?

    答:要横、竖排版文字,我们一般是把文字独立设置成段落格式、横竖排版,但要实现报纸的那种排版效果的确不是很好操作,但我们可以利用表格分栏来实现这种灵活多样的文字排版要求。首先把各栏(块)内容分别放入根据需要绘制的一个特大表格单元格中(如和报纸版面一样大的表格),然后再合理设置好各个栏(块)内的文字排版样式,最后再设置好各个栏的边框(如无边框)等,这样就能得到如报纸上的排版效果了。

     

    28 巧用分隔法让一栏同存两表格

    在Word中建立表格时为什么无法让两个表格在同一栏,请问有没有办法让多个表格存在同一栏中?

    答:Word中的表格两侧是不能插入其他表格的,所以无法让两个表格处在同一栏上。不过我们可以把一个表格“一分为二”来间接得到双表格。具体操作如下:先选定表格中间作为“分隔”的某列,然后通过“边框和底纹”对话框中的“预览图”取消所有的横边框,就可得到“双表格”了。

    29 表格文本缩进

    在Word中编辑文件时,对于文本可以实现缩进,而对于表格中的文本,又该如何快速实现缩进呢?

    答:Word表格中的“Tab”键有特殊用途,按下“Tab”键光标会跳到下一单元格,不能实现文本的缩进。如果想让表格的文本缩进,可以按“Ctrl+Tab”组合键,光标就会像普通文本那样在表格中缩进了。

    30 如何实现表格的垂直分割

    使用“表格→拆分表格”命令可以实现表格的水平分割,有什么方法可以实现表格的垂直分割吗?

    答:可以稍加设置便可实现表格的垂直分割,具体步骤如下:首先选中分割处的那一列,然后用鼠标右键单击该列,在弹出的快捷菜单中选择“边框和底纹”选项,然后在弹出的对话框中单击“边框”选项卡,在预览区中取消该列的顶边框、中边框和底边框,最后单击“确定”按钮即完成了表格的垂直分割。

    31 巧做设置,避免表格断裂

    为什么在Word中制作表格,当表格出现跨页的情况时常会发生断裂的现象,请问如何避免由于页面原因致使表格显示断裂?

    答:只需要单击“表格→表格属性”命令,在弹出的对话框中选择“行”选项卡,并选择“允许跨页断行”复选框,单击“确定”按钮即可。

    32 巧用表格实现特殊格式要求

    在Word的“文本与表格转换”一栏中,我们曾经谈到可以利用表格的部分特殊功能实现试卷选择题的对齐输入,具体应该怎么做呢?

    答:由于一般选择题答案选项都是4个,我们可以把输入整个试卷的选择题部分看做是在制作一个4列多行的表格。将题目输入行利用“合并单元格”命令把它合并,用于输入题目内容。在答案输入行依次输入相关的答案选项。操作完成后,在“边框和底纹”对话框中取消表格的边框就可以了。

    33 快速在铅笔和擦除工具间转换

    在Word中绘制表格,常常要用到铅笔和擦除工具,单击工具按钮转换比较麻烦,有没有什么方法可以在它们之间快速转换?

    答:选中铅笔工具后,要使用擦除功能,只要按住“Shift”键即可。

    34 快速设置统一图形格式

    如果需要将多个图形设置为同一格式,有何快捷方法?

    答:和设置文本格式一样,使用“格式刷”。

     

    展开全文
  • WORD表格排版案例之论文封面 WORD表格用好也是排版的一个利器,而今天陈飞老师分享这个案例就是利用表格实现论文封面排版,这个论文封面还要用到知识点就是图片插入并且居中、文本框居中、文字各行之间如何对齐等...
  • 一、分隔单元格的方法1、用“transform: rotate(-55deg);”把一条水平线旋转一定角度就成斜线了2、利用以下命令调整分割线位置等。...二、斜下框线效果及对应html代码:1、效果:1)未加斜下框线效果:2)...
  • 前言 Word2007的“表格工具”功能区提供了大多数创建表格所需的工具。不论是看起来漂亮还是用起来方便的表格。自然地,Word2007并不能完成所有的工作。它来自你的创意,由你决定。然而,当创意陷入僵局,有时功能区...
  • Word中,如果表格框架是用虚线表示的,那么实际打印出来的表格将是A.没有任何边框B.边框线是虚线C.边框线是实线D.只有4个周边线满分:2.5 分5.网卡(网络适配器)的主要功能不包括A.将计算机连接到通信介质上B.进行电...
  • Word中设置三栏式表格

    千次阅读 2016-04-20 17:18:00
    一般期刊要求三栏式表格,我原来是选中表格,用橡皮差擦去不必要的线,但是今天发现只能查去横线,竖线一插曲格式就乱了,我想起了上图,不选“内部框线”就好了。 ...
  • 点击上方蓝字关注我们,更多惊喜等着你讲解视频1:页面布局、“插入”选项卡讲解视频2:表格部分考点梳理一、“设计”选项卡在Word2016中,将传统的“页面布局”选项卡分为了“设计”和“布局”两个选项卡。...
  • 1 回答 2021-04-23 浏览:10 分类:办公入门 回答:在Word表格中计算平均值:依次单击“插入”选项卡-“域”-“公式”-找到平均函数,输入单元格地址。 1 回答 2020-10-15 浏览:12 分类:办公入门 回答:word中在...
  • 运行任务管理器里面添加任务word2010的实验操作总结小结WORD综合排版实验一、 实验目的1、掌握在Word 2000中创建表格并对表格表格数据编辑的方法2、掌握图片、图形、艺术字和文本框的插入方法3、了解项目符号和...
  • Word表格编辑等技巧

    千次阅读 2013-11-20 17:00:13
    将插入点定位在单元格中,单击“表格→绘制斜线表头”命令,出现对话框,单击“表头样式”下拉菜单选择一种样式(共有5种可选择),分别填入“行标 题”(右上角的项目)、“列标题”(左下角的项目)和“数据标题”...
  • css中怎么使table的内部边框显示出来?怎么隐藏table所有边框设置了 cellpadding="0" border="0" cellspacing="0" 怎么还是有边框呢隐藏table所有边框有以下两种方式: 一、直接通过table的属性定义: 如下,直接给...
  • Word调封面

    2019-11-18 22:24:47
    很多手册、材料、报告的封面都有一个如下图的封面,用于填写信息,那么你想知道这个封面上的下划线是怎么对齐的吗?...3.选择需要填写的选项,点击鼠标右键,选择边框,设置【下框线】和【内部框线】就OK啦。 ...
  • RichTextBox的文本区显示网格线,效果类似于word的稿纸效果。 解决方法 1、RichTextBox添加带有网格线的背景图片 设置RichTextBox的背景图片属性,放入指定图片 2、使用GDI画线 3、设置RichTextBox的背景色为...
  • 1.excel表格的边框怎么显示不出来设置一下即可以将表格的边框调出来。...3. 或者直接点击菜单栏中的字体中的边框下拉菜单,选择所有框线选项即可。2.microsoft excel中的菜单栏为什么显示不出来了,是小的找回Exce...
  • 如何在Word中制作三线表

    千次阅读 2018-03-09 20:16:29
    Word中制作三线表的步骤: (1)在Word中插入X行Y列的表格 ...(2)全选表格,右键执行去除内部框线、左侧框线和右侧框线的操作 (3)将上下两条线设置成1.5磅,中间的线设置成0.75磅 三线表制作完成...
  • word封面下划线对齐

    2020-07-01 16:42:57
    选择右边一列,右击选择边框,选择内部框线 于是它成了现在这个鬼样子 离成功越来越近了 全选软工1717那个单元格,右击选择边框,选择下框线。 最后成了这个样子 不要慌,稍作调整 全选姓名那一行...
  • 07年计算机等级考试一级上机Word题三(4)新建文档WD044.DOC,插入文件WD043.DOC的内容,设置表格线全部为红色,外边框 1磅,表内线0.5磅,第一行与第二行之间的表格线为0.5磅窄双线。存储为文件WD044.DOC。第45题、 *...
  • 职称计算机考试Word基本应用职称计算机考试中会涉及有Word的使用,下面小编给大家整理了一些Word的基本应用,大家可以参考学习。编辑单元格编辑单元格包括选择、插入、删除、...(3)将光标置于所需选取表格的左边上...
  • word技巧

    千次阅读 2018-03-01 21:40:22
    word 高效经典教程(整理版)目录一分钟驾驭word 高效经典教程(整理版)... 6A、基础知识... 61、度量单位... 62、WORD中文字字号与磅的对应关系... 63、字体文件格式... 7B、文本编辑... 71、快速移动文档... 72、...
  • HTML 网页中要显示出来一个虚线的边框 就是一行字在边框里面,那个边框是显示出来的,程式码应该怎么写?以下文字资料是由(历史新知网...如果是表格做的的话,就加个这个程式码如果是div的话,直接就在cs...
  • 他们都是瞎回答,我也遇到了这样的问题,自己试了好多方法,终于试出来了,面上跟本搜不到正确方法,所以只能自己弄了,这次完美解决。首先,不能显示完全的页面视图先不用管,直接调成...在WORD中一个表格在一页显...
  • } } } } 运行,创建成功 二、特定格式的表格 (一)画边框线 边框线是属于样式范畴,而样式的作用范围是整个工作簿(包括所有的工作表),因此我们可以工作簿来创建样式,再给样式设置边框线 1、创建...
  • Word学习笔记分享

    千次阅读 2019-02-22 13:57:10
    第一章、Word 的常规排版 1-5 文字选择 Ctrl+鼠标选取——多选 Alt+鼠标选取——选 1-11 文字效果 为文字添加填充与边框 1-13 字体其他效果 为字体添加着重号、删除线、上下标等效果 Ctrl+D ——打开字体选项栏 1-...
  • 60个WORD使用小技巧

    千次阅读 2013-05-03 14:02:16
     在Word表格里选中要填入相同内容的单元格,单击“格式→项目符号和编号”,进入“编号”选项卡,选择任意一种样式,单击“自定义”按钮,在“自定义编号列表”窗口中“编号格式”栏内输入要填充的内容,在“编号...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 8,168
精华内容 3,267
关键字:

word表格内部框线