Data ind i Word dokument vha. VBscript

Prøv at kigge på :
http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=8341&lngWId=4

Det er godt nok til Excel men det kan ændres i linien :
Response.ContentType ="Application/vnd.excel"

Set WordApp = CreateObject("word.application")
        Set WordDoc = WordApp.Documents.Add()
       
        WordApp.Application.Visible = False
       
        Set MyRange1 = WordDoc.Paragraphs.Add.Range
        MyRange1.InsertBefore("Testing")       
        'MyRange1.Style = "Heading 1"       
       
        Set MyRange1 = WordDoc.Paragraphs.Add.Range
        MyRange1.InsertBefore(vbcrlf & "Weeh")

        WordDocPath = "c:\"
                WordDoc.SaveAs WordDocPath & "\test.doc"
       
                    WordDoc.Close
        WordApp.Quit
   
      Set WordDoc = Nothing
      Set WordApp = Nothing

MsgBox("Completed")

kald filen wordtest.vbs så virker det ;o)

//>Rune

Hej Rune.

Tak for dit svar. Det virker fint.
Jeg mangler dog en ting: Kan du vise mig hvordan jeg laver en tabel bestående af 6 kolonner og 9 rækker?

Desvære, hvad du har der er det eneste jeg kan byde på, det næste må du selv klare :)

Men jeg vile skyde på noget á la dette:

MyRange1.InsertBefore("<table><tr><td>test</td><td>test</td></tr></table>")   

Men ved ik' om det vil virke!

//>Rune

Lukker igen