请问如何用Au3获取Word表格中的脚注内容
本帖最后由 tegl 于 2016-1-4 12:52 编辑请问如何用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 于 2016-1-7 12:07 编辑
另外，1楼表格的最后一列的公式如何获取，万分感谢录制的宏
Sub Macro2()
'
' Macro1 Macro
' 宏在 2016/1/4 由 User 录制
'
Selection.InsertFormula Formula:="=AVERAGE(LEFT)", NumberFormat:=""
End Sub 等高手。。。。。。。。。。。。 本帖最后由 ybb03 于 2016-1-7 09:13 编辑
回复 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
电子商务系统建设与管理 72.9 70.32 70.32 70.32 70.965 回复tegl
取前四个平均数
电子商务 84.51 85.16 72.9 76.12 79.6725
...
ybb03 发表于 2016-1-7 09:09 http://www.autoitx.com/images/common/back.gif
我指的是如何用AU3获取单元格中的公式，如F2中的公式"=average(left)" 你说的这个是不可能的，因为最后一列的数据是计算后输入进去的，不是用公式在表格中计算的 本帖最后由 tegl 于 2016-1-7 20:29 编辑
你说的这个是不可能的，因为最后一列的数据是计算后输入进去的，不是用公式在表格中计算的
ybb03 发表于 2016-1-7 19:58 http://www.autoitx.com/images/common/back.gif
Word中的“表格”菜单的“公式” @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代码，用宏你看下，改一下就行了，另外也可以用查找的方式来处理第一个，不需要枚举 With ThisDocument.Fields
MsgBox .Item(.Count).Code
End With
这部分不知如何转au3，这里的.count指的是fields还是item? thisdocument.fields(thisdocument.fields.count).code
最后一个域的代码
页:
[1]