VBA在活动的Word文档光标处粘贴选中的Excel工作表范围
- 作者: 明明很清纯
- 来源: 51数据库
- 2022-08-17
Sub RangeToDocument() ' Set a VBE reference to Microsoft Word Object Library Dim WDApp As Word.Application Dim WDDoc As Word.Document ' Make sure a range is selected If Not TypeName(Selection) = "Range" Then MsgBox "Please select a worksheet range and try again.", vbExclamation, _ "No Range Selected" Else ' Reference existing instance of Word Set WDApp = GetObject(, "Word.Application") ' Reference active document Set WDDoc = WDApp.ActiveDocument ' Reference active slide ' Copy the range Selection.Copy ' Paste the range WDApp.Selection.PasteSpecial Link:=False, DataType:=wdPasteRTF, _ Placement:= wdInLine, DisplayAsIcon:=False ' Clean up Set WDDoc = Nothing Set WDApp = Nothing End If End Sub
推荐阅读