点击按钮在word文本输入日期和周数 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 点击按钮在word文本输入日期和周数

共有2599人关注过本帖树形打印复制链接主题：点击按钮在word文本输入日期和周数

yangwenghd

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2707 积分：18056 威望：0 精华：0 注册：2013/4/9 10:41:00

点击按钮在word文本输入日期和周数 发帖心情

Post By：2015/9/1 0:31:00 [只看该作者]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:学习计划.rar

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

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

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

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

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

大红袍

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：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

下一主题 >> << 上一主题

主题：点击按钮在word文本输入日期和周数