我们假设是在word里面编程的,excel里面编程同理
【注意点总结】
1、分清你是在word里面编程的,还是在excel里面编程的。
2、如果在word里面编程操作excel的话。在编程界面的工具栏:“工具”->“引用”,找到Microsoft Excel xxx Object Library 勾选出来。不然会报错。excel里面编程同理。
【实用代码总结】
1 注释是用一个单引号
2 获取word文档中表格的数量
tablesCount = ActiveDocument.Tables.Count 'tablesCount是变量名
3 获取word文档中表格的行数、列数
'i表示第i个表格 tableRowCount = ActiveDocument.Tables(i).Range.Rows.Count '行 tableColumnCount = ActiveDocument.Tables(i).Range.Columns.Count '列
4 打开一个excel文件,存入变量
Dim ExcelApp As Object Dim wk As Object Application.ScreenUpdating = False Set ExcelApp = CreateObject("Excel.Application") '打开一个Excel程序对象 ExcelApp.Visible = Flase '不显示文件 Set wk = ExcelApp.Workbooks.Open("C:\Users\28641\Desktop\副本附注模板1.xlsx") '打开文件地址位置
5 给word文档中表格的单元格赋值
ActiveDocument.Tables(1).Cell(1, 1).Range.Text = 1
6 给excel中的单元格赋值
wk.Sheets("Sheet1").Cells(1, 1).Value = 1 ' wk是excel存入的变量名
7 设置居中、居左、居右
xxx.ParagraphFormat.Alignment = wdAlignParagraphCenter xxx.ParagraphFormat.Alignment = wdAlignParagraphLeft xxx.ParagraphFormat.Alignment = wdAlignParagraphRight
8 定义数组
arr = Array(1,2,3)
9 循环写法
For i = 0 To 4 'i从0到4 i不需要声明 '写内容 Next i
10 判断的写法
If i > 1 Then '只能写一条语句
If i > 1 Then '可以写多条语句 End If