Dim app As New MSWord.Application
try
Dim fileName = Tables("计划表窗口_Table7").Current("文件路径")
Dim doc = app.Documents.Open(fileName)
app.ActiveWindow.Selection.WholeStory
app.ActiveWindow.Selection.MoveRight(Unit:=1, Count:=1)
app.ActiveWindow.Selection.TypeParagraph
'app.ActiveWindow.Selection.TypeText(Text:=Date.Today & " 第" & datepart( "ww",Date.today) & "周") '只是显示日期
app.ActiveWindow.Selection.TypeText(Text:=Date.now & " 第" & datepart( "ww",Date.today) & "周")
app.Visible = True
catch ex As exception
msgbox(ex.message)
app.Quit
finally
End try
Dim fdr As DataRow = DataTables("日计划").Find("日期 = '" & Date.Today & "'")
If fdr IsNot Nothing Then
fdr("学习科目") &= Tables("计划表窗口_Table7").Current("学习名称") & ";"
End If
Tables("计划表窗口_Table7").Current("最近日期")=Date.now '记录学习时间
能在这个基础上帮忙加一个吗？
就是当 文件路径 列 （相当于这个列的文件是foxtable）后缀名是.table 的时候 打开这个文件，同时也执行红色的代码？
感谢 感谢 ，以前的这个按钮是点击后，打开这个列的 文件，然后输入内容， 想改为 直接打开，不输入内容， 然后红色代码还是执行
感谢 感谢
加好友 
发短信
Post By：2016/11/21 22:34:00 [只看该作者]
