excelvbaword表格

1. VBA实现将EXCEL数据导入WORD表格

给你段示例，你再接着完善你的： Dim wdApp As Word.Application '定义WORD对象 Dim wdDoc As Word.Document '定义WORD文档对象 Dim wkSheet As Worksheet '定工作表对象 Dim I As Long '实例化WORD对象 Set wdApp = New Word.Application '创建WORD文档 Set wdDoc = wdApp.Documents.Add '给工作表变量赋值 Set wkSheet = ThisWorkbook.Sheets("WriteWord") '保存新创建的WORD文档 wdDoc.SaveAs ThisWorkbook.Path & "\test.docx" wdDoc.Close '关闭新创建的WORD文档 With wdApp '打开WORD文档 .Documents.Open ThisWorkbook.Path & "\test.docx" '循环将工作表中的记录转换为WORD文档内容 For I = 2 To wkSheet.Range("a1048576").End(xlUp).Row '题头内容 .Selection.TypeText "亲爱的" & Trim(wkSheet.Cells(I, 1).Value） '根据性别确定人物称呼 If wkSheet.Cells(I, 2).Value = "男" Then .Selection.TypeText "先生：" Else .Selection.TypeText "女士："。

. 。..。

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. vba如何把word表格内容填到excel里

如果说填写，这个比较复杂，而且很难实现，因为word的VBA都是跟跟键盘操作，和界面操作有关的。

所以，如果可能，可以考虑用VBA来复制表格，然后粘贴到EXCEL中，对于比较简单的表格，内容是可以完全匹配的。首先，你要知道如何用键盘来选择整个表格，然后复制，把这些操作录制下来，然后复制代码。

如果你是要从EXCEL 的VBA 入手，那么你需要在VBA引用中添加WORD Libary 11.0 如果是从WORD的VBA入手，那么就要添加EXCEL LIBARY 11.0 (OFFICE 2007 是 12.0)然后就是需要知道EXCEL中粘贴的代码，如果我记得不错的话，是：cells(1,1).paste这个，你也可以通过录制来得到。

如果你需要知道具体的操作方案，你当然也应该吧分数提高。

4. vba如何把word表格内容填到excel里

如果说填写，这个比较复杂，而且很难实现，因为word的VBA都是跟跟键盘操作，和界面操作有关的。

所以，如果可能，可以考虑用VBA来复制表格，然后粘贴到EXCEL中，对于比较简单的表格，内容是可以完全匹配的。

首先，你要知道如何用键盘来选择整个表格，然后复制，把这些操作录制下来，然后复制代码。

如果你是要从EXCEL 的VBA 入手，那么你需要在VBA引用中添加WORD Libary 11.0 如果是从WORD的VBA入手，那么就要添加EXCEL LIBARY 11.0 (OFFICE 2007 是 12.0)

然后就是需要知道EXCEL中粘贴的代码，如果我记得不错的话，是：cells(1,1).paste

这个，你也可以通过录制来得到。

如果你需要知道具体的操作方案，你当然也应该吧分数提高。

5. excel用vba自动生成word

Sub GenDocfromExcel()'excel控制word，生成新文件，插入图片和文件名，保存'office 2003, VBA工具/引用中要勾选Microsoft Word 11.0 Object Library'office 2007, VBA工具/引用中要勾选Microsoft Word 12.0 Object Library'。

Range("A1:B13").Copy '复制当前内容Dim WordApp As Word.Application '定义变量Set WordApp = CreateObject("Word.Application") '生成WORD对象WordApp.Documents.Add '新建文件WordApp.Selection.Paste '粘贴fn$ = "D:\" & Range("b1") '生成文件名WordApp.ActiveDocument.SaveAs fn$ '保存文件WordApp.Quit '退出Set WordApp = Nothing '取消变量End Sub。

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

使用VBA操作Word表格一、生成表格Private Sub CreateTable(mRows As Integer, mColumns) Dim mRange As RangeSet mRange = ActiveDocument.RangemRange.SetRange Start:=ActiveDocument.Range.End, End:=ActiveDocument.Range.EndSet 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 = wdLineStyleSingleBorders(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 = 0For i = 0 To SelfGenTable.Columns.Count - 1 If j > 2 Then j = 0 End IfSelfGenTable.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 IntegerDim tmpStr(0 To 1) As String '临时字符串 If Len(mStr) > mLen ThenDo While Len(mStr) > mLen tmpStr(0) = Left(mStr, mLen)mStr = Right(mStr, Len(mStr) - mLen)tmpStr(1) = tmpStr(1) + tmpStr(0) + vbCrLf LooptmpStr(1) = tmpStr(1) + mStr ElsetmpStr(1) = mStr。

7. VBA实现将EXCEL数据导入WORD表格

给你段示例，你再接着完善你的：

Dim wdApp As Word.Application '定义WORD对象

Dim wdDoc As Word.Document '定义WORD文档对象

Dim wkSheet As Worksheet '定工作表对象

Dim I As Long

'实例化WORD对象

Set wdApp = New Word.Application

'创建WORD文档

Set wdDoc = wdApp.Documents.Add

'给工作表变量赋值

Set wkSheet = ThisWorkbook.Sheets("WriteWord")

'保存新创建的WORD文档

wdDoc.SaveAs ThisWorkbook.Path & "\test.docx"

wdDoc.Close '关闭新创建的WORD文档

With wdApp

'打开WORD文档

.Documents.Open ThisWorkbook.Path & "\test.docx"

'循环将工作表中的记录转换为WORD文档内容

For I = 2 To wkSheet.Range("a1048576").End(xlUp).Row

'题头内容

.Selection.TypeText "亲爱的" & Trim(wkSheet.Cells(I, 1).Value)

'根据性别确定人物称呼

If wkSheet.Cells(I, 2).Value = "男" Then

.Selection.TypeText "先生："

Else

.Selection.TypeText "女士："

. 。..

8. VBA 用excel模块复制word的表格内容

试试下面的代码：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 = TrueEnd Sub。

转载请注明出处51数据库 » excelvbaword表格