Indsæt ord i word?

skal den åbne "WINWORD.EXE" og skriver det i det vindue som kommer frem.. eller skal den bare gemme det som "bestemt.doc"

Mon ikke zaydn mener at det er VBA til word og ikke et VB program. Eller..?

sikkert :-)

'---------------------- MSWord.vbs ----------------------
  Dim objWordApp
  Dim objWordDoc

  Set objWordApp = CreateObject("Word.Application")

  If Not objWordApp Is Nothing Then

    objWordApp.Visible = False
    Set objWordDoc = objWordApp.Documents.Add

    With objWordDoc.Content
        .Font.Name = "Comic Sans MS"            '<- Skrifttype
        .Font.Size = 10                          '<- Størrelse

        .Font.Bold = False                      '<- Fed
        .Font.Italic = False                    '<- Kursiv
        .Font.Underline = False                  '<- Understregning

        .InsertBefore "Her skriver du din tekst" '<- Din tekst (Text1)
    End With

    With objWordDoc
        .SaveAs "C:\bestemt.doc"                '<- Gem som...
        .Close False
    End With

    Set objWordDoc = Nothing
    Set objWordApp = Nothing

  End If
'---------------------- MSWord.vbs ----------------------

Takker mange gange for dit svar sjh. Det var næsten det jeg søgte, bortset fra at jeg godt kunne tænke mig at få applikationen/programmet til at åbne et specifikt word-dokument og ikke et nyt som i dette tilfælde og så skal word også forblive åbent, er det noget du også kan hjælpe med...?

Hvis du kan vil jeg give dig de 15 point og samtidigt give -1000 til Martin moth for hans smartass kommenter omkring at en application åbenbart ikke kan oversættes til program. . . ?!?

ehm glem det med at åbne en specifik word-dokument, det har jeg fikset, men vil stadigvæk gerne have word til at forblive åbent...  :o)

okey alt er på plads nu...  :D  1000 tak