VBA Find All, expand and place into a table

I'm hoping someone can help - the code below works for the first instance of '@' in each document however I need it to loop to find every instance of '@' in each document.

Once found in each document I need it to extend to get the full word e.g. @1234 and then enter it into the source (wdDocSrc) document table next to the document name (corresponding cell).

Thanks.

Please Login or Register  to view this content.