以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  点击按钮在word文本输入日期和周数  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=74038)

--  作者:yangwenghd
--  发布时间:2015/9/1 0:31:00
--  点击按钮在word文本输入日期和周数
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:学习计划.rar


问问 点击学习的时候可以把当时点学习按钮的时间显示到鼠标选择的行的最近日期列

里面吗?然后根据显示的最近日期列的日期把学习名称列里面的文字复制到表A的学习

科目列(如果鼠标移到其他行点击学习在表A学习科目列已经有文字的后面用“;”隔

开继续添加到后面)最麻烦的就是能不能打开文件夹后在当行路径列的Word文档,然

后在Word里面最后一行文字提行输入日期和星期天 感谢 感谢 

--  作者:大红袍
--  发布时间:2015/9/1 9:49:00
--  

1、http://www.foxtable.com/help/topics/2292.htm

 

2、往word文档写入文字,参考

 

Dim app As New MSWord.Application
try
    Dim fileName = "d:\\test.doc"
    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:="123456")
       app.Visible = True
catch ex As exception
    msgbox(ex.message)
    app.Quit
finally
   
End try