Export af tabeller fra Word til en database eller en separeret fi

Jeg har ikke løsningen på dit spørgsmål. Men jeg "gør det" også i en opskriftsamling i Access. som en inspiration til din db, er du velkommen til at få den. Du kan blot lægge din e-mail.

I første omgang skal du nok lige forklare, om du vil have forklaret fremgangsmåden - eller om du bare vil have løst opgaven.
Hvis du bare vil have den løst, er der en lille detalje med reglerne, der gør det en anelse "ulovligt" at løse opgaven udenom e; men man plejer at tackle det ved at forklare løsningen her i spm efterfølgende.
Send evt Word filen til mail snabela f-data.dk, så returnerer jeg en lille base, der "suger" opskrifterne ud af Word dokumentet

Hej Igen
Målet er selfølgelig at få løst opgaven, jeg vil klart foretrække en forklaring på fremgangsmåden, på den måde tror jeg på at jeg også lærer noget, til næste gang :)

/Bjarne

Godt så.
Øjeblik, så er jeg tilbage med en model ...

Så er jeg klar.

Forudsætninger:
- Opret en formular (Formular1) med en tekstboks (TekstBoks1)
- Opret en tabel med 4 felter (ID, Opskriftnavn, Ingredienser og Fremgangsmåde)
  Felttyperne skal være Langt heltal, Tekst, Notat og Notat

Fidusen er så, at vi lader Access gennemløbe dit dokument og samle oplysningerne op. Der søges efter ordet "Opskriftnavn". Herefter hoppes der fra celle til celle.

Her følger koden (som er testet på en struktur som den, du har anført i spm):

Option Compare Database
Option Explicit

Const wdStory = 6
Const wdCell = 12
Const wdCharacter = 1

Private Sub Hent_Opskrifter()
  Dim WordApp As Object
  Dim S As String
  Dim ID As String
  Dim Opskriftnavn As String
  Dim Ingredienser As String
  Dim Fremgangsmåde As String
 
  DoCmd.OpenForm "Formular1"    ' Skal vi bruge til klippe/klistre
 
  Set WordApp = CreateObject("Word.Application")
 
  With WordApp
    .Visible = True
    .Activate
    .WindowState = 1
   
    .ChangeFileOpenDirectory "C:\Temp\"
    .Documents.Open Filename:="Opskrifter.doc"
 
    ' Hop til start
    .Selection.HomeKey Unit:=wdStory
   
    ' Søg efter "Opskriftnavn"
    .Selection.Find.ClearFormatting
    With .Selection.Find
      .Text = "Opskriftnavn"
    End With
   
    ' Gennemløb alle sider
    Do
      .Selection.Find.Execute
      .Selection.MoveRight Unit:=wdCell
      .Selection.MoveLeft Unit:=wdCell
      .Selection.Copy
      Forms!Formular1.TekstBoks1 = Null
      Forms!Formular1.TekstBoks1.SetFocus
      RunCommand acCmdPaste
      Forms!Formular1.Refresh
      S = Forms!Formular1.TekstBoks1
      Opskriftnavn = Replace(S, "Opskriftnavn: ", "")
     
      ' Næste celle: ID
      .Selection.MoveRight Unit:=wdCell
      .Selection.Copy
      Forms!Formular1.TekstBoks1 = Null
      Forms!Formular1.TekstBoks1.SetFocus
      RunCommand acCmdPaste
      Forms!Formular1.Refresh
      S = Forms!Formular1.TekstBoks1
      ID = Replace(S, "ID: ", "")
     
      ' Næste celle: Ingredienser
      .Selection.MoveRight Unit:=wdCell
      .Selection.Copy
      Forms!Formular1.TekstBoks1 = Null
      Forms!Formular1.TekstBoks1.SetFocus
      RunCommand acCmdPaste
      Forms!Formular1.Refresh
      S = Forms!Formular1.TekstBoks1
      Ingredienser = Replace(S, "Ingredienser: ", "")
     
      ' Næste celle: Fremgangsmåde
      .Selection.MoveRight Unit:=wdCell
      .Selection.Copy
      Forms!Formular1.TekstBoks1 = Null
      Forms!Formular1.TekstBoks1.SetFocus
      RunCommand acCmdPaste
      Forms!Formular1.Refresh
      S = Forms!Formular1.TekstBoks1
      Fremgangsmåde = Replace(S, "Fremgangsmåde: ", "")
 
      ' Opret post
      DoCmd.SetWarnings False
      DoCmd.RunSQL ("INSERT INTO Opskrifter(ID, Opskriftnavn, Ingredienser, Fremgangsmåde)" & _
            " SELECT " & ID & ",'" & Opskriftnavn & "','" & Ingredienser & "','" & Fremgangsmåde & "'")
      DoCmd.SetWarnings True
 
      ' Flyt markør - klar til næste side
      .Selection.MoveRight Unit:=wdCharacter, Count:=1
    Loop Until False
  End With

End Sub

Håber, du kan få det til at spille.

PS: Jeg har ikke brugt tid på at rydde op i variable osv. Desuden går kørslen ned efter sidste post; men der bliver jo ikke givet karakter for det kunstneriske indtryk, så det går jo nok. Posterne bliver i hvert fald oprettet.

Det ser fint ud, jeg har lige et par spørgsmål. I koden står:
    .ChangeFileOpenDirectory "C:\Temp\"
    .Documents.Open Filename:="Opskrifter.doc"
De 2 linier referer til folderen hvor wordfilen skal ligge, samt filnavnet på wordfilen?

Jeg forstår vist ikke lige helt accessdelen, hvor sætter jeg koden ind?

/Bjarne

Har modtaget Word fil i lidt anderledes format.
Udarbejder en løsning ...

Database sendt retur. Der var lidt flere celler i Word-tabellen og lidt apostroffer, der skulle erstattes; men ellers er løsningen i store træk den ovenfor beskrevne.

Det spiller bare, KANONT, 1000 tak for hjælpen, og her er dine point, dem har du fuldt fortjent

Tak for de pæne ord og tak for point  ;o)