Link Data From Excel to Word Without Using Tables

MrDB4Excel

Active Member
Joined
Jan 29, 2004
Messages
348
Office Version
  1. 2013
Platform
  1. Windows
I have an Excel workbook and an MS Word document that contain email correspondence content.
The Word document contains information that is present in 3 basic lines as follows:
The first line contains an expression that includes a link code, a sent date, and a received time. This will be apparent as seen in an Xl2bb Mini Sheet and an image taken from the Word document.
The second line contains the Subject line that is relevant to a specific email message. Again, this will be apparent as seen in an Xl2bb Mini Sheet and an image taken from the Word document.
The third line is simply the message text that comes from the body area of specific email messages. This will be apparent as seen in an image of example typical locations in the Word document.

What I would like to accomplish in the Word document is to have in the first line location a link or formula that looks at the Word numbering to the left of the first line and get the relevant data from the Excel workbook per that numbering.
In addition, I would also like to get the Subject line inserted in the second line location that is also relevant to the numbering that matches the Doc # as seen in the Xl2bb Mini Sheet.
I suspect this is somewhat confusing but hopefully when the Xl2bb Mini Sheet and the Word document images are seen then it becomes clear what I am wanting.
I should note here that I suspect this can’t be done, but I wouldn’t know unless I ask. Using tables in the Word document is not what I want for a solution; thus why I think this is not possible but then there are many things about Excel and Word I am unfamiliar with regarding this endeavor.

Any help will be much appreciated.

Conversations with Roger Caymin-2021.xlsx
ABCDEFGHIJKLM
59Doc #Link CodeSenderSubjectSent Date@Rec'd TimeMonthDayDoc #Text To Copy To Relevant Word Document
601192 >21Fd11-56dodgeRe: Renovation ExplosionTue 23/Nov/2021@10:47Nov2310471192 >21Fd11-56--Message received from dodge Tue 23/Nov/2021--@--10:47
611193 >21Fd11-57dodgeRe: Benni = lost cause...Tue 23/Nov/2021@10:49Nov2310491193 >21Fd11-57--Message received from dodge Tue 23/Nov/2021--@--10:49
621194 >21Fd11-58dodgeRe: comes with old age, I guessTue 23/Nov/2021@11:16Nov2311161194 >21Fd11-58--Message received from dodge Tue 23/Nov/2021--@--11:16
631195 >21Fd11-59dodgeRe: New dataTue 23/Nov/2021@11:33Nov2311331195 >21Fd11-59--Message received from dodge Tue 23/Nov/2021--@--11:33
641196 >21Fd11-60dodgexe^xTue 23/Nov/2021@13:37Nov2313371196 >21Fd11-60--Message received from dodge Tue 23/Nov/2021--@--13:37
651199 >21Fd11-61dodgeRe: xe^xTue 23/Nov/2021@15:22Nov2315221199 >21Fd11-61--Message received from dodge Tue 23/Nov/2021--@--15:22
661202 >21Fd11-62dodgeRe: Mythical Floating BoxWed 24/Nov/2021@10:49Nov2410491202 >21Fd11-62--Message received from dodge Wed 24/Nov/2021--@--10:49
671204 >21Fd11-63dodgeRe: Better know for certainWed 24/Nov/2021@22:35Nov2422351204 >21Fd11-63--Message received from dodge Wed 24/Nov/2021--@--22:35
681205 >21Fd11-64dodgeRe: First things firstWed 24/Nov/2021@22:38Nov2422381205 >21Fd11-64--Message received from dodge Wed 24/Nov/2021--@--22:38
691207 >21Fd11-65dodgeRe: Turkey DayThu 25/Nov/2021@08:57Nov2508571207 >21Fd11-65--Message received from dodge Thu 25/Nov/2021--@--08:57
7021Fd01-66dodge@ Jan00  
7121Fd01-67dodge@ Jan00  
7221Fd01-68dodge@ Jan00  
21FdNov
Cell Formulas
RangeFormula
G60:G72G60=IF(OR(ISBLANK(J60),ISBLANK(K60)),"",VALUE(LEFT(J60,2)&":"&RIGHT(K60,2)&":00"))
H60:H72H60=TEXT(E60,"MMM")
I60:I72I60=TEXT(E60,"DD")
L60:L72L60=IF(ISBLANK(A60),"",(A60)*1)
M60:M72M60=IF(OR(ISBLANK(E60),ISBLANK(G60)),"",B60&"--Message received from dodge "&TEXT(E60+G60,"ddd dd/mmm/yyyy--\@--hh:mm"))
B60B60=TabLegend!$I$1&"Fd"&TEXT(E60,"MM-")&SUM(O58+1)
B61:B72B61=TabLegend!$I$1&"Fd"&TEXT(E61,"MM-")&SUM(O60+1)


