Word macro for selecting text and putting it in footnotes

jpkell · #16 10-30-2022, 12:21 PM

Quote:

Originally Posted by RiSta

I've already got docx. I'm not familiar with pandoc. Now I just need to move text in brackets to footnotes.

Sorry I can't help you with that, because I was the one that gmayor helped up above in this thread. Maybe they'll swoop in and help you. Good luck.

fd110 · #17 11-15-2023, 10:16 PM

Quote:

Originally Posted by gmayor

My old friend Greg jumped in and took over the thread, but to address your concerns with my original macro try

Code:

Sub Macro1()
Dim oRng As Range
Dim strText As String
Dim i As Long
    Set oRng = ActiveDocument.Range
    i = 1
    With oRng.Find
        Do While .Execute(FindText:="\[\[(*)\]\]", _
                          MatchWildcards:=True)
            strText = Replace(oRng.Text, "[", "")
            strText = Replace(strText, "]", "")
            ActiveDocument.Footnotes.Add oRng, CStr(i), strText
            oRng.Text = ""
            i = i + 1
            oRng.Collapse 0
        Loop
    End With
lbl_Exit:
    Set oRng = Nothing
    Exit Sub
End Sub

If that doesn't work for you, post a sample from the document.

That is Great but I want to keep text formatting!!!
Is it possible to keep text formatting like Bold and font type & etc???

fd110 · #18 11-17-2023, 02:32 AM

Quote:

Originally Posted by gmayor

My old friend Greg jumped in and took over the thread, but to address your concerns with my original macro try

Code:

Sub Macro1()
Dim oRng As Range
Dim strText As String
Dim i As Long
    Set oRng = ActiveDocument.Range
    i = 1
    With oRng.Find
        Do While .Execute(FindText:="\[\[(*)\]\]", _
                          MatchWildcards:=True)
            strText = Replace(oRng.Text, "[", "")
            strText = Replace(strText, "]", "")
            ActiveDocument.Footnotes.Add oRng, CStr(i), strText
            oRng.Text = ""
            i = i + 1
            oRng.Collapse 0
        Loop
    End With
lbl_Exit:
    Set oRng = Nothing
    Exit Sub
End Sub

If that doesn't work for you, post a sample from the document.

text formatting like bold & etc lost!

Guessed · #19 11-17-2023, 04:00 PM

If the text formatting is coming from the underlying paragraph style then you won't get it but local character formatting will be preserved by this modification.

Code:

Sub Macro1()
  Dim oRng As Range, oFN As Footnote, rngInner As Range
  Set oRng = ActiveDocument.Range
  With oRng.Find
    Do While .Execute(FindText:="\[\[(*)\]\]", MatchWildcards:=True)
      Set oFN = ActiveDocument.Footnotes.Add(oRng, , oRng.Text)
      Set rngInner = oRng.Duplicate
      rngInner.MoveStart Unit:=wdCharacter, Count:=2
      rngInner.MoveEnd Unit:=wdCharacter, Count:=-2
      oFN.Range.FormattedText = rngInner.FormattedText
      oRng.Text = ""
    Loop
  End With
lbl_Exit:
  Set oRng = Nothing
  Set rngInner = Nothing
  Exit Sub
End Sub

fd110 · #20 11-18-2023, 01:19 PM

thanks a lot

fd110 · #21 03-06-2024, 08:07 AM

Quote:

Originally Posted by Guessed

If the text formatting is coming from the underlying paragraph style then you won't get it but local character formatting will be preserved by this modification.

Code:

Sub Macro1()
  Dim oRng As Range, oFN As Footnote, rngInner As Range
  Set oRng = ActiveDocument.Range
  With oRng.Find
    Do While .Execute(FindText:="\[\[(*)\]\]", MatchWildcards:=True)
      Set oFN = ActiveDocument.Footnotes.Add(oRng, , oRng.Text)
      Set rngInner = oRng.Duplicate
      rngInner.MoveStart Unit:=wdCharacter, Count:=2
      rngInner.MoveEnd Unit:=wdCharacter, Count:=-2
      oFN.Range.FormattedText = rngInner.FormattedText
      oRng.Text = ""
    Loop
  End With
lbl_Exit:
  Set oRng = Nothing
  Set rngInner = Nothing
  Exit Sub
End Sub

Thank you very much, I have another problem.
I have a number of comments in the text, which will be deleted by moving the text to the footnote.
Is there a way to move those comments, for example, to the footnote number in the main text and not delete them?

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Word 2013 does not search text in footnotes unless I first click in a footnote	amz	Word	1	11-18-2015 01:56 PM
word 2007 - footnotes and text box	glggluig	Word	1	08-10-2014 04:09 AM
Putting text in color shapes	dianabanana	Word	1	04-07-2014 08:07 PM
Putting text to Excel	Leandro	Office	2	03-01-2012 11:51 PM
Selecting the macro document	lars	Word VBA	0	08-19-2010 06:06 AM