wordvba插入表格

1.怎么用vba实现在word中插入excel表格

Sub AA()

Dim projectno As String, projectname As String, datereceive As Date, datecomplate As Date, functionary As String

Dim arr As Object

Dim i As Long

Dim brr

projectno = ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range.Tables(1).Cell(1, 2).Range

Dim excelobject As Object

Set excelobject = GetObject("D:\Downloads\project(word)\project.xls")

Set arr = excelobject.Sheets(1).usedrange()

brr = arr

For i = 2 To UBound(brr)

If InStr(1, projectno, brr(i, 1)) > 0 Then

projectname = brr(i, 2)

datereceive = brr(i, 3)

datecomplate = brr(i, 4)

functionary = brr(i, 5)

Exit For

End If

Next i

ActiveDocument.Tables(1).Cell(1, 2).Range = projectname

ActiveDocument.Tables(1).Cell(2, 2).Range = datereceive

ActiveDocument.Tables(1).Cell(3, 2).Range = datecomplate

ActiveDocument.Tables(1).Cell(4, 2).Range = functionary

excelobject.Close False

End Sub

2.怎么用vba实现在word中插入excel表格

Sub AA()

Dim projectno As String, projectname As String, datereceive As Date, datecomplate As Date, functionary As String

Dim arr As Object

Dim i As Long

Dim brr

projectno = ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range.Tables(1).Cell(1, 2).Range

Dim excelobject As Object

Set excelobject = GetObject("D:\Downloads\project(word)\project.xls")

Set arr = excelobject.Sheets(1).usedrange()

brr = arr

For i = 2 To UBound(brr)

If InStr(1, projectno, brr(i, 1)) > 0 Then

projectname = brr(i, 2)

datereceive = brr(i, 3)

datecomplate = brr(i, 4)

functionary = brr(i, 5)

Exit For

End If

Next i

ActiveDocument.Tables(1).Cell(1, 2).Range = projectname

ActiveDocument.Tables(1).Cell(2, 2).Range = datereceive

ActiveDocument.Tables(1).Cell(3, 2).Range = datecomplate

ActiveDocument.Tables(1).Cell(4, 2).Range = functionary

excelobject.Close False

End Sub

3.怎样在Word中用VBA操作表格

1、在新工作表的Sheet1上点击右键

2、选择查看代码

3、点击倒三角，选择Worksheet

4、点击右边倒三角，选择触发方式，如BeforeDoubleClick表示在双击鼠标左键时触发

5、点击候出现如下代码框架

6、输入以下语句：Sheet1.Cells(1, 3) = Sheet1.Cells(1, 1) + Sheet1.Cells(1, 2)意为将A1、B1单元格求和并放在C1单元格

7、点击保存，然后关闭VBA窗口

8、由于A1,B1没有数据，所以C1为0

9、输入数据后，会发现即使按了回车，C1也不变，因为设置的是双击鼠标左键触发。

10、双击鼠标左键后就变了

4.VBA Word中怎么用VBA选取表格中的表格

使用VBA操作Word表格 一、生成表格 Private Sub CreateTable(mRows As Integer, mColumns) Dim mRange As Range Set mRange = ActiveDocument.Range mRange.SetRange Start:=ActiveDocument.Range.End, End:=ActiveDocument.Range.End Set SelfGenTable = ActiveDocument.Tables.Add(Range:=mRange, NumRows:=mRows, NumColumns:=mColumns) End Sub 上面过程的作用是在活动文档的末尾插入一个mRows行，mColumns列的表格。

二、在读写表格中的单元格 写入单元格使用如下代码：TableObject.Cell(Row:=curRow, Column:=curColumn).Range.InsertAfter "文本" 上面代码的做用时在curRow行，curColumn列处插入字符“文本”。其中TableObject为表格对象，如果使用了生成表格中的例子，那么可以用SelfGenTable来替代TableObject。

三、调整单元格对齐方式 水平对齐设置 Selection.ParagraphFormat.Alignment=水平对齐常数（具体的常数可以查看帮助文件的说明） 如何选择单元格？ 选定特定单元格 TableObject.Cell(Row:=1,Column:=1).Select'选定单元格1,1 选定行 TableObject.Rows(i).Select'选定第i行 选定列 TableObject.Columns(i).Select'选定第i列 选定整个表格 TableObject.Select 首先执行表格元素选择程序，然后再使用Selection.ParagraphFormat.Alignment设置对齐方式。垂直对齐方式 Selection.Cells.VerticalAlignment=垂直对齐常数 也是首先选择表格元素，可以使单个单元格，单个行、单个列或者整个表格。

