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

随机推荐

Codeigniter文件上传类型不匹配错误
Codeigniter的文件上传类方便了我们使用PHP来处理文件上传的操作,使用起来非常简单,如下: $config['upload_path'] = './uploads/'; $config[ ...
div盒子中子元素（子元素可能是盒子，图片）中居中的三种方法
Rails中的缓存
最近学习Rails. 看到如下代码: <% if notice %> <p id="notice"><%= notice %></p> ...
java第一天
今天完成的事情: [主线] 1.什么是接口??? 接口(interface)是类与类之间的一种约定,一般而言,实现某个接口,意味着该类必须实现接口中的所有方法. 2.接口的特性. ...
RecyclerView 滑动检测（上滑 up）（下滑 down）（顶部 top）（底部 bottom）
RecyclerView 给我们的可以检测滑动事件的接口只有一个方法 recyclerview.setOnScrollListener()或者 recyclerview.addOnScroll ...
OpenCV学习笔记（二）——OpenCV环境变量配置
1．假定电脑上已经安装了VS2010程序,若没有,首先安装vs2010. 下载OpenCV,下载的文件名为"OpenCV-2.3.1-win-superpack". 2．解 ...
flask笔记1-安装
1.创建应用的根目录: 2.在根目录下创建独立的虚拟python运行环境,创建完成后当前目录会有一个文件夹,即该独立环境(使用--no-site-pachages参数将不会复制任何系统python环境 ...
Android应用中MVP开发模式
所谓MVP(Model-View-Presenter)模式.是将APP的结构分为三层: view - UI显示层 view 层主要负责: 提供UI交互在presenter的控制下修改UI. 将业务事 ...
在引用KindEditor编辑器时，运行时出现以下错误：错误46 找不到类型或命名空间名称“LitJson”(是否缺少 using 指令或程序集引用?)
将asp.net下bin文件夹下的文件LitJSON.dll拷贝到工程的bin目录下,并在工程中添加引用在后台加入: using LitJson;
DataTable Linq Example
DataTable CreateTable() { DataTable dtable = new DataTable(); DataColumn dc; //MId CId FId PId dc = ...

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

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

随机推荐

热门专题