Åbne en word fil

du skal gå op i referencer under tools menuen under vba og krydse microsoft word object library af.

Tools? i menu linien?...På dansk skulle det så være værktøjer?....Jeg har værken noget der hedder Tools eller værktøjer...Hvad så?

Du skal over i VB editoren.
vælg tabben modul og tryk på værktøjsknappen kode.

Kan ikke finde værktøjsknappen kode, hvor siger du den er?

Okay, nu har keg fundet det, under Funktioner->Reference.....så kan jeg vel godt skrive Word.Application

Er det muligt også at lave mit word brev flette fil i VBA? Lige nu har jeg fra Word lavet en link til min database, men kan jeg gå den anden vej, og gøre det fra Access?(De poster som skal med flette filen)

do you have the code to open a word document?

Sub AutomateWord()
' This procedure is a brief sample showing
' how to automate Word.

' Remember to set a reference to the most current available
' Microsoft Word object library.

    ' Set a reference to the Word Application object.
    Dim wdApp As Word.Application
    Set wdApp = New Word.Application

    ' Make the application visible, and then open and close a document.
    With wdApp
        .Visible = True
        .Documents.Open "sample.doc"
        .Quit
    End With
   
    ' Close the object reference.
    Set wdApp = Nothing
   
End Sub

Det kan man også godt, men jeg har ikke prøvet det. Du må entenprøve dig frem eller spørge en anden.

Kopier nedenstående kode ind i en knaps kodevindue, og du starter Word.
Har selv Access2000 så ved ikke om det virker i 97.

    Dim oApp As Object

    Set oApp = CreateObject("Word.Application")
    oApp.Visible = True

Terry, det kode som du har skrevet, er det til at åbne et eksisterende word fil?

Hvad nu hvis jeg i VBA gerne vil have posterne fra en tabel sat ind i word dokumentet (Brev fletning)? Hvad skal jeg så skrive?

Du kan også lave en rapport baseret på tabellen med data, og derefter lave en knap som udfører:

DoCmd.OutputTo acOutputTable, "<tabelnavn>",acFormatRTF, "c:\filnavn.rtf", True

"True" til sidst vil automatisk åbne i Word.

Det lykkedes ikke helt, Jeg går over til en anden løsning

Jeg har nu et andet problem, Når jeg køre dette kode:

If Dir("I:\Celal\" & Me.FilNavn & "") <> "" Then
  DoCmd.TransferText acImportDelim, "Spec1", "BygNet04", "I:\Celal\" & Me.FilNavn & ""
Else
MsgBox ("Forkert dokument sti")
End If

Med dette kode importere jeg en CSV fil, men problemmet er nu at de 5 felter som importeres bliver kaldt felt1, felt2...osv, men jeg har brug for at felterné bliver kaldt noget andet. Hvordan kan man skrive

Dvs. at når jeg importere en csv fil, så skal felterne hedde Navn, Adresse, post, by, Tlf.
Den første linie i csv filen indeholder Tabelnavnene, det ville ikke have været noget problem hvis jeg skulle gøre det importere manuelt, for da kunne jeg bare sætte flueben i feltet "Første række indeholder feltnavne"

Hvordan får jeg feltnavnene som jeg gerne vil have det? Kan man det?

Den der svare på dette spørgsmål får pointene

Make a table and give the fields th enames you want and then import into this table!

The first time you import the file the fields will be named as you say. Then its just a case of altering the field names and using the same table each time.

use this to empty the tabel BEFORE you import again!
Docmd.setwarnings False
DoCmd.Runsql "Delete * from YourTable"
Docmd.setwarnings True

Terry: jeg glemte at sige, at jeg også gerne vil have Atposterne bliver Autonummeret når de bliver sat ind, hvordan løser jeg det?

Atonummering var også noget jeg før lod access automatisk tildele når jeg importerede

Jeg får en fejl når jeg køre dette kode:


If Dir("I:\Celal\" & Me.FilNavn & "") <> "" Then
    DoCmd.SetWarnings False
    DoCmd.RunSQL "Delete * from BygNet04"
    DoCmd.SetWarnings True
    DoCmd.TransferText acImportDelim, "Spec1", "BygNet04", "I:\Celal\" & Me.FilNavn & ""
 
Else
MsgBox ("Forkert dokument sti")
End If


Jeg få fejlen : Feltet "Felt1" findes ikke i destinationstabellen "BygNet04"

Kan du se fejlen?

Alter the Spec1. The fields here will be the original

Skal jeg fjerne Spec1?

Okay, terry...Tak for hjælpen det virker nu