VBA唏嘘戏——简单单元格的设定（实例）

由于有很多个Word文件，所以应用宏会更加方便排版，而且版式较为统一。

Sub 设置列宽()

'

'  设置列宽宏

'

'

    ActiveDocument.Tables().Cell(, ).Width =    '将Word表格的第7行第2列（即B7单元格）的宽度设为45

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width = 70.5

    ActiveDocument.Tables().Cell(, ).Range.Text = ""  '将Word的表格第7行第17列单元格（Q7单元格）的值设置为空

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width = 70.5

    ActiveDocument.Tables().Cell(, ).Range.Text = ""

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width = 70.5

    ActiveDocument.Tables().Cell(, ).Range.Text = ""

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width = 70.5

    ActiveDocument.Tables().Cell(, ).Range.Text = ""

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width = 70.5

    ActiveDocument.Tables().Cell(, ).Range.Text = ""

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width = 70.5

    ActiveDocument.Tables().Cell(, ).Range.Text = ""

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width = 70.5

    ActiveDocument.Tables().Cell(, ).Range.Text = ""

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width = 70.5

    ActiveDocument.Tables().Cell(, ).Range.Text = ""

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width =

    ActiveDocument.Tables().Cell(, ).Width = 70.5

    ActiveDocument.Tables().Cell(, ).Range.Text = ""

    ActiveDocument.Tables().AllowAutoFit = False

End Sub

VBA唏嘘戏——简单单元格的设定（实例）的更多相关文章

在Excel里用vba给合并的单元格添加注释
Excel里使用VBA对已经合并的单元格添加注释,直接使用AddComment会报: 运行时错误 '1004':应用程序定义或者对象定义错误找了很多文章都没找到怎么解决,最后发现在AddCommen ...
【VBA】快速填充单元格
在Excle中,需要填充单元格,直接下拉,然后即可填充,但是使用VBA代码又该如何实现这个呢? 代码区域 Public Sub 快速填充() Dim myRange As range Cells.Cl ...
使用VBA将Excel指定单元格数据、字符串或者图表对象插入到Word模板指定书签处
准备工作: 1.首先需要提供一个word模板,并且标记好您要插入书签的位置,定义书签的命名.如图 2.模拟您要插入的Excel原始数据和图表对象插入代码如下: Private Sub Command ...
VBA赋值给指定单元格
这是一个Range对象基本操作实例,对指定单元格赋值,然后使用弹窗获取值. 代码如下: Sub test1() Worksheets( MsgBox "工作表Sheet1内单元格A5中的值为 ...
html表格合并单元格的运用实例
效果图: 实现代码: <!DOCTYPE html><html><head><meta charset="UTF-8"><ti ...
VBA对指定单元格填充颜色并且赋值
使用VBA对指定的单元格赋值并填充颜色 ====================================================== 代码区域 ==================== ...
c# WinForm开发 DataGridView控件的各种操作总结（单元格操作，属性设置）
一.单元格内容的操作 *****// 取得当前单元格内容 Console.WriteLine(DataGridView1.CurrentCell.Value); // 取得当前单元格的列 Index ...
【表格设置】HTML中合并单元格，对列组合应用样式，适应各浏览器的内容换行
1.常用表格标签普通 <table> | <tr> | | <th ...
转：c# WinForm开发 DataGridView控件的各种操作总结（单元格操作，属性设置）
一.单元格内容的操作 *****// 取得当前单元格内容 Console.WriteLine(DataGridView1.CurrentCell.Value); // 取得当前单元格的列 Index ...

随机推荐

EX14 彩票中奖 (lottery.pas/c/cpp)
[题目描述]小明想试试运气去购买彩票,所以他开始研究彩票大乐透的玩法:超级大乐透是指由购买者从01—35共35个号码中选取5个号码为前区号码,并从01—12共12个号码中选取2个号码为后区号码组合为一 ...
[Python]实现简单决策树
基本思路: 通过香农熵来决定每一层使用哪一种标签做分类,分类后,通过多数表决法来决定该层两个节点的类别.每次消耗一个标签,所以一共需要递归"标签个数"层. # -*- coding ...
看守所、戒毒所3D指纹门禁系统解决方案
为响应"科技强警"的战略方针,华本构建了一个完整的.集成的.可靠的.易操作的高安全性门禁系统,应用于看守所.戒毒所.公安局和部队等单位,使管理更现代化.规范化,有效地预防和制止越狱 ...
Eclipse 快捷键（应用中自己总结）
调试快捷键: 1: resume(F8) 调试中用来直接跳到下一个断点 2: 用来结束JVM 3:step into (F5)跳入函数 4: step over (F6)单步执行 5:step re ...
spring+缓存
1.配置ehcache.xml <?xml version="1.0" encoding="UTF-8"?> <ehcache updateC ...
openssl pem 生成公钥和私钥及文件
openssl pem.h 中提供了关于pem格式密钥对的操作接口通常使用.pem的格式文件来保存openssl 生成的密钥对: 在终端下 cat xxx.pem 可以看到 p.p1 { margi ...
HTML/CSS总结1
1.定义网页背景颜色 <body bgcolor="背景色"> 颜色可以用2种方式表示:1. 直接指定颜色名称,如blue.2.使用十六进制数据表示如#RRGGBB,分 ...
说说ASP.NET的表单验证
FormsAuthentication是ASP.NET运行时提供的一种Web身份验证方案,以cookie为信息载体,同其它身份验证方案相比,此方案广泛应用于各类的Web应用中,其实现原理其实和具体的W ...
Scala学习（二）
二.Scala基础 1.变量:三种修饰符 -> ①val 常亮②var 变量③lazy val 惰性变量求值 2.类型 3.代码块 Block {exp1;exp2} 或 { exp1 exp2 ...
安装.Net Framework3.5
Dism /online /enable-feature /featurename:NetFX3 /All /Source:V:\sources\sxs /LimitAccess

VBA唏嘘戏——简单单元格的设定（实例）

VBA唏嘘戏——简单单元格的设定（实例）的更多相关文章

随机推荐

热门专题