12. april 2005 - 15:42Der er
12 kommentarer og 1 løsning
access rapport til word men med formateringen bibeholdt
Jeg er ved at lave en database, som skal bruges til at trække firmaets referencer ud fra, når vi laver nye tilbud. Rapporten er designet i firmaets layout. Det er et design med en farvet boks i sidehovedet og understregning af bestemte linier. (Titlen på et projekt). Opbygningen i rapporten er:
Overskrift (i blå boks) Titel på projekt (Understreget og fed) Præsentation af projekt (normal)
Titel på projekt (Understreget og fed) Præsentation af projekt (normal)
Titel på projekt (Understreget og fed) Præsentation af projekt (normal)
etc.
Problemet er, at alle disse formateringer jo går tabt, når jeg eksporterer til word, fordi den så gør brug af .rtf.
Er der nogen, der har nogle løsningsforslag til, hvordan jeg kan komme til at bibeholde formateringen nemmest muligt?
Det er mange forskellige brugere, der skal anvende databasen, så komplicerede løsninger går ikke, og snapshot er heller ikke en mulighed, da teksten skal kunne redigeres i efterfølgende. Jeg har overvejet, om man kunne erstatte mine formateringer med tegn af en eller anden form, som kommer med i .rtf, og så efterfølgende bygge en makro i word, som kan transformere disse tegn til den ønskede formatering. Dette er dog ikke noget mine egne evner rækker til.
Men som jeg skrev i mit spørgsmål, ønsker jeg ikke at bruge snapshot, da man efterfølgende skal kunne redigere i teksten... Derfor virker den løsning ikke.
Det du skal gøre er at de data du skal have skrevet ud dem skal du skrive ud i og gemme i en fil. filnavnet skal du kalde for XML. Og i det du skriver skal du andvende xml syntaxten.
efterudskrivning i xml skal du lave en XSL i og der skal du førere din xml til , så vil du få tingene som du gerne vil have.
En Clipboard-løsning bevarer alle formateringer inkl.farver. Windows-funktionen kan sikket findes på nettet. Har den vist selv på en CD. Den kan bruges både i Word(makro) og Access. Men det er ikke sikkert den kan bruges til dit projekt.
Formularens felt "opskrift" skal indsættes i Word, hvor der er placeret et bogmærke der hedder "Bogmærke 1", formularens felt "Nr" skal indsættes i Word ved bogmærket "Bogmærke 2" o.s.v. Koden kræver en reference til Word.
Dim objword As New Word.Application Dim WordDoc As New Word.Document Set WordDoc = objword.Documents.Add("D:\Opskrifter\Opskrift.doc") Call InsertAtBookmark(WordDoc, "BOGMÆRKE 1", Me!Opskrift) Call InsertAtBookmark(WordDoc, "BOGMÆRKE 2", Me!Nr) objword.Visible = True DoCmd.Hourglass False End Sub
Function InsertAtBookmark(objWordDoc As Word.Document, strBookmark As String, strText As String) As Boolean With objWordDoc.Bookmarks If .Exists(strBookmark) Then .Item(strBookmark).Range.Text = strText InsertAtBookmark = True End If End With End Function
Mugs - kan du eventuelt emaile en access-database, hvor ovenstående eksempel fungerer, for jeg kan ikke få det til at virke. Jeg får fejlmeddelsen, at:
VBA (Visual Basic for Applications) er stødt på et problem under forsøg på at få adgang til en egenskab eller en metode.
Hvis jeg kunne få et eksempel i en database, ville det være meget nemmere for mig at identificere problemet...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
