millionairefasad.blogg.se

'If it does, we convert all of the footnotes within the range (which in this case happens to be just the one footnote we are looking at).Īs noted in the comments, this only works because you are using custom markers. 'Check that the text of the footnote reference matches the character class that contains all lowercase letters. If you were using standard sequential markers you'd need a different approach. 'This only works because you are using custom marks, which can be read as regular text. 'Loop through each footnote in the document's footnotes collection. This is how I would do it: Sub ConvSomeFootnotes() So, the best approach is probably to cycle through each footnote in the document, decide if it's one you want to convert, and then convert it as a member of a footnote collection (which always only includes one note). You also can't query the number style in the way that you want to that number style would indicate Word's sequential lettered notes, not custom marks. I would be VERY grateful for some help with this! Thankyou.įor whatever reason, you cannot convert an individual footnote directly. I also tried If = wdNoteNumberStyleLowercaseLetter I'm not really a programmer, just a keen Word user. I thought stipulating the NumberStyle in the above would work it doesn't. NumberStyle = wdNoteNumberStyleLowercaseArabic NumberStyle = wdNoteNumberStyleLowercaseLetterĪ).EndnoteOptions With ActiveDocument.Range(Start:=, End:= _Ī).FootnoteOptions

I can convert all footnotes to endnotes with: Sub ConvertFootnotesEndnotesTEST() I want to convert ONLY the footnotes with letter marks, into endnotes. There are two types of custom mark: numerals and letters. I have a Word doc with lots of footnotes that are all custom marks, none automatically numbered.