i m having txt.doc file..& want to any correction in vb , but unable to do..anyone help me..how to use find,span, or selstart as in below
Public Sub printdoc(sdoc As String, intcopies As Integer)
Dim mydoc As Object
Set mydoc = CreateObject("word.application.8"
With mydoc
.Documents.Open sdoc, , True
.Visible = True
' .Activate
.activedocument.PrintOut Copies:=intcopies
.activedocument.Close
.quit
End With
Set mydoc = Nothing
End Sub
pls help!!
Public Sub printdoc(sdoc As String, intcopies As Integer)
Dim mydoc As Object
Set mydoc = CreateObject("word.application.8"
With mydoc
.Documents.Open sdoc, , True
.Visible = True
' .Activate
.activedocument.PrintOut Copies:=intcopies
.activedocument.Close
.quit
End With
Set mydoc = Nothing
End Sub
pls help!!
