以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请教，在word文档当前位置写入文本的代码。  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=74810)
--  作者：ericsky
--  发布时间：2015/9/19 16:53:00
--  请教，在word文档当前位置写入文本的代码。
就是内置的word报表模板辅助设计器，点击列名，在word中插入字符的代码，请老师指点，多谢！


图片点击可在新窗口打开查看此主题相关图片如下：未命名.jpg
图片点击可在新窗口打开查看
--  作者：大红袍
--  发布时间：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
--  发布时间：2015/9/19 17:10:00
--  
谢谢大红袍老师，有两个问请教：
1、上面代码只能在word文件末尾加入字符，如何才能在当前光标位置插入字符？
2、上面代码是word关闭时候执行，如何在打开的文档中执行呢？
谢谢，麻烦您了！
--  作者：大红袍
--  发布时间：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")
--  作者：ericsky
--  发布时间：2015/9/20 14:44:00
--  
再请教大红袍老师：
如果在窗口中用 WebBrowser 打开word文件，该如何用代码在word中插入字符。
请帮忙指点，谢谢！
--  作者：大红袍
--  发布时间：2015/9/20 14:48:00
--  

参考

 

下载信息  [文件大小：304.0 KB  下载次数：32]
图片点击可在新窗口打开查看点击浏览该文件:webbrowser控制word_测试.table