Excelden worde veri aktarmak mümkün. Bunun için;
- Kodların çalışması için VBA pencerinizdeki Tools menüsünden Reference kısmından Microsoft Word Object Library kitaplığını aktif hale getirilmiş olması,
- Word belgesinin açık olması,
- Excel sayfasından veri aktarılacak alanın seçilmiş olması gerekir
Sonrada aşağıdaki makroru bir modüle yazıp excelde bir düğmeye atayın.
Sub ExceldenWordeaktar()Dim WDApp As Word.ApplicationDim WDDoc As Word.DocumentIf Not TypeName(Selection) = "Range" ThenMsgBox "Lütfen excel sayfasından aralığınızı seçiniz", vbExclamation, "Hiçbir aralık seçilmedi"ElseSet WDApp = GetObject(, "Word.Application")Set WDDoc = WDApp.ActiveDocumentSelection.CopyWDApp.Selection.PasteSpecial Link:=False, DataType:=wdPasteRTF, Placement:=wdInLine, DisplayAsIcon:=FalseSet WDDoc = NothingSet WDApp = NothingEnd IfEnd Sub