I have a word document that is tied to an Excel spreadsheet with a bunch of names, addresses, phone numbers, etc. When you double click a text, a box comes up that asks you to select the name, press okay, and then it fills in the information from the spreadsheet.



The document I have is setup so that the Excel document must be stored in the same location as the Word document. Is there a way to make it so that the Excel document can be stored elsewhere?

I've attached both documents.

Thank you!

S8Addresses.xlsx

Temp.docm

Your 'Main' code module has a sub named 'PopulateDynamicDDList(oCombo As ComboBox)' in which you'll find a line with:
ThisDocument.Path & Application.PathSeparator & "S8Addresses.xlsx"
you could change:
ThisDocument.Path
to any other path, or even allow the user to select a path by using:
GetFolder
combined with the following function:
Note: You might want to add some error checking if you use the function; otherwise your code is liable to crash if a valid path isn't selected.

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]

Thanks so much for the reply Paul.

I was able to update the code to replacing ThisDocument.Path to a different path. The pop up box came up, but when I selected the name and clicked okay, I received a Run-time error '5941': The requested member of the collection does not exist.

The debugger shows it's part of this sub, and the part bolded and underlined below is what came up as the error:

Sub FillCC(strTag As String, strText As String, Optional lngItem As Long = 1)
'Writes data to a targeted CC.
With ActiveDocument.SelectContentControlsByTag(strTag). Item(lngItem)
.LockContents = False
.Range.Text = Replace((Replace(strText, Chr(13) & Chr(10), Chr(11))), "|", Chr(11))
.LockContents = True
End With
lbl_Exit:
Exit Sub
End Sub

Any ideas why that could cause an error?

That error is not apparently related in any way to the change I suggested. The implication of the message is that your Active Document lacks the specified content control.

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]

Aw! It was missing one of the columns. I added the control and it worked.

Thank you so much for your help!