How to Copy Data From Excel to Word Using VBA Excel Worksheet?
Tags: tocopydatafromexcelt
Published: 2021-09-04 01:54:17

---
title: How to Copy Data From Excel to Word Using VBA Excel Worksheet?
published: true
date: 2021-09-03 14:24:02 UTC
tags: ToCopyDataFromExcelT
canonical_url: https://geekexcel.com/how-to-copy-data-from-excel-to-word-using-vba-excel-worksheet/
---

In this article, you will learn the simple steps to  **copy data from Excel to Word using VBA Excel Worksheet**. Let’s get them below!! Get an official version of MS Excel from the following link: **[https://www.microsoft.com/en-in/microsoft-365/excel](https://www.microsoft.com/en-in/microsoft-365/excel)**

## The Process Of Copying Excel Data To A Word File Using Excel VBA

- Firstly, you need to **enter the sample data** in the Excel Spreadsheet.

![](https://geekexcel.com/wp-content/uploads/2021/09/Sample-data-7.png)<figcaption>Sample data</figcaption>

- Then, you have to **select the range from A1:E5**.
- Now, you have to go to the  **Developer Tab.**
- After that, you need to ** ** select the  **Visual Basic**  option under the  **Code**  section.

![](https://geekexcel.com/wp-content/uploads/2021/09/Select-Visual-Basic-1-1024x180.png)<figcaption>Select Visual Basics</figcaption>

- You have to  **copy and paste the code**  given below.

```
 'VBA Code To Write to Copy data from Excel to A Document

Sub ExcelToWord()

   'Using Early Binding

    Dim wordApp As Word.Application

    Dim mydoc As Word.Document

    'Creating a new instance of word only if there no other instances

    Set wordApp = New Word.Application

    'Making word App Visible

    wordApp.Visible = True

    'Creating a new document

    Set mydoc = wordApp.Documents.Add()

    'copying the content from excel sheet

    ThisWorkbook.Worksheets("sheet1").Range("A1:E5").Copy

    'Pasting on the document

    mydoc.Paragraphs(1).Range.PasteExcelTable _

                               LinkedToExcel:=False, _

                               WordFormatting:=False, 

                               RTF:=False

    'saving the document

    mydoc.SaveAs2 "MyDoc"

    'closing the document

    mydoc.Close

    'Emptying the Clipboard 

    CutCopyMode = False

End Sub

```

- Then, you need to  **save the code**  by selecting it and then  **close the window**.

![](https://geekexcel.com/wp-content/uploads/2021/09/Save-the-code-2-958x1024.png)<figcaption>Save the code</figcaption>

- Again, you have to go to the  **Excel Spreadsheet** , and click on the  **Developer Tab**.
- Now, you need to choose the  **Macros option**  in the Code section.

![](https://geekexcel.com/wp-content/uploads/2021/09/Choose-Macro-option-1-1024x184.png)<figcaption>Select the macro option</figcaption>

- You have to make sure that your  **macro name is selected**  and click the  **Run ** button.
- Finally, you will get the selected **Excel data** values in the  **Word document**.

![](https://geekexcel.com/wp-content/uploads/2021/09/Data-in-Word.png)<figcaption>Data in Word</figcaption>

## Verdict

In the above article, you can learn the simple steps to  **copy data from Excel to Word using VBA Excel Worksheet**. Kindly, share your  **feedback**  in the below comment section. Thanks for visiting **[Geek Excel.](https://geekexcel.com/)** Keep Learning!

**Read Also:**

- **[How to Change Font Color in Microsoft Excel 2007?](https://geekexcel.com/how-to-change-font-color-in-microsoft-excel-2007/)**
- **[Excel Formulas to Count specific word in a range ~ Easy Tutorial!!](https://geekexcel.com/excel-formulas-to-count-specific-words-in-a-range/)**
- **[Count the Times a Word Appears in a Cell or a Range in Excel Office 365!!](https://geekexcel.com/count-the-times-a-word-appears-in-a-cell-or-a-range-in-excel-office-365/)**
- **[Excel Formulas to Get the Last Word of a Text String ~ Quick Method!!](https://geekexcel.com/excel-formulas-to-get-the-last-word-of-the-text-string/)**
- **[Excel Formulas to Remove the Last Word ~ Easy Tutorial!!](https://geekexcel.com/excel-formulas-to-remove-the-last-word-easy-tutorial/)**