Try this file.... -----Original Message----- From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] On Behalf Of amar takale Sent: Wednesday, April 02, 2014 12:22 PM To: excel-macros@googlegroups.com Subject: Re: $$Excel-Macros$$ VBA Code to Import Excel table in Word file
Dear Ravinder Actually it show like Missing: "Microsoft Word 14.0 Object Library" Attached screen shot here Regards Amar On Wed, Apr 2, 2014 at 12:09 PM, Ravinder <ravinderexcelgr...@gmail.com> wrote: > Press alt + F11 then go in tools then reference select "Microsoft > Word 14.0 Object Library" library number can b 12.0 or else. Please > see attached excel file. > > > -----Original Message----- > From: excel-macros@googlegroups.com > [mailto:excel-macros@googlegroups.com] > On Behalf Of amar takale > Sent: Wednesday, April 02, 2014 10:50 AM > To: excel-macros@googlegroups.com > Subject: Re: $$Excel-Macros$$ VBA Code to Import Excel table in Word > file > > Dear Ravinder > > Thanks for reply but how to do it.Pls give me guidance or give > modified code. > > Regards > Amar > > On Tue, Apr 1, 2014 at 9:31 PM, ravinder negi > <ravindervbacli...@gmail.com> > wrote: >> have u added the library word object library in vba >> >> >> On Mon, Mar 31, 2014 at 10:02 PM, amar takale <amartak...@gmail.com> > wrote: >>> >>> Dear Ravinder >>> >>> VBA Code not working.Attached Error Screen shot here.Pls see & guide >>> me.I have no knowledge of VBA. In excel there are no show "Microsoft >>> Word library " in Tools-reference option but show it as "Microsoft >>> Word 11.0 Object library " >>> Pls look in this issue. >>> >>> Regards >>> Amar >>> >>> >>> On Mon, Mar 31, 2014 at 5:39 PM, Ravinder >>> <ravindervbacli...@gmail.com> >>> wrote: >>> > Note:- add word library "Microsoft Word library " >>> > >>> > This is simply copy and paste value from excel to word and you >>> > need to select range (will be asked by program) which you want to >>> > transfer in word >>> > >>> > Sub Button1_Click() >>> > Dim wrd As New Word.Application >>> > Dim doc As Word.Document >>> > Dim RNG As Range >>> > Set RNG = Application.InputBox("Please Select Range to Transfer in >>> > Word:", >>> > Type:=8) >>> > >>> > Set doc = wrd.documents.Add >>> > wrd.Visible = True 'if you dont want to show wrd application then >>> > just use false instead of true RNG.Copy wrd.Selection.Paste Set >>> > tbl = doc.Tables(1) >>> > doc.SaveAs2 ThisWorkbook.Path & "\" & ActiveSheet.Name & ".doc" >>> > 'change save as path as per ur requirement >>> > >>> > End Sub >>> > >>> > -----Original Message----- >>> > From: excel-macros@googlegroups.com >>> > [mailto:excel-macros@googlegroups.com] >>> > On Behalf Of amar takale >>> > Sent: Monday, March 31, 2014 3:35 PM >>> > To: excel-macros@googlegroups.com >>> > Subject: $$Excel-Macros$$ VBA Code to Import Excel table in Word >>> > file >>> > >>> > Dear Ashish Sir, >>> > >>> > I learned many VBA work from your Code which is a lot of time >>> > saving & easy to do. Before one week on our excel forum one topic >>> > discussed as (Macro to Import Word Tables to Excel from a folder). >>> > I got code from word to excel but I required excel to word.I use >>> > excel 2003. >>> > >>> > Can you share code excel to word table as proper in one sheet with >>> > respective sheet name. >>> > >>> > I would appreciate very much if you can help me on this. >>> > >>> > Regards >>> > >>> > -- >>> > Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? >>> > It's >>> > =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ >>> > https://www.facebook.com/discussexcel >>> > >>> > FORUM RULES >>> > >>> > 1) Use concise, accurate thread titles. Poor thread titles, like >>> > Please Help, Urgent, Need Help, Formula Problem, Code Problem, and >>> > Need Advice will not get quick attention or may not be answered. >>> > 2) Don't post a question in the thread of another member. >>> > 3) Don't post questions regarding breaking or bypassing any >>> > security measure. >>> > 4) Acknowledge the responses you receive, good or bad. >>> > 5) Jobs posting is not allowed. >>> > 6) Sharing copyrighted material and their links is not allowed. >>> > >>> > NOTE : Don't ever post confidential data in a workbook. Forum >>> > owners and members are not responsible for any loss. >>> > --- >>> > You received this message because you are subscribed to the Google >>> > Groups "MS EXCEL AND VBA MACROS" group. >>> > To unsubscribe from this group and stop receiving emails from it, >>> > send an email to excel-macros+unsubscr...@googlegroups.com. >>> > To post to this group, send email to excel-macros@googlegroups.com. >>> > Visit this group at http://groups.google.com/group/excel-macros. >>> > For more options, visit https://groups.google.com/d/optout. >>> > >>> > -- >>> > Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? >>> > It's =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this >>> > forum @ https://www.facebook.com/discussexcel >>> > >>> > FORUM RULES >>> > >>> > 1) Use concise, accurate thread titles. Poor thread titles, like >>> > Please Help, Urgent, Need Help, Formula Problem, Code Problem, and >>> > Need Advice will not get quick attention or may not be answered. >>> > 2) Don't post a question in the thread of another member. >>> > 3) Don't post questions regarding breaking or bypassing any >>> > security measure. >>> > 4) Acknowledge the responses you receive, good or bad. >>> > 5) Jobs posting is not allowed. >>> > 6) Sharing copyrighted material and their links is not allowed. >>> > >>> > NOTE : Don't ever post confidential data in a workbook. Forum >>> > owners and members are not responsible for any loss. >>> > --- >>> > You received this message because you are subscribed to the Google >>> > Groups "MS EXCEL AND VBA MACROS" group. >>> > To unsubscribe from this group and stop receiving emails from it, >>> > send an email to excel-macros+unsubscr...@googlegroups.com. >>> > To post to this group, send email to excel-macros@googlegroups.com. >>> > Visit this group at http://groups.google.com/group/excel-macros. >>> > For more options, visit https://groups.google.com/d/optout. >>> >>> -- >>> Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? >>> It's >>> =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ >>> https://www.facebook.com/discussexcel >>> >>> FORUM RULES >>> >>> 1) Use concise, accurate thread titles. Poor thread titles, like >>> Please Help, Urgent, Need Help, Formula Problem, Code Problem, and >>> Need Advice will not get quick attention or may not be answered. >>> 2) Don't post a question in the thread of another member. >>> 3) Don't post questions regarding breaking or bypassing any security >>> measure. >>> 4) Acknowledge the responses you receive, good or bad. >>> 5) Jobs posting is not allowed. >>> 6) Sharing copyrighted material and their links is not allowed. >>> >>> NOTE : Don't ever post confidential data in a workbook. Forum >>> owners and members are not responsible for any loss. >>> --- >>> You received this message because you are subscribed to the Google >>> Groups "MS EXCEL AND VBA MACROS" group. >>> To unsubscribe from this group and stop receiving emails from it, >>> send an email to excel-macros+unsubscr...@googlegroups.com. >>> To post to this group, send email to excel-macros@googlegroups.com. >>> Visit this group at http://groups.google.com/group/excel-macros. >>> For more options, visit https://groups.google.com/d/optout. >> >> >> -- >> Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? >> It's >> =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ >> https://www.facebook.com/discussexcel >> >> FORUM RULES >> >> 1) Use concise, accurate thread titles. Poor thread titles, like >> Please Help, Urgent, Need Help, Formula Problem, Code Problem, and >> Need Advice will not get quick attention or may not be answered. >> 2) Don't post a question in the thread of another member. >> 3) Don't post questions regarding breaking or bypassing any security >> measure. >> 4) Acknowledge the responses you receive, good or bad. >> 5) Jobs posting is not allowed. >> 6) Sharing copyrighted material and their links is not allowed. >> >> NOTE : Don't ever post confidential data in a workbook. Forum owners >> and members are not responsible for any loss. >> --- >> You received this message because you are subscribed to the Google >> Groups "MS EXCEL AND VBA MACROS" group. >> To unsubscribe from this group and stop receiving emails from it, >> send an email to excel-macros+unsubscr...@googlegroups.com. >> To post to this group, send email to excel-macros@googlegroups.com. >> Visit this group at http://groups.google.com/group/excel-macros. >> For more options, visit https://groups.google.com/d/optout. > > -- > Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? > It's > =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ > https://www.facebook.com/discussexcel > > FORUM RULES > > 1) Use concise, accurate thread titles. Poor thread titles, like > Please Help, Urgent, Need Help, Formula Problem, Code Problem, and > Need Advice will not get quick attention or may not be answered. > 2) Don't post a question in the thread of another member. > 3) Don't post questions regarding breaking or bypassing any security > measure. > 4) Acknowledge the responses you receive, good or bad. > 5) Jobs posting is not allowed. > 6) Sharing copyrighted material and their links is not allowed. > > NOTE : Don't ever post confidential data in a workbook. Forum owners > and members are not responsible for any loss. > --- > You received this message because you are subscribed to the Google > Groups "MS EXCEL AND VBA MACROS" group. > To unsubscribe from this group and stop receiving emails from it, send > an email to excel-macros+unsubscr...@googlegroups.com. > To post to this group, send email to excel-macros@googlegroups.com. > Visit this group at http://groups.google.com/group/excel-macros. > For more options, visit https://groups.google.com/d/optout. > > -- > Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? > It's =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ > https://www.facebook.com/discussexcel > > FORUM RULES > > 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. > 2) Don't post a question in the thread of another member. > 3) Don't post questions regarding breaking or bypassing any security measure. > 4) Acknowledge the responses you receive, good or bad. > 5) Jobs posting is not allowed. > 6) Sharing copyrighted material and their links is not allowed. > > NOTE : Don't ever post confidential data in a workbook. Forum owners and members are not responsible for any loss. > --- > You received this message because you are subscribed to the Google Groups "MS EXCEL AND VBA MACROS" group. > To unsubscribe from this group and stop receiving emails from it, send an email to excel-macros+unsubscr...@googlegroups.com. > To post to this group, send email to excel-macros@googlegroups.com. > Visit this group at http://groups.google.com/group/excel-macros. > For more options, visit https://groups.google.com/d/optout. -- Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It's =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ https://www.facebook.com/discussexcel FORUM RULES 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Jobs posting is not allowed. 6) Sharing copyrighted material and their links is not allowed. NOTE : Don't ever post confidential data in a workbook. Forum owners and members are not responsible for any loss. --- You received this message because you are subscribed to the Google Groups "MS EXCEL AND VBA MACROS" group. To unsubscribe from this group and stop receiving emails from it, send an email to excel-macros+unsubscr...@googlegroups.com. To post to this group, send email to excel-macros@googlegroups.com. Visit this group at http://groups.google.com/group/excel-macros. For more options, visit https://groups.google.com/d/optout. -- Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It's =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ https://www.facebook.com/discussexcel FORUM RULES 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Jobs posting is not allowed. 6) Sharing copyrighted material and their links is not allowed. NOTE : Don't ever post confidential data in a workbook. Forum owners and members are not responsible for any loss. --- You received this message because you are subscribed to the Google Groups "MS EXCEL AND VBA MACROS" group. To unsubscribe from this group and stop receiving emails from it, send an email to excel-macros+unsubscr...@googlegroups.com. To post to this group, send email to excel-macros@googlegroups.com. Visit this group at http://groups.google.com/group/excel-macros. For more options, visit https://groups.google.com/d/optout.
EXCEL TO WORD(TBL).xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12
