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

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

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

ericsky

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

加好友

发短信

等级：小狐帖子：361 积分：3810 威望：0 精华：0 注册：2012/4/16 20:20:00

请教，在word文档当前位置写入文本的代码。 发帖心情

Post By：2015/9/19 16:53:00 [只看该作者]

就是内置的word报表模板辅助设计器，点击列名，在word中插入字符的代码，请老师指点，多谢！

此主题相关图片如下：未命名.jpg

大红袍

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

ericsky

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

加好友

发短信

等级：小狐帖子：361 积分：3810 威望：0 精华：0 注册：2012/4/16 20:20:00

Post By：2015/9/19 17:10:00 [只看该作者]

谢谢大红袍老师，有两个问请教：

1、上面代码只能在word文件末尾加入字符，如何才能在当前光标位置插入字符？

2、上面代码是word关闭时候执行，如何在打开的文档中执行呢？

谢谢，麻烦您了！

大红袍

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | 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