Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.
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.
|How do I disable Enable background repagination in MS Word 2007?||2||83|
|select parts of text in a word doc OLE an pass it to another OLE field||2||46|
|Macro on Enter for text form field options.||6||56|
|word 2010 VBA macro question - Search for word, extend selection, then delete||5||39|