似乎也可以同时选择多个单元格、多个行、多个列，有兴趣的朋友可以自行寻找答案。 四、设置表格边线类型 下面的代码对整个表格的所有边线设置成细实线： SelfGenTable.Select With Selection.Borders(wdBorderBottom).LineStyle = wdLineStyleSingle .Borders(wdBorderLeft).LineStyle = wdLineStyleSingle .Borders(wdBorderRight).LineStyle = wdLineStyleSingle .Borders(wdBorderTop).LineStyle = wdLineStyleSingle.Borders(wdBorderHorizontal).LineStyle = wdLineStyleSingle Borders(wdBorderVertical).LineStyle = wdLineStyleSingle End With 同样是对Selection进行设置，所以可以依照上面的方法对特定的单元格、行或者列的边线样式进行分别设置，这里就不再列举了。

五、调整表格尺寸 下面的代码对一个六列的表格设置宽度，宽度采用百分比宽度，从左至右的宽度百分比依次为：30,10,10,30,10,10: Dim WidthP(0 To 2) As Integer Dim j As Integer dim i as Integer WidthP(0) = 30 WidthP(1) = 10 WidthP(2) = 10 j = 0 For i = 0 To SelfGenTable.Columns.Count - 1 If j > 2 Then j = 0 End If SelfGenTable.Columns(i + 1).PreferredWidthType = wdPreferredWidthPercent SelfGenTable.Columns(i + 1).PreferredWidth = WidthP(j) j = j + 1 Next 上面的代码通过Columns的PreferredWidthType属性设置表格列宽的形式，这里选择的是百分比列宽，可以根据自己的实际情况选择其他列宽形式，然后再设置相应的数值。 表格的行高请读者以此类推（实际上我还没设置过行高，都用自动生成的就够了） =============================================== 编写操作表格的程序时需要注意，Word表格的行列起始值为1，而不是0。

=============================================== 下面是一个拆分字符串的代码，当插入表格的文本过长时，可以设定一个长度，超过这个长度就进行回车，这样保证在设定的单元格宽度内能够写下长文本。单元格的高度会自动调整以使文本能完整的显示，这也就是我为什么没有通过代码设置单元格高度的原因。

Private Function FoldText(mLen As Integer, mStr As String) As String '折叠文字函数，mLen为折叠前的文字长度，mStr为文字的内容 Dim i As Integer Dim tmpStr(0 To 1) As String '临时字符串 If Len(mStr) > mLen Then Do While Len(mStr) > mLen tmpStr(0) = Left(mStr, mLen) mStr = Right(mStr, Len(mStr) - mLen) tmpStr(1) = tmpStr(1) + tmpStr(0) + vbCrLf Loop tmpStr(1) = tmpStr(1) + mStr Else tmpStr(1) = mStr。

5.如何用vba代码将word文档中插入的表格对象内容复制到Excel中

试试下面的代码，在网上找的

Sub 宏1()

Dim wordapp As Object

Dim mydoc

Dim mypath$, myname$

Dim wdRng As Object

Dim pos1%, pos2% '定义找到的字段的首位位置

Application.DisplayAlerts = False

Set wordapp = CreateObject("word.application")

mypath = ThisWorkbook.Path & ""

myname = Dir(mypath & "*.doc*")

Set mydoc = wordapp.Documents.Open(mypath & myname)

Set wdRng = mydoc.Range

wdRng.Find.Execute （"（一）"）

pos1 = wdRng.Start

Set wdRng = mydoc.Range

wdRng.Find.Execute （"五、"）

pos2 = wdRng.Start

mydoc.Range(pos1, pos2).Copy '选中找到的两个字段中间的内容

mydoc.Close False

wordapp.Quit

Worksheets("Sheet2").Select

Range("A1").Select

ActiveSheet.Paste

Application.ScreenUpdating = True

Application.DisplayAlerts = True

End Sub

6.如何用 Word VBA 在任一选定区域插入1*1表格,既用表框起来,另有

这种事情，用录制宏就可以了

录制之前，先选定一个区域

开始录制

把选定区域内容剪切，

在当前位置插入一个表格

把剪切内容粘贴进表格

结束录制

我的 Word 2007 ，录制的结果是这样的

Sub 宏1()

Selection.Cut

ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=1, NumColumns:= _

1, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _

wdAutoFitFixed

With Selection.Tables(1)

If .Style <&gt； "网格型" Then

.Style = "网格型"

End If

.ApplyStyleHeadingRows = True

.ApplyStyleLastRow = False

.ApplyStyleFirstColumn = True

.ApplyStyleLastColumn = False

.ApplyStyleRowBands = True

.ApplyStyleColumnBands = False

End With

Selection.PasteAndFormat (wdPasteDefault)

End Sub

7.如何在excel中用vba代码添加word表格行数

先注释 On Error Resume Next 再调试

从最后一行开始添加表格可以用下面的代码

Visual Basic code

'=============追加表格=============

Set rs = myWord.Tables(1).Rows

Dim i As Integer

For i = 1 To 10

rs.Add rs(rs.Count)

Next

'===========追加表格================

转载请注明出处51数据库 » wordvba插入表格