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 ...
随机推荐
- 使用xfire工具搭建webservice
一个简单的项目,下载下来导入可以直接使用 https://yunpan.cn/cY8ANUAYLgy7s 访问密码 99e3
- python之路3：
class set(object): """ set() -> new empty set object set(iterable) -> new set o ...
- 兼容IE7音乐播放器之jplayer的使用
首先列出为何要写这篇随笔的原因: 1:兼容IE7 2:音乐播放器 3:任意控制播放器 1: 最近做的网站需要兼容IE7,在此之前已经写好了关于音乐播放的插件,火狐,IE8以上,以及谷歌浏览器等都可以随 ...
- SYSTick 定时器
CM3 内核的处理器,内部包含了一个 SysTick 定时器,(SysTick 的时钟源自 HCLK 的 8 分频,8个系统时钟周期systick跳一个,即8*1/72M=1/9 us)Sys ...
- 禁止从别的应用启动Activity
在Manifest.xml中设置android:exported="false"即可,如: <activity android:name=".MyAty" ...
- BLE编程中关键步骤
获取权限 <uses-permission android:name="android.permission.BLUETOOTH"/> <uses-permiss ...
- JS中函数声明与函数表达式的不同
Js中的函数声明是指下面的形式: function functionName(){ } 这样的方式来声明一个函数,而函数表达式则是类似表达式那样来声明一个函数,如 var functionName ...
- 解决yum update失败
1.yum update .yum clean.yum install操作提示 Loaded plugins: fastestmirror, langpacks Loading mirror spee ...
- logback 配置详解（二）——appender
1.appender <appender>是<configuration>的子节点,是负责写日志的组件. <appender>有两个必要属性name和class.n ...
- Zend Studio 11.0 汉化
1.Help->Install New Software2.在Work with框中复制此地址:http://download.eclipse.org/technology/babel/upda ...