'删除所有可编辑的区域 ActiveDocument.DeleteAllEditableRanges wdEditorEveryone '添加可编辑区域 For Each tempTable In ActiveDocument.Tables tempTable.Range.Editors.Add wdEditorEveryone Next '选中所有可编辑区域 ActiveDocument.SelectAllEditableRanges wdEditorEveryone '删除所有可编辑的区域 ActiveDocument....
选中第一行表格,右键---表格属性---表格菜单页——边框和底纹——底纹菜单页——充填红色 完成
Sub 标准边框()Dim i As Integer, j As Integerj = Selection.Tables.CountFor i = 1 To j With Selection.Tables(i) F_其他.单倍行距 '垂直居中 Selection.Cells.VerticalAlignment = wdCellAlignVerticalCenter With .Borders(wdBorderLeft) .LineStyle = wdLineStyleSingle ...
2.我所使用的样本word文件中包含两个Table第二个Table是想要修改的 3.table.Cell(1,1).Select()用于选中这个样表的第一个单元格 4.app.Selection.MoveEnd用于获得向右多选取4个单元格,wdCell=12,用于指示按单元格移动 5.app.Selection.Cells.Shading.Texture = -10用于执行阴影底纹的设置工作,wd...
方法:1、打开这个文档,点击窗口上面的菜单“工具”-》“宏”-》“Visoual Basic编辑器”;2、在弹出的VBE窗口中点窗口上面的菜单“插入”-》“模块”;3、在VBE窗口的右下侧窗口内粘贴上如下代码:Option Explicit Sub 删除所有表格第8列()Dim tbl As Table Application.ScreenUpdating = False For ...
④ 在文档下方插入一幅剪贴画(可以任选),将环绕方式设置为紧密型,水平对齐方式设置为居中对齐。⑤ 为该文档设置打开权限密码(密码可自己设定),并将该文档以名字WD2.DOC保存在C盘下。3. 打开Word,输入如下内容:【文档开始】赵州桥 河北赵县的赵州桥又称安济桥,俗名大石桥,建于隋开皇末年,在河北...
[WD1.DOC文档结束] 按要求对文档进行编辑、排版和保存: (1):将文中的错词“负电”更正为“浮点”。将标题段文字(“浮点数的表示方法”)设置为小二号楷体GB_2312、加粗、居中、并添加黄色底纹;将正文各段文字(“浮点数是指……也有符号位。”)设置为五号黑体;各段落首行缩进2个字符,左右各缩进5个字符,段前...
2. 新建文档WD2A.DOC,插入文件WD2.DOC的内容,将正文部分复制2次,将前两段合并为一段,并将此段分为3栏,栏宽相等,栏宽为3.45厘米,栏间加分隔线。存储为文件WD2A.DOC。3. 在考生文件夹下新建文件WD2C.DOC,插入文件WD2B.DOC的内容,在底部追加一行,并将第4行设置为黄色底纹,统计1、...
(1)将文档中最后6行文字转换成一个6行3列的表格,再将表格设置文字对齐方式为垂直居中,水平对齐方式为右对齐。 (2)将表格的第一行的单元格设置成绿色底纹,再将表格内容按“商品单价”的递减次序进行排序。以原文件名保存文档。五、Excel操作题(15分) 请在“答题”菜单下选择“电子表格”菜单项,然后按照题目要求...
在word中查看,所有表格已为选中状态。Sub SelectAllTables()Dim tempTable As Table Application.ScreenUpdating = False '判断文档是否被保护 If ActiveDocument.ProtectionType = wdAllowOnlyFormFields Then MsgBox "文档已保护,此时不能选中多个表格!" Exit Sub End If '删除所有...