View Single Post
 
Old 12-02-2020, 02:47 PM
Guessed's Avatar
Guessed Guessed is offline Windows 10 Office 2016
Expert
 
Join Date: Mar 2010
Location: Canberra/Melbourne Australia
Posts: 4,159
Guessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant futureGuessed has a brilliant future
Default

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
Reply With Quote