Conversations with Roger Caymin-2021.xlsx
ABCDEFGHIJKLM
72Doc #Link CodeSenderSubjectSent Date@Rec'd TimeMonthDayDoc #Text To Copy To Relevant Word Document
731180 >21Td11-69CodgerRenovation ExplosionSun 21/Nov/2021@18:28Nov2118281180 >21Td11-69--Message sent to dodge Sun 21/Nov/2021--@--18:28
741181 >21Td11-70CodgerJoke for TylySun 21/Nov/2021@21:13Nov2121131181 >21Td11-70--Message sent to dodge Sun 21/Nov/2021--@--21:13
751184 >21Td11-71CodgerNo more than an *******Mon 22/Nov/2021@13:05Nov2213051184 >21Td11-71--Message sent to dodge Mon 22/Nov/2021--@--13:05
761185 >21Td11-72Codgercomes with old age, I guessMon 22/Nov/2021@14:12Nov2214121185 >21Td11-72--Message sent to dodge Mon 22/Nov/2021--@--14:12
771186 >21Td11-73CodgerNew dataMon 22/Nov/2021@22:18Nov2222181186 >21Td11-73--Message sent to dodge Mon 22/Nov/2021--@--22:18
781189 >21Td11-74CodgerRE: Renovation ExplosionTue 23/Nov/2021@10:21Nov2310211189 >21Td11-74--Message sent to dodge Tue 23/Nov/2021--@--10:21
791190 >21Td11-75CodgerBenni = lost cause...Tue 23/Nov/2021@10:37Nov2310371190 >21Td11-75--Message sent to dodge Tue 23/Nov/2021--@--10:37
801197 >21Td11-76CodgerRE: xe^xTue 23/Nov/2021@14:05Nov2314051197 >21Td11-76--Message sent to dodge Tue 23/Nov/2021--@--14:05
811198 >21Td11-77CodgerMythical Floating BoxTue 23/Nov/2021@14:38Nov2314381198 >21Td11-77--Message sent to dodge Tue 23/Nov/2021--@--14:38
821200 >21Td11-78CodgerBetter know for certainTue 23/Nov/2021@19:10Nov2319101200 >21Td11-78--Message sent to dodge Tue 23/Nov/2021--@--19:10
831201 >21Td11-79CodgerFirst things firstWed 24/Nov/2021@10:05Nov2410051201 >21Td11-79--Message sent to dodge Wed 24/Nov/2021--@--10:05
841203 >21Td11-80CodgerToo much drama...Wed 24/Nov/2021@12:58Nov2412581203 >21Td11-80--Message sent to dodge Wed 24/Nov/2021--@--12:58
851206 >21Td11-81CodgerTurkey DayThu 25/Nov/2021@08:35Nov2508351206 >21Td11-81--Message sent to dodge Thu 25/Nov/2021--@--08:35
8621Td01-82Codger@ Jan00  
8721Td01-83Codger@ Jan00  
21TdNov
Cell Formulas
RangeFormula
G73:G87G73=IF(OR(ISBLANK(J73),ISBLANK(K73)),"",VALUE(LEFT(J73,2)&":"&RIGHT(K73,2)&":00"))
H73:H87H73=TEXT(E73,"MMM")
I73:I87I73=TEXT(E73,"DD")
L73:L87L73=IF(ISBLANK(A73),"",(A73)*1)
M73:M87M73=IF(OR(ISBLANK(E73),ISBLANK(G73)),"",B73&"--Message sent to dodge "&TEXT(E73+G73,"ddd dd/mmm/yyyy--\@--hh:mm"))
B73B73=TabLegend!$I$1&"Td"&TEXT(E73,"MM-")&SUM(O71+1)
B74:B87B74=TabLegend!$I$1&"Td"&TEXT(E74,"MM-")&SUM(O73+1)


WordImage4ExcelDataLink.png
 

Excel Facts

Remove leading & trailing spaces
Save as CSV to remove all leading and trailing spaces. It is faster than using TRIM().
I have decided to not continue with this question and instead not use MS Word in conjunction with the excel file but rather have all content reside in the excel file.
Thus this thread is no longer needing an answer.
 
Upvote 0
I would like to delete this post as I did not notice the name of the Excel workbook which is the name of a person I do not want the MrExcel community to be privy to.
I have posted a new thread "Data mining from 2 sheets into one sheet in chronological order" in which I did notice the worksheet name and altered it to reflect a generic name, so please delete this "Link Data From Excel to Word Without Using Tables' post.
 
Upvote 0

Forum statistics

Threads
1,224,814
Messages
6,181,125
Members
453,021
Latest member
Justyna P

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top