在word里vba中如何打开另一个word文档，并获取该文档表格里的某个单元格内的数据

Sub test()

Dim doc As Document

Set doc = DocumentsOpen("d:\某文件doc")

'打开d盘根目录下名为 某文件doc 的文档

MsgBox docTables(1)Cell(2, 3)RangeText

'显示该文档第1个表格第2行第3列的单元格的文本

End Sub

使用VBA *** 作Word表格

一、生成表格

Private Sub CreateTable(mRows As Integer, mColumns) Dim mRange As Range

Set mRange = ActiveDocumentRange

mRangeSetRange Start:=ActiveDocumentRangeEnd, End:=ActiveDocumentRangeEnd

Set SelfGenTable = ActiveDocumentTablesAdd(Range:=mRange, NumRows:=mRows, NumColumns:=mColumns) End Sub

上面过程的作用是在活动文档的末尾插入一个mRows行，mColumns列的表格。 二、在读写表格中的单元格 写入单元格使用如下代码：

TableObjectCell(Row:=curRow, Column:=curColumn)RangeInsertAfter "文本" 上面代码的做用时在curRow行，curColumn列处插入字符“文本”。

其中TableObject为表格对象，如果使用了生成表格中的例子，那么可以用SelfGenTable来替代TableObject。

三、调整单元格对齐方式 水平对齐设置

SelectionParagraphFormatAlignment=水平对齐常数（具体的常数可以查看帮助文件的说明） 如何选择单元格？ 选定特定单元格

TableObjectCell(Row:=1,Column:=1)Select’选定单元格1,1 选定行

TableObjectRows(i)Select’选定第i行 选定列

TableObjectColumns(i)Select’选定第i列 选定整个表格 TableObjectSelect

首先执行表格元素选择程序，然后再使用SelectionParagraphFormatAlignment设置对齐方式。

垂直对齐方式

SelectionCellsVerticalAlignment=垂直对齐常数

也是首先选择表格元素，可以使单个单元格，单个行、单个列或者整个表格。似乎也可以同时选择多个单元格、多个行、多个列，有兴趣的朋友可以自行寻找答案。 四、设置表格边线类型

下面的代码对整个表格的所有边线设置成细实线： SelfGenTableSelect 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 SelfGenTableColumnsCount - 1 If j > 2 Then j = 0 End If

SelfGenTableColumns(i + 1)PreferredWidthType = wdPreferredWidthPercent SelfGenTableColumns(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

以上就是关于在word里vba中如何打开另一个word文档，并获取该文档表格里的某个单元格内的数据全部的内容，包括:在word里vba中如何打开另一个word文档，并获取该文档表格里的某个单元格内的数据、VBA Word中怎么用VBA选取表格中的表格、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！