我们假设是在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:Users28641Desktop副本附注模板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 = wdAlignParagraphCenterxxx.ParagraphFormat.Alignment = wdAlignParagraphLeftxxx.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