请教，在word文档当前位置写入文本的代码。 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请教，在word文档当前位置写入文本的代码。

共有2717人关注过本帖树形打印复制链接主题：请教，在word文档当前位置写入文本的代码。

大红袍

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

加好友

发短信

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

Post By：2015/9/19 16:55:00 [显示全部帖子]

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:=date.Today)
     app.Visible = True
catch ex As exception
    msgbox(ex.message)
    app.Quit
finally

End try

大红袍

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

加好友

发短信

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

Post By：2015/9/19 17:22:00 [显示全部帖子]

1、word文档必须由foxtable打开，才能操控。

Dim app As New MSWord.Application
try
    vars("tempApp") = app
    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:=Date.Today)
    app.Visible = True
catch ex As exception
    msgbox(ex.message)
    app.Quit
finally

End try

2、写入内容

vars("tempApp").ActiveWindow.Selection.TypeText(Text:="12345")

大红袍

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

加好友

发短信

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

Post By：2015/9/20 14:48:00 [显示全部帖子]

参考

下载信息 [文件大小：304.0 KB 下载次数：32]
点击浏览该文件:webbrowser控制word_测试.table

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

主题：请教，在word文档当前位置写入文本的代码。