参考: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_宏示例的更多相关文章

  1. Confluence 6 用户宏示例 - Color and Size

    这个示例定义了如何向你宏中传递参数.我们将会创建一个字体样式宏,在这个宏中有 2 个参数,允许用户在这 2 个参数中指定宏中包含的字体的颜色大小. Macro name stylish Visibil ...

  2. Confluence 6 用户宏示例 - NoPrint

    这个示例演示了如何创建一个用户宏,这个宏包括了在查看页面中显示的内容,但是不被打印. Macro name noprint Visibility Visible to all users in the ...

  3. Confluence 6 用户宏示例 - Hello World

    下面示例显示了如何创建一个用户宏,在这个用户宏中显示文本 'Hello World!' 和任何用户在宏内容中输入的内容. Macro name helloworld Visibility Visibl ...

  4. 在 Excel 中如何使用宏示例删除列表中的重复项

    概要:在 Microsoft Excel 中,可以创建宏来删除列表中的重复项.也可以创建宏来比较两个列表,并删除第二个列表中那些也出现在第一个(主)列表中的项目.如果您想将两个列表合并在一起,或者如果 ...

  5. Confluence 6 用户宏示例 - Formatted Panel

    下面的用演示了如果还写一个用户宏,并在这个宏中创建一个格式化的面板,并且指定颜色.将会创建下面的面板: (Title)   注意:这个面板的标题为空,如果你没有给这个面板标题参数的话. Macro n ...

  6. CMake语法—普通变量与包含、宏(Normal Variable And Include、Macro)

    目录 CMake语法-普通变量与包含.宏(Normal Variable And Include.Macro) 1 CMake普通变量与包含.宏示例 1.1 代码目录结构 1.2 根目录CMakeLi ...

  7. 【C语言】预处理、宏定义、内联函数 _

    一.由源码到可执行程序的过程 1. 预处理: 源码经过预处理器的预处理变成预处理过的.i中间文件   1 gcc -E test.c -o test.i 2. 编译: 中间文件经过编译器编译形成.s的 ...

  8. 【C语言】预处理、宏定义、内联函数

    一.由源码到可执行程序的过程 1. 预处理: 源码经过预处理器的预处理变成预处理过的.i中间文件 1 gcc -E test.c -o test.i 2. 编译: 中间文件经过编译器编译形成.s的汇编 ...

  9. velocity模板引擎学习(1)

    velocity与freemaker.jstl并称为java web开发三大标签技术,而且velocity在codeplex上还有.net的移植版本NVelocity,(注:castle团队在gith ...

随机推荐

  1. Jenkins发布后自动通知【钉钉】

    阅读目录 一.前言 二.使用钉钉推送的优势 三.配置 一.前言 最近使用Jenkins进行自动化部署,但是发布署后,并没有相应的通知,虽然有邮件发送通知,但是发现邮件会受限于大家接受的设置,导致不能及 ...

  2. webpack 入口:entry

    定义一个入口点就生成一个chunk.如果你只是用字符串的方式定义了一个入口点,其就被命名为main.如果你用对象的方式定义多个入口点,其就被命名为入口对象中的键值.下面两个例子是等价的: entry: ...

  3. pyspark数据准备

    鸢尾花数据集 5.1,3.5,1.4,0.2,Iris-setosa 4.9,3.0,1.4,0.2,Iris-setosa 4.7,3.2,1.3,0.2,Iris-setosa 4.6,3.1,1 ...

  4. sql查询:存在A表而不在B表中的数据

    A.B两表,找出ID字段中,存在A表,但是不存在B表的数据. 方法一:使用 not inselect distinct A.ID from A where A.ID not in (select ID ...

  5. Hadoop HDFS元数据目录分析

    元数据目录分析 在第一次部署好Hadoop集群的时候,我们需要在NameNode(NN)节点上格式化磁盘: $HADOOP_HOME/bin/hdfs namenode -format 格式化完成之后 ...

  6. 1.初步认识TypeScript

    简介:typescript是C#之父主导的一门语言,本质上是向Javascript语言添加了可选的静态类型和基于面向对象的诸多特性.相当于javascript的超集,其包含es6.由于是和C#之父创造 ...

  7. Qt中的标准对话框之QMessageBox

    1. Qt标准对话框 Qt为开发者提供了一些可复用的对话框类型 Qt提供的可复用对话框全部继承自QDialog类 Qt中的对话框的使用方式和QDialog完全一致 2. 标准对话框的使用步骤 ①定义对 ...

  8. MySQL GTID 错误处理汇总

    MySQL GTID是在传统的mysql主从复制的基础之上演化而来的产物,即通过UUID加上事务ID的方式来确保每一个事物的唯一性.这样的操作方式使得我们不再需要关心所谓的log_file和log_P ...

  9. 天朝屁民每天做T跟菜贩一样,进菜-卖菜,为伟大的菜贩精神点赞

    天朝屁民每天做T跟菜贩一样,进菜-卖菜,为伟大的菜贩精神点赞

  10. STL基础--迭代器和算法

    1 迭代器 Iterators 5种迭代器类型 随机访问迭代器: vector, deque, array // 允许的操作 vector<int> itr; itr = itr + 5; ...