请问如何用Au3获取Word表格中的脚注内容

tegl

请问如何用Au3获取Word表格中“电子商务系统建设与管理”的脚注内容，如图

以下为录制的宏

Sub Macro1()
'
' Macro1 Macro
' 宏在 2016/1/4 由 User 录制
'
    With Selection
        With .FootnoteOptions
            .Location = wdBottomOfPage
            .NumberingRule = wdRestartContinuous
            .StartingNumber = 1
            .NumberStyle = wdNoteNumberStyleArabic
        End With
        .Footnotes.Add Range:=Selection.Range, Reference:=""
    End With
    Selection.TypeText Text:="注：由于2003级还未开课，大部分学生都选择不确定，因而该课程的评定成绩有特殊性。"
End Sub

tegl

另外，1楼表格的最后一列的公式如何获取，万分感谢

录制的宏
Sub Macro2()
'
' Macro1 Macro
' 宏在 2016/1/4 由 User 录制
'
    Selection.InsertFormula Formula:="=AVERAGE(LEFT)", NumberFormat:=""
End Sub

zhaoyun

等高手。。。。。。。。。。。。

ybb03

回复 2# tegl

取前四个平均数
                  电子商务        84.51        85.16        72.9         76.12        79.6725
            网络营销        90.96        89.03        77.41        83.22        85.155
供应链管理与ERP        92.25        91.61        84.51        85.16        88.3825
网上支付与电子银行        83.87        87.09        73.33        76.12        80.1025
电子商务系统建设与管理[1]        72.9        70.32        70.32        70.32        70.965

tegl

回复  tegl

取前四个平均数
                  电子商务        84.51        85.16        72.9         76.12        79.6725
          ...
ybb03 发表于 2016-1-7 09:09

我指的是如何用AU3获取单元格中的公式，如F2中的公式"=average(left)"

ybb03

你说的这个是不可能的，因为最后一列的数据是计算后输入进去的，不是用公式在表格中计算的

tegl

你说的这个是不可能的，因为最后一列的数据是计算后输入进去的，不是用公式在表格中计算的
ybb03 发表于 2016-1-7 19:58

Word中的“表格”菜单的“公式”

tegl

@kevinch  呼唤kevinch大神

kevinch

Sub test()
Dim N&, I&
With ThisDocument.Tables(1)
    For N = 1 To .Rows.Count
        For I = 1 To .Columns.Count
            If .Cell(N, I).Range.Text Like "电子商务系统建设与管理*" Then
                If .Cell(N, I).Range.Footnotes.Count > 0 Then MsgBox .Cell(N, I).Range.Footnotes(1).Range.Text
            End If
        Next I
    Next N
End With
With ThisDocument.Fields
    MsgBox .Item(.Count).Code
End With
End Sub

暂时没空写au3代码，用宏你看下，改一下就行了，另外也可以用查找的方式来处理第一个，不需要枚举

tegl

With ThisDocument.Fields
    MsgBox .Item(.Count).Code
End With

这部分不知如何转au3，这里的.count指的是fields还是item?

kevinch

thisdocument.fields(thisdocument.fields.count).code
最后一个域的代码