rapport exporteret som Word fil

http://training.edutech.org/MicroShare/Newsletter/accessreports.htm

Dette giver jo så et rtf dokument. Når du har åbnet det i word, kan du umiddelbart gemme det som et almindeligt .doc uden formattering går tabt.

NanoQ

duer ikke, da jeg skal omdøbe extension eller åbne-gemme for at have det i word...
hvis jeg omdøber extension spørger den hver gang hvordan den skal åbne i word.

det skal bruget til absolut novice brugere hvorfor det skal være word fra starten

sorry...

Jammen i så fald er svaret at du ikke kan.

Du har kun mulighed for at gemme i rtf hvis formatering skal bibeholdes.

Du kunne jo evt. vælge at sørge for at rtf er associeret til Word, og så bibeholde rtf formatet på filerne.

Har du overvejet at bruge SnapShot-formatet og så uddele (gratis) SnapShot-viewer til dine brugere?

Dette er vist det ENESTE format, som bibeholder al formattering fra rapporten.

?? den kender jeg vist ikke dén der...

gør den det som jeg ønsker...??

Poul Erik :
Det er i dette spørgsmål samme princip som i det med excel...

Check out: http://office.microsoft.com/downloads/9798/snpvw80.aspx

\"ulempen\" i dette er at dine brugere skal have programmet installeret, og at der ikke kan redigeres i rapporten ude hos dine brugere... (det de ser er en statisk rapport)

så falder den vist til jorden igen, da \"mine\" brugere sidder spredt over det halve af europa, samt at jeg ikke kan plotte alle navnene det er for omsonst...

det lader til at excel løsningen skl stå sin prøve istedet...

det anede mig... ;-(

Din løsning med .RTF er stadig værd at overveje.
Det er jo muligt at åbne Word fra Access og derefter bede den konvertere .rtf-filen til .doc-format.

/Thomas

thomas>

den der skal kigge i worddokumentet har ikke adgang til access databasen. Disse dokumenter sendes pr. mail af en person i ledelsen i det enkelte selskab.

Nej, men samme Access-procedure, som eksporterer rapporten til .rtf, skal også lave konverteringen, således at du bare trykker på en knap i Access, som så laver det hele.

det er vel en rename du har gang i eller???
såfremt ja så kommer word jo stadig og spørger om den skal konvertere dokumentet fra RTF format selvom dokumentet faktisk er renamet til 1.doc istedet for 1.RTF

Jamen, så vil jeg, fra en Access-procedure, eksportere rapporten, åbne Word og lade Word konvertere .rtf-filen til .doc, lukke Word igen og afslutte.

Det hele bliver som du ønsker det. Problemet er bare, at jeg lige skal finde ud af hvordan. Det gør jeg gerne, hvis der er nogle point i det - det er lidt tricky.

lad være at bruge for megen krudt på det da jeg som regel gerne ville kunne \"tyde\" svaret fra Jer til lærdom....

hvad angår point vil jeg give 30 for en overskuelig løsning. ikke alt for mange krumspring, åbne lukke procedurer, mv.

Jeg har sku aldrig været så fattig før...*G*

Jeg støtter med 200 point, når Region accepterer en løsning fra thomasjepsen på dette !!!

Jeg ser så til gengæld helst en så gennerel løsning som muligt, så den kan genbruges... (helst så det bliver en funktion, som tager Rapportnavn og path til færdig word-fil som argumenter og derefter udfører konverteringen)

lidt a\'la:
Public Sub danDOC(Rep as String, Doc as String)
  ...
  dit guf indsættes hér
  ...
End Sub

comming right up....

5 min

jeg kan godt se at mine 30 point kun rækker til :

\"syltetøj\"

men hvad jeg har jo ikke råd til mere....og jeg har jo fået det løst med seperate excel ark..


SUUUKKKKK....!!!!!!!!!!

eftersom det er proaccess der bøsser de store grunker her må det være ham der skal kunne bruge løsningen...jeg er med mine 30 vist med på slæb...

Det er ok, Region. Jeg er ikke ude på at ruinere nogen :o)

Her er koden:

Public Sub EksportToDoc(Rapportnavn As String, WordFil As String)
  \'eks:
  \'EksportToDoc \"rptBog\", \"C:\\Bog.doc\"
  Dim w As New Word.Application
  Dim RtfFil As String
  RtfFil = Left(WordFil, Len(WordFil) - 3) & \"rtf\"
  DoCmd.OutputTo acOutputReport, Rapportnavn, acFormatRTF, RtfFil
  DoEvents
  w.Documents.Open FileName:= _
      RtfFil, ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, _
      PasswordDocument:=\"\", PasswordTemplate:=\"\", Revert:=False, _
      WritePasswordDocument:=\"\", WritePasswordTemplate:=\"\", Format:= _
      wdOpenFormatAuto
  w.ActiveDocument.SaveAs FileName:=WordFil, FileFormat:=wdFormatDocument, LockComments:=False, Password:=\"\", _
      AddToRecentFiles:=True, WritePassword:=\"\", ReadOnlyRecommended:=False, _
      EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData _
      :=False, SaveAsAOCELetter:=False
  w.Quit
  Set w = Nothing
  Kill RtfFil
