以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  在word某一个特定位置，写入一个字符串  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=73040)
--  作者：newsun2k
--  发布时间：2015/8/11 13:51:00
--  在word某一个特定位置，写入一个字符串
如题
在word某一个特定位置，写入一个字符串，如何实现？
--  作者：大红袍
--  发布时间：2015/8/11 14:11:00
--  

如下代码

 

Dim app As New MSWord.Application
try
    Dim fileName = "d:\\test.doc"
    Dim doc = app.Documents.Open(fileName)
    app.Selection.Find.Text = "[第一列]"
    app.Selection.Find.Replacement.ClearFormatting()
    app.Selection.Find.Replacement.Text = "123456789"
    app.Selection.Find.Execute(Replace:=MSWord.WdReplace.wdReplaceAll)
    app.visible = True
catch ex As exception
    msgbox(ex.message)
    app.Quit
finally
   
End try


 
--  作者：newsun2k
--  发布时间：2015/8/11 15:53:00
--  
尝试读取或写入受保护的内存。这通常指示其他内存已损坏。
--  作者：大红袍
--  发布时间：2015/8/11 15:56:00
--  
你的word安装得有问题，卸载重新安装一个完整版的。
--  作者：newsun2k
--  发布时间：2015/8/17 10:36:00
--  
重装了office还是不行，能不能用bookmark?
怎么用？
--  作者：大红袍
--  发布时间：2015/8/17 10:37:00
--  
以下是引用newsun2k在2015/8/17 10:36:00的发言：
重装了office还是不行，能不能用bookmark?
怎么用？

 

卸载重装一个完整版的MS Office

 
--  作者：newsun2k
--  发布时间：2015/8/17 10:46:00
--  
好吧，我再换一个版本的office试试。
关于 app.Selection.Find.Text = "[第一列]"
这些命令，有没有参考文档？
--  作者：大红袍
--  发布时间：2015/8/17 10:50:00
--  

https://msdn.microsoft.com/zh-cn/library/tcyt0y1f(v=vs.80).aspx

 
--  作者：ztmdnzc
--  发布时间：2015/10/5 11:38:00
--  
以下是引用newsun2k在2015/8/11 15:53:00的发言：
尝试读取或写入受保护的内存。这通常指示其他内存已损坏。

app.Selection.Find.ClearFormatting()  \'***少了这句代码。

app.Selection.Find.Text = "[第一列]"