Results 1 to 6 of 6
  1. #1
    2 Star Lounger
    Join Date
    Nov 2002
    Location
    Seattle, Washington, USA
    Posts
    116
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Footnotes in pasted Excel link (2002/SP3)

    I

  2. #2
    Plutonium Lounger
    Join Date
    Mar 2002
    Posts
    84,353
    Thanks
    0
    Thanked 29 Times in 29 Posts

    Re: Footnotes in pasted Excel link (2002/SP3)

    Excel has no footnote capability at all, and as far as I know, there is no way to insert footnotes reliably into a linked Excel table in Word.

    If you paste link the Excel table as an Excel worksheet object into Word, it is just an amorphous "blob" to Word, you cannot attach footnotes to individual cells within the table - Word simply doesn't see the individual cells.

    If you paste link as (formatted) text, you could insert footnotes in the linked table, but they will disappear as soon as the table is updated.

    The only thing you could do is put remarks or footnotes below the table.

  3. #3
    2 Star Lounger
    Join Date
    Nov 2002
    Location
    Seattle, Washington, USA
    Posts
    116
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Footnotes in pasted Excel link (2002/SP3)

    Hans, thank you for your prompt and helpful reply. I confess I'm not surprised there is no easy solution to my problem. Currently I do put remarks below the table; I think this is sufficient, but the lab team has overruled my opinion.

    Not long ago I tried a different solution: I made a Word table and summed the numbers there. The sums were correct until I inserted a footnote in one of the cells, then Word ignored everything after that cell (if I recall correctly). So it seems that in Word, footnotes are a roadblock to doing sums. Is this true?

  4. #4
    Plutonium Lounger
    Join Date
    Mar 2002
    Posts
    84,353
    Thanks
    0
    Thanked 29 Times in 29 Posts

    Re: Footnotes in pasted Excel link (2002/SP3)

    The default sum formula in a Word table is =SUM(ABOVE). Word follows its own rules when determining what "ABOVE" means - basically it includes all cells above the cell with the formula until it encounters a cell that is not purely numeric. However, you can also use Excel-style formulas such as =SUM(C1:C10). The downside is that Word tables do not have visible row numbers and column letters, so you will have to work out the cell addresses yourself.
    To modify a formula:
    - Right-click the formula result.
    - Select Toggle field codes from the popup menu.
    - You will see something like { =SUM(ABOVE) }
    - Don't mess with the curly brackets { } - they are the field boundaries, you can't type or edit them.
    - Change the formula as needed.
    - Press F9 to toggle field codes again and to update the result.

  5. #5
    2 Star Lounger
    Join Date
    Nov 2002
    Location
    Seattle, Washington, USA
    Posts
    116
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Footnotes in pasted Excel link (2002/SP3)

    Thanks! I'll try that.

  6. #6
    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: Footnotes in pasted Excel link (2002/SP3)

    You could try this, too, a macro you could add to your Table toolbar:
    <pre>Sub tblMakeSum()
    ' Insert a SUM formula into the current cell stretching from row 1 to the immediately
    ' previous row. Jefferson Scher 3 March 2005. BETA.
    With Selection
    ' Test validity of selection
    If Not .Information(wdWithInTable) Then
    MsgBox "Insert insertion point into the cell you want to have the sum, " & _
    "then try again.", vbCritical + vbOKOnly
    Exit Sub
    ElseIf .Cells.Count <> 1 Then
    MsgBox "Insert insertion point into the cell you want to have the sum, " & _
    "then try again.", vbCritical + vbOKOnly
    Exit Sub
    End If
    ' Back off from end-of-cell marker if necessary
    If (.Type <> wdSelectionIP) And (Right(.Text, 2) = Chr(13) & Chr(7)) Then
    Selection.MoveEnd wdCharacter, -1
    End If
    ' Calculate column -- only works up to 26 columns
    Dim strCol As String
    strCol = Mid("ABCDEFGHIJKLMNOPQRSTUVWXYZ", .Information(wdStartOfRangeColumnNumber), 1)
    ' Insert formula field to the selection (replaces selected text, if any)
    ActiveDocument.Fields.Add Selection.Range, wdFieldEmpty, _
    "=SUM(" & strCol & "1:" & strCol & .Information(wdStartOfRangeRowNumber) - 1 & ")", _
    False
    End With
    End Sub</pre>

    Hope this helps. Added: Forgot to mention that the point is to just replace the sum whenever you make any change to the table with a single click (or two clicks, counting the one that selects the old sum...).

Posting Permissions

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