End Sub


NB: Husk at sætte en reference til Microsoft Word

/Thomas

(...skønhedmæssig rettelse)

Public Sub EksportToDoc(Rapportnavn As String, DocFil As String)
  \'eks:
  \'EksportToDoc \"rptBog\", \"C:\\Bog.doc\"
  Dim w As New Word.Application
  Dim RtfFil As String
  RtfFil = Left(DocFil, Len(DocFil) - 3) & \"rtf\"
  DoCmd.OutputTo acOutputReport, Rapportnavn, acFormatRTF, RtfFil
  DoEvents
  w.Documents.Open FileName:= _
      RtfFil, ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, _
      PasswordDocument:=\"\", PasswordTemplate:=\"\", Revert:=False, _
      WritePasswordDocument:=\"\", WritePasswordTemplate:=\"\", Format:= _
      wdOpenFormatAuto
  w.ActiveDocument.SaveAs FileName:=DocFil, FileFormat:=wdFormatDocument, LockComments:=False, Password:=\"\", _
      AddToRecentFiles:=True, WritePassword:=\"\", ReadOnlyRecommended:=False, _
      EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData _
      :=False, SaveAsAOCELetter:=False
  w.Quit
  Set w = Nothing
  Kill RtfFil
End Sub

Jeg brækker mig snart over min stupide viden indenfor VB....

( skulle nok have læst til programmør istedet for at for at være blevet aut. El-installatør..!!!!)

Hvor i scriptet er det lige du gemmer som c:\\bog.doc  ??

i den linie, som starter med: w.ActiveDocument.SaveAs FileName:=DocFil, FileFormat:=.....

Jeg får desværre ikke mine baggrundsfarver og kasser med... men du får belønningen alligevel.

.RTF-formatet har jo desværre sine begrænsninger :o(

???
w.ActiveDocument.SaveAs FileName:=DocFil, FileFormat:=wdFormatDocument, LockComments:=False, Password:=\"\", _

hvor står der c:\\ henne...??

hvad nu hvis det var på d\\bøger\\ jeg ville gemme..

( hvis jeg kan få mere valuta for syltetøjet...)

thomas> http://www.eksperten.dk/spm/92423

region> så skal du kalde funktionen ved:
ExportToDoc \"din rapport\", \"D:\\bøger\\test.doc\"

til thomas :

http://www.eksperten.dk/spm/92426

Du kalder proceduren ved at angive rapportnavn og sti til .doc-fil

EksportToDoc \"rptBog\", \"d\\bøger\\Bog.doc\"

ja men den er jo remarket i dit script (\')

sorry, jeg blev lige kaldt væk fra PC\'en, så derfor svarer jeg først nu.

De 2 linier, som er markeret ud med \', er blot medtaget for at vise et eksempel på hvordan proceduren kan bruges.

Proceduren hedder EksportToDoc, hvorfor du blot skriver dette for at kalde den (inkl de 2 parametre)

Altså skal parametren EksportToDoc ikke være remarket i scriptet ved kørsel....???

Jo, du har nu en funktion, som hedder EksportToDoc, denne funktion kaldes fra et andet script ved at skrive:

Public Sub Test()
  EksportToDoc \"din rapport\", \"D:\\Bøger\\Test.doc\"
End Sub

Når du så kører scriptet Test, så bliver der kaldt til EksportToDoc med de rigtige parametre...

En af jer får 10 point for eksakt at skrive hvad der skal stå i scriptet når jeg ønsker at gemme
rapport1 som d:\\rapport1.doc

er det fair nok...

Du kalder det script, som thomas lavede, ved at skrive:

  EksportToDoc \"rapport1\", \"D:\\rapport1.doc\"

i et andet script.

Det er ikke nødvendigt at have al kode i et enkelt script, men man har heldigvis muligheden for at kalde scripts fra flere steder...

Prøv at lege med tanken om at du har 13 rapporter, som du vil gemme i 4 forskellige biblioteker, og at du så skulle skrive HELE thomas\'s script 52 gange...

ÅHHHHH ja endelig har jeg fattet det

TAkTAK...og TAK....:-))))))))))))))))