Opgradering fra 2000 til 2003 - Problemmer med brevfletning

hi Flemming

If its worked in 2000 then it should work in 2003.
Are you sure you have a reference to Word in your database? (Tools+REferences)

I have this reference:
Microsoft word 11.0 object library
But it does'nt work

can we see the rest of the code you use for automation Word?

You must have a document open before you can use activeDocument!


I better add that Word is NOT my strong side :o)

Hi Terry

For your information.

I have been debugging and the problem is that only holding spaces in :
appword.activedocument.mailmerge.datasource.connectstring = ""
in the old version the connectdtring holds all the right information

I hope to get to a solution soon and youre wery welcome to give me a hint if you have a guees on where the problem is, connections are new to me :-)

so you must have a variable (iiQuery) and it MUST get initialized with something, otherwise it will not  work!

can you see in the old program where it gets initialized?

Hi Terry

This is the code and the problem is that it seems like the connection not is beeing proberly established. The reason for this point of view is that the connection string is = "" in the 2003 version and correct in the old version like I wrote in my last message.

This is the code:

Function SaveAsWordQ(iTemplate As String, iSaveAs As String, iAuto As Boolean,
iQuery As String)
    Dim appWord As Object
    Dim iiQuery As String

    Set appWord = CreateObject("Word.Application")
    appWord.Visible = Not iAuto
    If Not IsNull(iTemplate) And (iTemplate <> "") Then
        appWord.Documents.Open (iTemplate)
    Else
        appWord.Documents.Add
    End If

    If appWord.activedocument.Bookmarks.exists("Dagsdato") Then
        appWord.activedocument.Bookmarks("Dagsdato").Select
        appWord.selection.Text = Format(Date, "dd/mm-yyyy")
    End If
    If appWord.activedocument.Bookmarks.exists("Dagsdato2") Then
        appWord.activedocument.Bookmarks("Dagsdato2").Select
        appWord.selection.Text = Format(Date, "dd/mm-yyyy")
    End If
   
    If Not IsNull(iTemplate) And (iTemplate <> "") Then
        iiQuery = iQuery
        If InStr(iQuery, "SELECT") = 0 Then
            If InStr(iQuery, "WHERE") = 0 Then
                If iQuery = "" Then
                    iiQuery = "SELECT" _
                        & " ..............."
                Else   
                    iiQuery = "SELECT" _
                        & " ....................."
                End If
            Else 
                iiQuery = "SELECT" _
                    & " ......................"
            End If
        End If
'MsgBox (iiQuery)
        appWord.activedocument.MailMerge.DataSource.QueryString = iiQuery
        appWord.activedocument.MailMerge.Execute
    End If
   
    appWord.activedocument.SaveAs FileName:=iSaveAs, FileFormat:=wdFormatRTF
   
    If Not IsNull(iTemplate) And (iTemplate <> "") Then
        If iAuto Then
            appWord.activedocument.PrintOut
            appWord.activedocument.Close
        End If
   
        appWord.Documents(iTemplate).Activate
        appWord.activedocument.Saved = True
        appWord.activedocument.Close
   
        If Not iAuto Then
            appWord.Documents(iSaveAs).Activate
        End If
    End If

'    appWord.Quit

End Function

I think i might have found something about the problem here here:

8/19/2005 11:31:36 AM    Re: Problem with Word Code in 2003
Hi Neil, 
 
See this article 
 
"Opening This Will Run the Following SQL Command" Message When You Open a Word 
 
Document - 825765 
 
http://support.microsoft.com?kbid=825765 
 
When you automate opening a Word main merge document, the link to the data 
 
source is cut off without warning you. You either have to use .OpenDataSource 
 
after opening the document, or make sure the Registry key is set to disable 
 
the security question. 
 
Cindy Meister 
 
INTER-Solutions, Switzerland 
 
http://homepage.swissonline.ch/cindymeister (last update Jun 8 2004) 
 
http://www.word.mvps.org 
 
This reply is posted in the Newsgroup; please post any follow question or 
 
reply in the newsgroup and not by e-mail :-)

I think I would need to see the code which calls the function as there are a number of variables which will need initializing before the call.

I could maybe look at your database if you like? Otherwsie its going to be hard to pinpoint the problem.

eksperten@NOSPAMsanthell.dk

Remove NOSPAM

Jeg skal i aften have afprøvet om jeg ved at "genatablere" datasource i mit activedocumnet kan komme videre.

Jeg passer mit "almindelige" arbejde i dag :-)

Undskyld den manglende fortsættelse men....
Jeg lukker spørgsmålet nu....
Jeg er i gang med noget andet lige nu og har simpelthen ikke tid og energi til at arbejde mod en løsning lige nu. Genåbner muligvis spørgsmålet senere.