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 ...

随机推荐

CocoaPods的安装和使用
一. CocoaPods简介 CocoaPods是一个用来帮助我们管理第三方依赖库的工具.在开发iOS应用时,会经常使用第三方类库,比如SDWebImage.AFNetworking等等,手动的下载与 ...
[ Arch Linux ] Arch更新源高速源整理之测速并自动排序高速源加快更新效率
方法一: 工具:rankmirrors 0x01 备份原来的源,并创建一个测试源 cd /etc/pacman.d cp mirrorlist mirrorlist.bakcp mirrorlist ...
InfoPackage的更新模式
声明:原创作品,转载时请注明文章来自SAP师太技术博客( 博/客/园www.cnblogs.com):www.cnblogs.com/jiangzhengjun,并以超链接形式标明文章原始出处,否则将 ...
linux sort,uniq,cut,wc.
文章转自 http://www.cnblogs.com/ggjucheng/archive/2013/01/13/2858385.html sort sort 命令对 File 参数指定的文件中的行排 ...
logback 配置详解（二）——appender
1.appender <appender>是<configuration>的子节点,是负责写日志的组件. <appender>有两个必要属性name和class.n ...
python pyqt4 ide eric安装
注意事项关于python,pyqt的版本笔者安装的是eric,原来电脑安装的是64位的python,32位的pyqt4,导致系统找不到pyqt,后来更换python版本为32搞定,猜测pyqt的版 ...
mac下安装 xampp 无法启动apache (转，留用)
1.查看端口是否被占用 sudo lsof -i -n 2.用终端运行xampp,查看具体的错误 sudo su /Applications/XAMPP/xamppfiles/xampp star ...
RabbitMQ之入门
生成者: #coding:utf-8 import sys import pika credentials=pika.PlainCredentials("guest"," ...
elk
http://467754239.blog.51cto.com/4878013/1700828/
AWS EC2首次使用VPS
看到AWS有免费一年的试用期,就申请了一个账号.想搭建一个自己的网站.申请之前,你还需要有一张信用卡. 申请AWS账号,登陆控制台进入AWS官网即可申请账号,进入控制台后,就可以新建一个AWS EC ...

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

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

随机推荐

热门专题