[已解决][求助]东跑西问还是这里的老师热情，请帮助解决将excel内容复制到word里等问题

zzh49

回复 amulee 的帖子

半天上不了网。
回老师，就是将SHEET2里的内容（当然表里只是代表，有文字、有线头、各种符号）不变格式、字体、字号、不留网格线的复制到word中。
谢谢老师！

amulee

这个意思？

1. Sub Createword()
   
2.     Dim appWD As Object
   
3.     Dim Wd As Object
   
4.     Dim Rng As Range
   
5.     Set Rng = Sheet2.UsedRange
   
6.     If Not IsEmpty(Rng) Then
   
7.         Set appWD = CreateObject("Word.Application")
   
8.         appWD.Visible = True
   
9.         Set Wd = appWD.Documents.Add
   
10.         Rng.Copy
    
11.         Wd.ActiveWindow.Selection.PasteExcelTable False, False, False
    
12.         With Wd.Tables(1)
    
13.             .Borders(wdBorderTop).LineStyle = wdLineStyleNone
    
14.             .Borders(wdBorderLeft).LineStyle = wdLineStyleNone
    
15.             .Borders(wdBorderBottom).LineStyle = wdLineStyleNone
    
16.             .Borders(wdBorderRight).LineStyle = wdLineStyleNone
    
17.             .Borders(wdBorderHorizontal).LineStyle = wdLineStyleNone
    
18.             .Borders(wdBorderVertical).LineStyle = wdLineStyleNone
    
19.             .Borders(wdBorderDiagonalDown).LineStyle = wdLineStyleNone
    
20.             .Borders(wdBorderDiagonalUp).LineStyle = wdLineStyleNone
    
21.         End With
    
22.         Wd.SaveAs ThisWorkbook.Path & "\附件" & Sheet1.Range("A1").Value & ".doc"
    
23.         Wd.Close
    
24.         appWD.Quit
    
25.         MsgBox "Word文件创建完毕"
    
26.     Else
    
27.         MsgBox "Sheet2为空"
    
28.     End If
    
29. End Sub

复制代码

zzh49

回复 amulee 的帖子

老师，还有网格线，而且复制到word中超过了横向幅面。

amulee

为啥不在Word里面写代码？非用Excel呢？

zzh49

老师，我是用excel做的管理系统，好多时候要用到附件，word只是附件，如果一开始都预备好系统就很大，所以要用时临时建一个。我从网上搜到了一个，他没有网格线，但字体、格式、字号没有保持原样，我改不好，您可以参考。
11.rar (11.3 KB, 下载次数: 4)

2011-6-17 16:26 上传

点击文件名下载附件