vbaword表格复制单元格格式刷

1.如何使用vba在word中复制粘贴表格

下面这段代码是实现将excel表格插入到指定word模板的指定位置。

可以参考一下。Sub 插入表格（） Dim SS As String Dim wdoc As New Word.Application Dim 当前路径， 导出路径文件名， i, j Dim Str1, Str2, Str3 Dim tarr(1 To 100, 1 To 3) Dim filepathname As String 当前路径 = ThisWorkbook.Path 最后行号 = Sheets（"数字表格"）.Range("B30").End(xlUp).Row 判断 = 0 ' 导出文件名 = "报告作品.doc" filepathname = 当前路径 & "\" & Tfile If Dir(filepathname) = "" Then '文件不存在 FileCopy 当前路径 & "\" & Sfile， 当前路径 & "\" & Tfile End If Sheets（"数字表格"）.Select For i = KShh To 最后行号 tarr(i - KShh + 1, 1) = Sheets（"数字表格"）.Cells(i, 1) tarr(i - KShh + 1, 2) = Sheets（"数字表格"）.Cells(i, 2) tarr(i - KShh + 1, 3) = Sheets（"数字表格"）.Cells(i, 3) Next i j = i - KShh '记录需替换文本个数 导出路径文件名 = 当前路径 & "\" & Tfile With wdoc '打开word文档 .Documents.Open 导出路径文件名 .Visible = True End With For i = 1 To j Str1 = tarr(i, 1) Str2 = tarr(i, 2) Str3 = tarr(i, 3) Range(Str3).Select Application.CutCopyMode = False Selection.Copy With wdoc .Selection.HomeKey Unit:=wdStory '光标置于文件首 If .Selection.Find.Execute(Str1) Then '查找到指定字符串 .Selection.Text = "" '替换字符串 .Selection.PasteExcelTable False, False, False '粘贴为表格 .Selection.WholeStory .Selection.Font.Size = 12 With .Options .DefaultBorderLineStyle = wdLineStyleSingle .DefaultBorderLineWidth = wdLineWidth050pt .DefaultBorderColor = wdColorAutomatic End With .Selection.Tables(1).PreferredWidthType = 3 .Selection.Tables(1).PreferredWidth = .CentimetersToPoints(15) End If ' wdoc.Documents.Save ' wdoc.Quit ' Set wdoc = Nothing End With Next i With wdoc '存盘后关闭WORD文档 wdoc.Documents.Save wdoc.Quit Set wdoc = Nothing End With Sheets（"首页"）.SelectEnd Sub。

2.关于vba 在word中打开excel,然后复制其中单元格的数据,粘贴回

主要代码为：

Sub test()

Set exapp = CreateObject("excel.Application")

exapp.Visible = True

Set xlsbook = exapp.Workbooks.Open("C:\ex.xls")

xlsbook.workSheets("sheet1").Rows("3:44").Copy

Selection.Paste

End Sub

3.如何在Excel中用vba实现单元格字符串格式的复制

复制sheet1表的数据及格式到sheet2

Sub 复制（）

Sheets("Sheet1").Select

Range("A3:F18").Select

Selection.Copy

Sheets("Sheet2").Select

Range("A3").Select

Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _

False, Transpose:=False

End Sub

转载请注明出处51数据库 » vbaword表格复制单元格格式刷