Avatar billede kornum Nybegynder
20. marts 2007 - 16:13 Der er 7 kommentarer og
1 løsning

Notatfelt fra access over i word formularfelt -mister linijeskift

Hejsa.

Som emnet antyder, har jeg noget vba kode i access som smider data fra et notatfelt over i et word dokumentet. Mere præcist over i et formularfelt som er beskyttet.

Linieskiftene bliver desværre bare firkanter istedet for linieskift..

Koden er

objWord.ActiveDocument.FormFields("bogmarket").Result = feltet

JEg har siden hen forsøgt mig alverdenskombinationer af Replace(feltet, vbCrLf, vbLf)

men intet funker.. Håber nogle har en god ide? :)
Avatar billede kornum Nybegynder
20. marts 2007 - 16:43 #1
Det funker fint når det ikke er i et formular felt jeg smider det....
Avatar billede mugs Novice
20. marts 2007 - 17:02 #2
Måske du kan hente lidt hjælp her:

http://www.eksperten.dk/spm/369824
Avatar billede kornum Nybegynder
20. marts 2007 - 17:37 #3
Hey Mugs... er ikk hel samme problemstilling...

jeg vil smide tekst (med mellemrum) ind i et formular felt i word. - Det giver mig en ikke linjeskift, men istedet "firkanter"...  - Prøøvede på at fikse det med replace funktionen og nogle konstanter fra vba... - men funker ikke!

Det funker fint når det ikke er i et formular felt teksten (med mellemrum) bliver indsat...
Avatar billede mugs Novice
20. marts 2007 - 18:05 #4
OK - Det med formularfeltet havde jeg lige overset. Men har du prøvet at søge blandt de besvarede spørgsmål?
Avatar billede kornum Nybegynder
20. marts 2007 - 18:10 #5
Ja har forsøgt mig, men synes ikk rigtigt jeg kan finde nogle der har lignende problemer med linieskift i forms :(
Avatar billede kornum Nybegynder
20. marts 2007 - 20:07 #6
Nu får jeg det fornuftigt gemt i access notatfeltet, så det står med linieskift...

Replace(ActiveDocument.FormFields("bookmarket").Result, vbCr, vbCrLf)

Det funker fra word formen til access notatfeltet med linieskift..

Det virker desværre ikke fra access til word form.. Jeg bytter da om på vbCr, vbCrLf bagerste så den hedder vbCrLf, vbcr - men det funker ikke.. Det er først når jeg er i feltet og trykker på ENTER! - Så kommer alle linieskiftene ind fint.. så kan den pludselig "huske" dem og laver dermed firkanterne om til linjeskift!

Håber nogle har en ide til det sidste af mysteriet....
Avatar billede kornum Nybegynder
20. marts 2007 - 21:53 #7
Så lykkes det sq også... så ka der blive lukket med nedenstående svar:

Sådan ser det ud i word.... som så smider det til access...
Inputtekst1 = Replace(ActiveDocument.FormFields("bmkSKRIVELSE").Result, vbCr, vbCrLf)
Inputtekst = Replace(Inputtekst1, vbVerticalTab, vbCrLf)

I access som smider det tilbage til word formularen ser det ud som følger:
objWord.ActiveDocument.FormFields("bmkSKRIVELSE").Result = Replace(Introsamtale, vbCrLf, vbVerticalTab)

NICE! - Så lykkes det sq... fandt hjælp på nedenstående side:

http://word.mvps.org/faqs/macrosvba/SetVbCrFmFldResult.htm
Avatar billede mugs Novice
20. marts 2007 - 22:34 #8
Godt det lykkedes - Den side skal studeres nærmere ved lejlighed.
Avatar billede Ny bruger Nybegynder

Din løsning...

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.

Loading billede Opret Preview
Kategori
Dyk ned i databasernes verden på et af vores praksisnære Access-kurser

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester