Import Data from Excel into Word Automatically Using VBA 

+minyafication Thank you!

Appreciate your feedback - a great motivation.

Glad it helped! Please share the VBA tutorials with your friends too.

Thanks for the feedback.

Let me check.

I have the same question

tejakpackart@gmail.c

Check your code step by step...

You should specify the range in your code. For example instead of Worksheets(“Sheet1”).Range(“A1:D4”).Copy you would use Worksheets(“Sheet1”).Range(“A2:D4”).Copy

Thanks. Please share the Excel VBA tutorial with your friends also on social media.

Sure

Have a look at this video: ru-vid.com/video/%D0%B2%D0%B8%D0%B4%D0%B5%D0%BE-9wBJDyXp2CU.html Or www.exceltrainingvideos.com/generate-test-paper-from-question-bank-using-excel-vba/

It's not quite clear what you wish to accomplish.

@@Exceltrainingvideos thanks for getting back to me, and let me try to make my issue a bit more clear. I have excel file with common headers and multiple values for those, and I wanna create a macro, wherein those headers are kept same with field values changing for all those header records - for eg., I have below Data in MS Excel Name - a, b, c, d Date - 1, 2, 3, 4 Cost - 10, 20, 30, 40 and my expected output in MS Word name -a Date -1 Cost 10 name - b date -2 coast - 20... Hope this helps in clarifying it a bit more

First do the required action in Excel itself i.e. arrange the data according to your requirements through a copy-paste looping process and then transfer the data to MS Word using the following link: www.exceltrainingvideos.com/import-data-into-word-from-excel-using-vba/ For the copy-paste using a looping process you can search: www.exceltrainingvideos.com Tip: You may also record a macro for the process in Excel.

Did you mean Word? If yes then finding bookmarks and replacing them with appropriate data and also regenerating the same bookmarks can be done with VBA. I'll make a video on this interesting topic as and when time permits.

In the meantime you can have a look at this VBA tutorial: ru-vid.com/video/%D0%B2%D0%B8%D0%B4%D0%B5%D0%BE-8JmogVGOVho.html

@@Exceltrainingvideos Thank you very much; looking forward to seeing the video.

Query not quite clear to me. Take your time and let me know the details.

This link can help: www.thespreadsheetguru.com/blog/2014/5/22/copy-paste-an-excel-table-into-microsoft-word-with-vba

You can display the developer tab using the 'Preferences' from the 'Excel' tab.

export from Excel into Word=import into Word from Excel Please share with your friends and on social media. You can view more videos in Hindi and English at www.exceltrainingvideos.com/

No

@@Exceltrainingvideos Thank you for the answer! But it is possible with a loop`?

No

@@Exceltrainingvideos Hi sir Could you please help me ,Below code is working only for particular row only , I want to modify that to the selected row data or if double click on particular row data should transfer to word template: Option Explicit Const FilePath As String = "D:\vba\" Dim wd As New Word.Application Sub Button3_Click() Dim doc As Word.Document wd.Visible = True Dim Name As String Dim Age As String Name = ThisWorkbook.Sheets(1).Range("F11") 'value from sheet1 Age = ThisWorkbook.Sheets(1).Range("G11") Set doc = wd.Documents.Open(FilePath & "BOOKMARK.docx") Copy2word "NameField", Name Copy2word "AgeField", Age doc.Close wd.Quit 'MsgBox "Created files in " & FilePath & "!" End Sub Sub Copy2word(BookMarkName As String, Text2Type As String) 'copy each cell to relevant Word bookmark wd.Selection.GoTo What:=wdGoToBookmark, Name:=BookMarkName wd.Selection.TypeText Text2Type End Sub

The following code will guide: Sub importTableDataWord() Dim WdApp As Object, wddoc As Object Dim strDocName As String On Error Resume Next Set WdApp = GetObject(, "Word.Application") If Err.Number = 429 Then Err.Clear Set WdApp = CreateObject("Word.Application") End If WdApp.Visible = True strDocName = "C:\our-inventory\inventory.docx" If Dir(strDocName) = "" Then MsgBox "The file " & strDocName & vbCrLf & _ "was not found in the folder path" & vbCrLf & _ "C:\our-inventory\.", _ vbExclamation, _ "Sorry, that document name does not exist." Exit Sub End If WdApp.Activate Set wddoc = WdApp.Documents(strDocName) If wddoc Is Nothing Then Set wddoc = WdApp.Documents.Open(strDocName) wddoc.Activate Dim Tble As Integer Dim rowWd As Long Dim colWd As Integer Dim x As Long, y As Long x = 1 y = 1 With wddoc Tble = wddoc.tables.Count Worksheets.Add after:=Sheet1, Count:=(Tble - 1) 'MsgBox Tble If Tble = 0 Then MsgBox "No Tables found in the Word document", vbExclamation, "No Tables to Import" Exit Sub End If j = 1 For i = 1 To Tble With .tables(i) For rowWd = 1 To .Rows.Count For colWd = 1 To .Columns.Count Sheets("Sheet" & j).Cells(x, y) = WorksheetFunction.Clean(.cell(rowWd, colWd).Range.Text) y = y + 1 Next colWd y = 1 x = x + 1 Next rowWd End With j = j + 1 'y = 1 'x = 1 If j > Tble Then Exit Sub Next i End With wddoc.Close Savechanges:=False WdApp.Quit Sheet1.Range("A1").Select Set wddoc = Nothing Set WdApp = Nothing End Sub

If wddoc Is Nothing Then Set wddoc = wdapp.Documents.Open(strdocname)

? :)

for Me it was too slow, and I turn video speed to 1.5 , it was good :)

This VBA tutorial will help: ru-vid.com/video/%D0%B2%D0%B8%D0%B4%D0%B5%D0%BE-xHkI4Nn5nKA.html

@@Exceltrainingvideos thank you sir, but i need it to save as word format, pls help me.

This Excel tutorial will help: www.exceltrainingvideos.com/how-to-assign-recorded-macro-to-command-button-in-excel/ You can also search this channel.

This link will guide: www.exceltrainingvideos.com/import-data-into-word-from-excel-using-vba/

That's what you learnt. You can open the word document first and clear the earlier data before running the macro again.

This link with a sample downloadable file will help: www.exceltrainingvideos.com/import-data-into-word-from-excel-using-vba/

This link will help: www.exceltrainingvideos.com/import-data-into-word-from-excel-using-vba/ You can also download a sample file here.

Which line of code gets highlighted when you click on 'Debug'?

This website offers superb Excel solutions for Macs: www.rondebruin.nl/mac.htm

use Mail Marge

+girish tewari you can try gendo.me , it is built specifically for that

Great!

www.exceltrainingvideos.com/

Regret to inform that this video does exactly what is promised.