Results 1 to 10 of 10
  1. #1
    2 Star Lounger
    Join Date
    Jul 2002
    Location
    London, United Kingdom
    Posts
    192
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Change Comments to Footnotes (W2000 SR2)

    I have a colleague who created a document that is 150 pages long. It contains quite a number of comments. Rather than print out the comments as a separate part of the document via the print menu, he would now like the comments added as footnotes instead. <img src=/S/brickwall.gif border=0 alt=brickwall width=25 height=15>

    Is there anyway to do this other than using VB. Because as a blonde, <img src=/S/dizzy.gif border=0 alt=dizzy width=15 height=15>, I think VB stands for very blonde.

    Your help would be greatly appreciated

  2. #2
    5 Star Lounger
    Join Date
    Oct 2002
    Location
    Wellington, Wellington, New Zealand
    Posts
    621
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Change Comments to Footnotes (W2000 SR2)

    Hetty
    The short answer is No. (Given your dislike of VBA)
    It would be possible to 'learn' a cut-paste sequence that took the pain away a bit but not much.

  3. #3
    Super Moderator jscher2000's Avatar
    Join Date
    Feb 2001
    Location
    Silicon Valley, USA
    Posts
    23,112
    Thanks
    5
    Thanked 93 Times in 89 Posts

    Re: Change Comments to Footnotes (W2000 SR2)

    Actually, that's what many C programmers think VB stands for, too.

    But seriously, this is not that difficult a programming project if you record it interactively (find comment, open, copy, close, delete, insert footnote, paste, close) and then run it over and over. There certainly are fancier ways, but it's actually a nice project to get your feet wet on. Or in.

  4. #4
    5 Star Lounger
    Join Date
    Oct 2002
    Location
    Wellington, Wellington, New Zealand
    Posts
    621
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Change Comments to Footnotes (W2000 SR2)

    How do you make Word search for a comment with mouse-clicks? <img src=/S/confused.gif border=0 alt=confused width=15 height=20>

  5. #5
    Super Moderator jscher2000's Avatar
    Join Date
    Feb 2001
    Location
    Silicon Valley, USA
    Posts
    23,112
    Thanks
    5
    Thanked 93 Times in 89 Posts

    Re: Change Comments to Footnotes (W2000 SR2)

    I don't understand your question. You can do a find entirely with the mouse, and the macro recorder *should* record the find operation properly. Does it not?

    I recorded a sample macro; I admit, I mostly used keystroke shortcuts, but I don't think that should matter too much. You can play with it in the attached document. Here's the VBA:
    <pre>Sub CommentToFootnote()
    '
    ' CommentToFootnote Macro
    ' Macro recorded 11/19/2002 by Jefferson F. Scher
    ' Comments below added manually...

    'Go to top of document
    Selection.HomeKey Unit:=wdStory
    'Perform find for "comment mark"
    Selection.Find.ClearFormatting
    With Selection.Find
    .Text = "^a"
    .Replacement.Text = ""
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    'With comment mark selected, View|Comments
    ActiveWindow.View.SplitSpecial = wdPaneComments
    'Move right past the comment number
    Selection.MoveRight Unit:=wdWord, Count:=1
    'Select the comment text, but deselect the terminal paragraph marker
    Selection.MoveDown Unit:=wdParagraph, Count:=1, Extend:=wdExtend
    Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
    'Cut to clipboard
    Selection.Cut
    'Close comments pane
    ActiveWindow.ActivePane.Close
    'Delete the comment
    Selection.Delete Unit:=wdCharacter, Count:=1
    'Add a footnote (the footnote pane will open automatically to the new FN)
    ActiveDocument.Footnotes.Add Range:=Selection.Range, Reference:=""
    'Paste in the comment text
    Selection.Paste
    'Close the footnote pane
    ActiveWindow.ActivePane.Close
    End Sub</pre>

    As noted above, lots of improvements are possible, but this idea does seem to work.
    Attached Files Attached Files

  6. #6
    5 Star Lounger
    Join Date
    Oct 2002
    Location
    Wellington, Wellington, New Zealand
    Posts
    621
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Change Comments to Footnotes (W2000 SR2)

    It was a serious question. Under Word 2002 it is not possible to search for comments using the method you demonstrated.
    (The ^a search does not find comments and the search for special characters does not indicate the ability either)

  7. #7
    2 Star Lounger
    Join Date
    Jul 2002
    Location
    London, United Kingdom
    Posts
    192
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Change Comments to Footnotes (W2000 SR2)

    I copied the code over and ran a test and it worked <img src=/S/clapping.gif border=0 alt=clapping width=19 height=23>. The only oddity we had to deal with was hard returns or line breaks in the footnote section but we zapped those with a find and replace. But this solved our problem (rather his problem, it wasn't my document!!!!)

    Thank you very very much.

  8. #8
    Super Moderator jscher2000's Avatar
    Join Date
    Feb 2001
    Location
    Silicon Valley, USA
    Posts
    23,112
    Thanks
    5
    Thanked 93 Times in 89 Posts

    Re: Change Comments to Footnotes (W2000 SR2)

    Wow, is that related to moving features onto "task panes"? Does the I'm getting XP in a couple of weeks, so I will then be able to develop first hand frustration with the many changes I've heard about... how different is the XP help topic comparable to the attached from Word 2000?
    Attached Files Attached Files

  9. #9
    Super Moderator jscher2000's Avatar
    Join Date
    Feb 2001
    Location
    Silicon Valley, USA
    Posts
    23,112
    Thanks
    5
    Thanked 93 Times in 89 Posts

    Re: Change Comments to Footnotes (W2000 SR2)

    Aha, the multiple paragraphs problem occurred to me this morning. I'm glad you found a convenient fix, because coding around it would either be really messy to require a totally different approach!

  10. #10
    5 Star Lounger
    Join Date
    Oct 2002
    Location
    Wellington, Wellington, New Zealand
    Posts
    621
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Change Comments to Footnotes (W2000 SR2)

    If you're getting XP - I'd also recommend retaining 2000 (in a separately named directory such as "Office 2000"). Most things are achievable - they're just - different.
    If you use a lot of macros etc. then you may NEED 2000 now and again to achieve a result quickly. I found this to be a real issue with Excel in particular - I had to retain an old copy simply to work out what items worked in 97 (2002 gives VBA programmers no help in this backwards-compatability area).

    Sorry about the formatting - but here is the equivalent help extract from 2002

    "As specified, some codes work only if the Use wildcards option is on or off.

    Codes that work in the Find what or Replace with box
    To specify:
    Paragraph mark ()
    Type ^p (doesn

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •