Jag försöker att via något exempel här på Pellesoft, få ihop en rapport via Word.
Alla referenser är helt ok, och jag får inget felmedelande, SQL är helt ok, men programet crachar.
Inte heller(dom få gångerna som programmet INTE crachar) får jag upp rätt mall)
Så här försöker jag:

<code>
If Len(Text1(1)) > 0 Then

SQL = "Select * FROM t_Orkester WHERE NAMN='" & Text1(1) & "'"
Set Rst = Con.Execute(SQL)
MsgBox SQL
Dim WordRange As Word.Range
On Error Resume Next
Set WordApp = CreateObject("Word.Application")
WordApp.Documents.Open App.Path & "\Report\StudOrk.doc", , True, False
Set WordRange = WordApp.ActiveDocument.Content

WordRange.Find.Execute FindText:="<Firma>", Forward:=True
If WordRange.Find.Found = True Then
'WordRange = NollKoll(Rst(1))
WordRange = Rst(1)
End If



'Visar Word-dokumentet
WordApp.Visible = True

Set WordRange = Nothing
Set WordDoc = Nothing
Set WordApp = Nothing

eInfo.Caption = "Reklam till " & Text1(1).Text
snacka.Speak "Ok!"
Else
eInfo.Caption = "Det finns inget namn angivet"
snacka.Speak "Oh no!"

End If
</code>

Hur fixar jag detta??

Starta macroinspelningen i word och kolla att du med säkerhet skriver rätt kod till Word.

Sen kör du createobject vilket innebär en nu word varje gång du startar, se därför till att du stänger av word när programmet gått klart för annars tar det väldigt mycket minne.

Hälsningar
/Pelle