Sprinkler Systems Uhaul move Lawn care Roses and trees Ford Parts Chrysler Parts Lake Powell New IPod Touch Apps New IPhone Apps IPhone Apps IPad Information IPad Apps Android APPS Android Games APPS Android Systems Android Tablets APPS and Beyond Smartphone Apps Smartphone Games Apps Repair and Tools Tablet PC Car Sharing Car Leasing Tabler Pc Fly Fishing Toyota Cars Vacation Rentals Stock market NYSE SSE Stock Freight & Shipping News Gluten Lactose Gout My Coupon Life Campgrounds Check Outdoor Kitchen Design and Redoo Bath Remodeling Palm Springs Las Vegas Vacation Tipps Lake Powell Boating Homes for lease Electric and green Car Blog Pearls and diamonds Whatsapp and forget SMS Blog, What is Whatsapp App Renovation Blog Condo for rent or lease Solar Panel Solar Energie Sun Power Blog Truck for Sale Reconstruction Blog
Reader


[Suche]  [Administrator]  [Hinweise zum Reader]  [Startseite]
Computers » microsoft.public.cn.office » 请问如何利用VB代码查找或替换Word
请问如何利用VB代码查找或替换Word [message #221742] Do, 06 Juli 2006 20:30
AlanDunne  
当我想利用Access2003通过VB打开一个Word文件的 候，我希望可以自动替换Word文件中的部分内 ，当我使用MyDocument.application.selection.find方法 操作的时候，结果发现只可以替换文档正文的 内容，而无法替换文本框内的内容。（文本框 在绘图画布内和不在绘图画布内两种情况均都 试过），特请问该如何操作才可以达到利用VB 言查找替换Word文件文本框内的内容。
Re: VBһ滻Wordı [message #221743 ] Fr, 07 Juli 2006 02:50
gy_yangxiaobo  
ĵı:
dim s as shape
for each s in activedocument.shapes
if s.type=msotextbox then msgbox(s.textframe.textrange.text)
next

"AlanDunne" <AlanDunne [at] discussions.microsoft.com> дϢ
news:40F127B8-0578-43E3-BA7C-CA0796D760AE [at] microsoft.com...
> Access2003ͨVBһWordļʱϣ Զ滻WordļеIJݣʹMyDocument.application .selection.findʱ򣬽ֻ滻ĵĵ ݣ޷滻ıڵݡıڻͼںͲڻ ԹʸβſԴﵽVB Բ滻Wordļıڵݡ
RE: 请问如何利用VB代码查找或替换W [message #221771 ] Di, 11 Juli 2006 09:01
AlanDunne  
多谢上位朋友给我启发
在你的代码之上，加入range.find操作，便可达 查找与替换文本框内容的操作方法
具体代码如下：


Dim WenBenKuang as shape, WenBenNeiRong as Range

For Each WenBenKuang In Activedocument.Shapes


With WenBenKuang.TextFrame

Set WenBenNeiRong = .TextRange

WenBenNeiRong.Find.ClearFormatting
WenBenNeiRong.Find.Replacement.ClearFormatting

With WenBenNeiRong.Find

.Text = MuBiaoWenZi(i)
.Replacement.Text = TiHuanWenZi(i)

End With

WenBenNeiRong.Find.Execute Replace:=wdReplaceAll

End With
Next


“AlanDunne”编写：

> 当我想利用Access2003通过VB打开一个Word文件的 候，我希望可以自动替换Word文件中的部分内 ，当我使用MyDocument.application.selection.find方法 操作的时候，结果发现只可以替换文档正文的 内容，而无法替换文本框内的内容。（文本框 在绘图画布内和不在绘图画布内两种情况均都 试过），特请问该如何操作才可以达到利用VB 言查找替换Word文件文本框内的内容。
Vorheriges Thema:如何建立中文稿纸格式?
Nächstes Thema:如何制定公司卫生制度
Gehe zu:
  


aktuelle Zeit: So Mai 27 15:41:13 CEST 2012

Insgesamt benötigte Zeit, um die Seite zu erzeugen: 0,01926 Sekunden
.:: Startseite - Hinweise - Impressum ::.

Powered