OfficeFrustration

OfficeFrustration (http://www.officefrustration.com/index.php)
-   General Discussion (http://www.officefrustration.com/forumdisplay.php?f=14)
-   -   batch convert all footnotes to endnotes in multiple word files (http://www.officefrustration.com/showthread.php?t=1126396)

Rileyol May 10th, 2017 07:33 AM

batch convert all footnotes to endnotes in multiple word files
 
hey,

I have several word documents. As the standard of the format is changed, I have to convert all the footnotes to end notes in them.

I know I can select “Convert all footnotes to endnotes” option in one word document to change it. But using this way, I have to do that one by one .

Is there any quickly way to batch convert all footnotes to endnotes in multiple word files? Thanks!

Fanni May 15th, 2017 04:58 AM

hello,

It seems there is no such fuction which can do that directly in Word. As a workaround, try to use VBA code. See below.


Sub BatchConvertFootnotesToEndnotes()
Dim objWordApplication As New Word.Application
Dim strFile As String
Dim strFolder As String

strFolder = InputBox("Enter the folder address", "Folder Address", "For example:E:\test word\test\")
strFile = Dir(strFolder & "*.doc*", vbNormal)

While strFile ""
With objWordApplication
.Documents.Open (strFolder & strFile)
.ActiveDocument.Footnotes.Convert
.ActiveDocument.Close
End With
strFile = Dir()
Wend

Set objWordApplication = Nothing

End Sub

And I also attach the article which I find this macro, hope it helps.

https://www.datanumen.com/blogs/6-wa...word-document/

Kleve October 10th, 2017 03:46 PM

Had the same problem and this worked for me. Thanks a lot for sharing Fanni.

global2016 October 11th, 2017 03:35 AM

terima kasih


All times are GMT +1. The time now is 09:19 AM.

Powered by vBulletin® Version 3.6.4
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
OfficeFrustration.com