/ Snippet Library - View Code

Snippet details

ID: 473

Viewed: 1210

Added: 2002-08-19

Version:

Snippets in this catagory
Show Printable Version

Word Stuff

General Details

Snippet uploaded by: snippet

Email : webmaster@snippetlibrary.com

Snippet By: Unknown

Snippet By:	Unknown
Declarations
Highlight Allnone
Code
Highlight AllOption Explicit Private Sub Command1_Click() Dim oWord As Word.Application Dim oDoc As Word.Document ' This procedure demonstrates using the Execute ' method to replace text. Set oWord = GetObject(, "Word.Application") If oWord Is Nothing Then Set oWord = CreateObject("Word.Application") End If oWord.Documents.Open FileName:="c:test.doc" oWord.Documents("test.doc").Activate Set oDoc = oWord.ActiveDocument ' Loop until no more items are found. Do oWord.Selection.Find.ClearFormatting With oWord.Selection.Find .Text = "display" .Execute ReplaceWith:="show", _ Replace:=wdReplaceAll, Forward:=True End With ' Exit the loop when the search is unsuccessful. If oWord.Selection.Find.Execute = False Then Exit Do Loop End Sub

No Reviews to show