alteration in msword2003 from vb6

[disc]

hi all,
pls help me in swapping of two words and also paragraphs and deleting a character in msword2003 through visual basic 6... i have done for deleting words.. please do help for the above...
thank u

[Dököll]

hi all,
pls help me in swapping of two words and also paragraphs and deleting a character in msword2003 through visual basic 6... i have done for deleting words.. please do help for the above...
thank u

Hiya, disc!

Please add what you've done thus far, if you wouldn't mind. I did some snooping around and could not find anything concrete, perhaps your code can help shed some light. How's that for a deal?

Dököll

[disc]

Hiya, disc!

Please add what you've done thus far, if you wouldn't mind. I did some snooping around and could not find anything concrete, perhaps your code can help shed some light. How's that for a deal?

Dököll

hi,
thanks for the reply.well... below is some code ...hope that is enough to shed u full light!
i am using vb6 and msword 2003

Set wApp = New Word.Application
'wApp.Visible = True
Dim doc As Word.Document
Set doc = wApp.Documents.Open("a.doc")
doc.Words(a).Select //say a is 9 ie 9th word in word document
'wApp.Selection.Delete

please do reply soon
thank u

[Dököll]

hi,
thanks for the reply.well... below is some code ...hope that is enough to shed u full light!
i am using vb6 and msword 2003

Set wApp = New Word.Application
'wApp.Visible = True
Dim doc As Word.Document
Set doc = wApp.Documents.Open("a.doc")
doc.Words(a).Select //say a is 9 ie 9th word in word document
'wApp.Selection.Delete

please do reply soon
thank u

This just in, Disc, from a microsoft site example, you may need to copy an paste for additional words:

 
Private Sub SearchReplace()
    Application.Selection.Find.ClearFormatting()
    Application.Selection.Find.Text = "find me"
 
    Application.Selection.Find.Replacement.ClearFormatting()
    Application.Selection.Find.Replacement.Text = "Found"
 
    Application.Selection.Find.Execute(Replace:=Word.WdReplace.wdReplaceAll)
End Sub
 

Here's the link: http://msdn2.microsoft.com/en-us/lib...3d(VS.80).aspx

Have fun!

[disc]

hi,
thank u.. well was quite usefull,
aaa...but i didnt get what i needed..i meam swapping of paragraphs and words and deletion of charaters that should be done on word document (msword2003)through vb6. if possible please try
thanking u v much
disc