tompod
Jul 12th, 2000, 06:43 AM
Hello
I'm trying to open word document from VB Script in ASP to
replace some words in document.
Here is my source code:
<%
Dim MyDoc
Dim WordObject
Dim Sel
Set WordObject = CreateObject("word.application")
Set MyDoc = WordObject.documents.Open("c:\Inetpub\osp\doc\narocilo2.doc")
Set Sel = WordObject.Select
MyDoc.Application.Visible = False
MyDoc.Activate
Sel.GoTo wdGoToLine, wdGoToAbsolute, 1
Sel.Find.ClearFormatting
Sel.Find.Replacement.ClearFormatting
With Sel.Find
.Text = "#*#"
.Replacement.Text = cStr(request("id"))
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = True
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Sel.Find.Execute 1, True, wdFindContinue
MyDoc.Save
MyDoc.Close
Set MyDoc = Nothing
Set WordObject = Nothing
%>
Text is not replaced.
Can somebody help me!
Tomaz
I'm trying to open word document from VB Script in ASP to
replace some words in document.
Here is my source code:
<%
Dim MyDoc
Dim WordObject
Dim Sel
Set WordObject = CreateObject("word.application")
Set MyDoc = WordObject.documents.Open("c:\Inetpub\osp\doc\narocilo2.doc")
Set Sel = WordObject.Select
MyDoc.Application.Visible = False
MyDoc.Activate
Sel.GoTo wdGoToLine, wdGoToAbsolute, 1
Sel.Find.ClearFormatting
Sel.Find.Replacement.ClearFormatting
With Sel.Find
.Text = "#*#"
.Replacement.Text = cStr(request("id"))
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = True
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Sel.Find.Execute 1, True, wdFindContinue
MyDoc.Save
MyDoc.Close
Set MyDoc = Nothing
Set WordObject = Nothing
%>
Text is not replaced.
Can somebody help me!
Tomaz