HEjsan.. Kan detta vara till nån hjälp? Server object error 'ASP 0177 : 800401f3' Öppna MsWord dokument för sökning...
Sitter och ska göra ett enkelt söksystem över ett gäng med word document för vårt intranet..
Det jag vill göra är att dynamiskt öppna en Word fil, söka efter det ord man angav, och sedan visa vilken fil man kan hitta ordet i..
Hittar inga exempel på internet.. bara exempel för att skapa en word fil..
/PärSv: Öppna MsWord dokument för sökning...
<%@ Language=VBScript %>
<%Option Explicit%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<LINK rel="stylesheet" type="text/css" href="StyleSheet.css">
<FORM method=POST>
<INPUT type="text" name="Text"><INPUT type="button" value="Search">
</FORM>
<HR>
<%
Dim sText
sText = Request.Form("Text")
If Len(sText)>0 Then
Dim App
Dim FS
Dim F
Set App = Server.CreateObject("Word.Application")
Set FS = App.FileSearch
FS.NewSearch
FS.FileType = 3 'WordDocuments
FS.LookIn = "C:\Shared"
FS.SearchSubFolders = True
FS.MatchAllWordForms = False
FS.MatchTextExactly = False
FS.TextOrProperty = sText
FS.Execute
If FS.FoundFiles.Count > 0 Then
Response.Write "<TABLE WIDTH=100% BORDER=1 CELLSPACING=1 CELLPADDING=1>" & vbCrLf
Response.Write " <TR>" & vbCrLf
Response.Write " <TD><B>File Name<B></TD>" & vbCrLf
Response.Write " </TR>" & vbCrLf
For Each F In FS.FoundFiles
Response.Write " <TR>" & vbCrLf
Response.Write " <TD>" & F & "</TD>" & vbCrLf
Response.Write " </TR>" & vbCrLf
Next
Response.Write "</TABLE>" & vbCrLf
Else
Response.Write "Ej funnen!" & vbCrLf
End If
End If
%>
</BODY>
</HTML>Sv: Öppna MsWord dokument för sökning...
Server.CreateObject Failed
/Intranet/Index/pertest/Default.asp, line 18
Invalid class string
Har kommit underfund med att det troligtvis beror på att servern inte har Office installerat.. annars ser det ju ut som att det skulle kunna fungera.. TACKAR SÅ HJÄRTLIGT!!
/Pär