Get more info about an IP address or domain name, such as organization, abuse contacts and geolocation.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Sub CopyFNTextInNewDoc() If MsgBox("This macro copies all footnotes and paste them into a new document" & vbCrLf & _ "Would you like to continue?", vbYesNo, "Copying all footnotes into a new document") = vbNo Then Exit Sub ElseIf ActiveDocument.Footnotes.count = 0 Then MsgBox "There are no footnotes in the current document", vbInformation End If Dim oDoc As Document, nDoc As Document Set oDoc = ActiveDocument Set nDoc = Documents.Add(Template:=oDoc.AttachedTemplate.FullName) nDoc.Content.FormattedText = oDoc.StoryRanges(wdFootnotesStory).FormattedText End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.