读书人

vb怎么找到word中被指定位置,怎么向wo

发布时间: 2012-03-15 11:50:38 作者: rapoo

vb如何找到word中被指定位置,如何向word中指定的位置写字符
我建一word模版, 在某一位置有name,我想用vb在word模版中查到name所在的位置,然后再用数据库中的内容去替换word模版中的name.
问题解决一定给分.
或者提供word组件详细使用方法也给分.

[解决办法]
Dim wdApp As New Word.Application
dim strVal as string
wdApp.Documents.Open word文件
With wdApp.ActiveDocument.Content.Find
.Execute name, True, , , , , , , strVal , 2
End With

[解决办法]
在WORD中将要替换的内容定义为书签,然后替换书签就可以了。
具体代码到WORD中录制宏,然后用VBA执行相应的宏就可以了。


http://www.egooglet.com 资料、源码下载

http://bbs.j2soft.cn 论坛交流

[解决办法]
先添加引用WORD对象。
然后利用APPLICATION方法生成一个_Document对象(doc),并用doc.Open()打开它。
如果需要指定在一个固定位置下插入文字我建议在你的WORD文件中插一个书签,然后以这个书签名定义对象
object oBookMark = (object) "BookMarkName ";
接下来你就可以对这个书签处的插入内容并对这个书签的内容操作了。
doc.Bookmarks.Item(ref oBookMark).Range.Text = "THIS IS A TEST! ";
doc.Bookmarks.Item(ref oBookMark).Range.Font.Color = Word.WdColor.wdColorBlue;
注意,Document对象不可与WINDOWS.FORM并存。
[解决办法]
How To Embed and Automate Office Documents with Visual Basic


http://support.microsoft.com/kb/242243

读书人网 >VB

热点推荐