word_宏示例
参考:https://jingyan.baidu.com/article/870c6fc3326588b03fe4beeb.html
内容自适应
Application.Browser.Target = wdBrowseTable For i = 1 To ActiveDocument.Tables.Count ActiveDocument.Tables(i).AutoFitBehavior (wdAutoFitContent) '根据内容自动调整表格 ActiveDocument.Tables(i).AutoFitBehavior (wdAutoFitWindow) '根据窗口自动调整表格 ActiveDocument.Tables(i).Range.ParagraphFormat.Alignment = wdAlignParagraphCenter '水平居中 ActiveDocument.Tables(i).Range.ParagraphFormat.Alignment = wdCellAlignVerticalCenter '垂直居中 Next i
表格修改(清除表格内容)
Sub www()
'
' www 宏
'
'
Dim oDoc As Document
Dim oTable As Table
Dim cellLoop As Cell
Set oDoc = Documents.Open("F:\li\li\范式.docx")
Dim RowNum As Long, ColumnNum As Long, i As Long, oString As String
For Each oTable In oDoc.Tables
RowNum = oTable.Rows.Count
Column = oTable.Columns.Count
If Column >= 5 Then
For i = 1 To RowNum
oString = oTable.Cell(i, 4).Range.Text
If InStr(1, oString, "日期") = 1 Then
oTable.Cell(i, 5).Select
Selection.Delete
End If
Next
End If
Next
MsgBox "Finished!"
End Sub
表格修改(修改表格内容)
Sub www()
'
' www 宏
'
'
Dim oDoc As Document
Dim oTable As Table
Dim cellLoop As Cell
Set oDoc = Documents.Open("D:\Users\说明书.docx")
Dim RowNum As Long, ColumnNum As Long, i As Long, oString As String
For Each oTable In oDoc.Tables
RowNum = oTable.Rows.Count
Column = oTable.Columns.Count
If Column >= 5 Then
For i = 1 To RowNum
oString = oTable.Cell(i, 4).Range.Text
If InStr(1, oString, "日期") = 1 Then
oTable.Cell(i, 4).Select
Selection.TypeText Text:="DATE"
oTable.Cell(i, 5).Select
Selection.TypeText Text:="7"
End If
If InStr(1, oString, "字符串") = 1 Then
oTable.Cell(i, 4).Select
Selection.TypeText Text:="VARCHAR2"
End If
If InStr(1, oString, "整数") = 1 Then
oTable.Cell(i, 4).Select
Selection.TypeText Text:="NUMBER"
End If
If InStr(1, oString, "小数") = 1 Then
oTable.Cell(i, 4).Select
Selection.TypeText Text:="FLOAT"
End If Next
End If
Next
MsgBox "Finished!"
End Sub
比较表格中某列的值
Sub www()
'
' www 宏
'
'
Dim oDoc As Document
Dim oTable As Table
Dim cellLoop As Cell
Set oDoc = Documents.Open("F:\work\二审\详细设计参考文档\30个单位规范信息资源库docx\办公厅标准信息资源目录.docx")
Dim RowNum As Long, ColumnNum As Long, i As Long, oString As String
Dim Ostr2, Ostr3 As String
Ostr2 = "NULL"
Ostr3 = "NUL"
For Each oTable In oDoc.Tables
RowNum = oTable.Rows.Count
Column = oTable.Columns.Count
If Column = 4 Then
For i = 1 To RowNum
For j = 1 To Column
oString = oTable.Cell(i, j).Range.Text
If InStr(1, oString, "是否开放") = 1 Then
oStr = oTable.Cell(i, j).Next.Range.Text
If InStr(1, oStr, "否") = 1 Then
Ostr2 = "NO"
End If
If InStr(1, oStr, "是") = 1 Then
Ostr3 = "YES"
End If
'Selection.Delete
End If
Next
Next
End If
Next
MsgBox ("Ostr2:" + Ostr2)
MsgBox ("Ostr3:" + Ostr3)
MsgBox "Finished!"
End Sub
word_宏示例的更多相关文章
- Confluence 6 用户宏示例 - Color and Size
这个示例定义了如何向你宏中传递参数.我们将会创建一个字体样式宏,在这个宏中有 2 个参数,允许用户在这 2 个参数中指定宏中包含的字体的颜色大小. Macro name stylish Visibil ...
- Confluence 6 用户宏示例 - NoPrint
这个示例演示了如何创建一个用户宏,这个宏包括了在查看页面中显示的内容,但是不被打印. Macro name noprint Visibility Visible to all users in the ...
- Confluence 6 用户宏示例 - Hello World
下面示例显示了如何创建一个用户宏,在这个用户宏中显示文本 'Hello World!' 和任何用户在宏内容中输入的内容. Macro name helloworld Visibility Visibl ...
- 在 Excel 中如何使用宏示例删除列表中的重复项
概要:在 Microsoft Excel 中,可以创建宏来删除列表中的重复项.也可以创建宏来比较两个列表,并删除第二个列表中那些也出现在第一个(主)列表中的项目.如果您想将两个列表合并在一起,或者如果 ...
- Confluence 6 用户宏示例 - Formatted Panel
下面的用演示了如果还写一个用户宏,并在这个宏中创建一个格式化的面板,并且指定颜色.将会创建下面的面板: (Title) 注意:这个面板的标题为空,如果你没有给这个面板标题参数的话. Macro n ...
- CMake语法—普通变量与包含、宏(Normal Variable And Include、Macro)
目录 CMake语法-普通变量与包含.宏(Normal Variable And Include.Macro) 1 CMake普通变量与包含.宏示例 1.1 代码目录结构 1.2 根目录CMakeLi ...
- 【C语言】预处理、宏定义、内联函数 _
一.由源码到可执行程序的过程 1. 预处理: 源码经过预处理器的预处理变成预处理过的.i中间文件 1 gcc -E test.c -o test.i 2. 编译: 中间文件经过编译器编译形成.s的 ...
- 【C语言】预处理、宏定义、内联函数
一.由源码到可执行程序的过程 1. 预处理: 源码经过预处理器的预处理变成预处理过的.i中间文件 1 gcc -E test.c -o test.i 2. 编译: 中间文件经过编译器编译形成.s的汇编 ...
- velocity模板引擎学习(1)
velocity与freemaker.jstl并称为java web开发三大标签技术,而且velocity在codeplex上还有.net的移植版本NVelocity,(注:castle团队在gith ...
随机推荐
- 海思HI3518由于sensor对齐方式问题导致视频花屏
https://blog.csdn.net/faihung/article/details/70306446 前几天在验证一台IPC硬件时,遇到一个问题:在其它设备上视频功能运行正常的固件,烧录到客户 ...
- 20165308 预备作业3 Linux安装及学习
Linux安装及学习 Linux的安装 因为做的比较晚, 安装过程按照老师给出的步骤和同学指导并未出现很多问题,只是安装VirtualBox虚拟机增强功能时,代码没输正确,结果一直无法正确安装,后来也 ...
- [转]B树(多向平衡查找树)详解
B-树是对2-3树数据结构的扩展.它支持对保存在磁盘或者网络上的符号表进行外部查找,这些文件可能比我们以前考虑的输入要大的多(以前的输入能够保存在内存中). (B树和B+树是实现数据库的数据结构,一般 ...
- SELECT 语句语法
SELECT [ALL | DISTINCT | DISTINCTROW ] [HIGH_PRIORITY] [STRAIGHT_JOIN] [SQL_SMALL_RESULT] [SQL_BIG_R ...
- hadoop mapreduce 简单例子
本例子统计 用空格分开的单词出现数量( 这个Main.mian 启动方式是hadoop 2.0 的写法.1.0 不一样 ) 目录结构: 使用的 maven : 下面是maven 依赖. <de ...
- flume 架构设计优化
对于企业中常用的flume type 概括如下:ource(获取数据源): exec (文件) spoolingdir (文件夹) taildir(文件夹及文件的变动) kafka syslog ht ...
- 支付宝内部功能调用APP的said说明
追加: 支付宝收款码 alipayqr://platformapi/startapp?saId=20000123 微信扫一扫 weixin://scanqrcode (跳转微信扫一扫) 支付宝扫一 ...
- Django 模板语法
模板语法之变量 变量在HTML中的表示:{{var_name}} 变量取值:句点符 "." views: def index(request): import datetime s ...
- Xshell里连接VirtualBox里的Centos7
关闭虚拟机 右键虚拟机->设置->网络,连接方式选择NAT,如下图: 3.在Xshell里连接即可.
- 无法将当前工程转化成model 2.5/3.1:Cannot change version of project facet Dynamic Web Module to 2.5.
Description Resource Path Location TypeCannot change version of project facet Dynamic We ...