Your code is removing the file extension from the name but you don't replace it with xlsx. I would set the name by



' Set the new filename
NewFile = Replace(ActiveDocument.Name, ".docx", ".xlsx")
NewFile = Replace(NewFile, "Final Report", "Tables")

I assume your code includes looping through all story ranges but you haven't shown us that outer loop. If that is the case then it will hit all footers as well.

__________________
Andrew Lockton
Chrysalis Design, Melbourne Australia

Thanks for the extension suggestion. I've made the appropriate edit, however I'm still getting that error at the ".SourceFullName = Replace(.SourceFullName, OldPath, NewPath)" line. I've attached the edited code, unless posting the whole text here would be easier to read?

Attached Files

FieldUpdate.zip (1.9 KB, 17 views)