Sub LinkWorkBookToMsWord()Dim xlTable As ObjectDim r As Range
Set r = Worksheets("Sheet1").Range("A1", Range("B65536").End(xlUp))
Set xlTable = CreateObject("Word.Application")Let xlTable.Visible = Truer.CopyxlTable.documents.AddxlTable.Selection.PasteSpecial Link:=True, DataType:=wdPasteOLEObject, Placement:= _wdInLine, DisplayAsIcon:=FalsexlTable.activedocument.SaveAs ThisWorkbook.Path & "/" & "LinkedToWord.doc"xlTable.documents.ClosexlTable.QuitApplication.CutCopyMode = FalseEnd Sub
Tags: Excel, VBA, copy, paste, MS Word, Word,
![Inline image 1](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg-twYZhK-5GLWpg77AkiUOvFGTwlhKtHcXxlYWjgbXJpqu9eEdxDoY1JiDgPb2jNH1JAV4sBnGaOKGe-8SxSduCHmtJbf4D5SYxFXT2Lkmq3GkHRU1w64dVsgDTuQcsuq48dzGY-QzRwGQ/s1600/Signature_Andre_Luiz_Bernardes_003-720178.png)
Nenhum comentário:
Postar um comentário