26. maj 2005 - 15:05Der er
15 kommentarer og 1 løsning
function i excel som arbejder i word
Det er lidt svært at forklare dette spørgsmål, men det giver mig grå hår. Jeg kalder fra excel et word doc. og fra excel udfylder jeg teksten (Teksten består af variabler fra et ark i excel)som danner et brev og en check(på samme side), problemet ligger i at brugeren gerne vil kunne tilføre individuel ekstra tekst, uden at selve checken flytter sig ned på side 2.
Jeg tænkte noget hen ad en tekstbox som brugeren kan udfylde via excel og som makroen kan flette ind som variabel sammen med det andet tekst, men jeg er åben for alle forslag. Men det løser jo ikke problemet med checken rykker sig:-(. Det er ikke altid brugeren ønsker ekstra tekst og teksten vil være af variabel størrelse.
Hvad med at afsætte en tabel i Word-dokumentet på forhånd (Skabelon) uden synlige gitterlinier. Deri ville en tekst evt. kunne indsætte - uden at rykke checken?
Det har jeg også prøvet, men tabellen rykker stadig checken, hvis brugeren skriver udover tabellens størelse. Jeg havde også tænkt på at sætte selve checken ind i en sidefod, da den jo så var låst fast, men jeg kan ikke få makroen til ovre fra excel at gå ind i sidefod og indsætte mine variabler.....
Nedenstående kode er indlagt i Excel - men derudover er der heri sat en reference til Word (det har du nok gjort) Åbner sidefod og skriver Test-Tekst heri.
Måske kan du anvende dette?
Sub xx() Dim wd As Word.Application Set wd = CreateObject("word.application")
Documents("Dok1.doc").Activate
With ActiveDocument.ActiveWindow.View .Type = wdPrintView .SeekView = wdSeekCurrentPageFooter WordBasic.Insert "Test-Tekst" End With
Ja det er jeg klar over:-) mit dokument hedder "checkdokument", Documents("checkdokument.doc").Activate det er rettet til...meeen aligevel syntes den det er forkert:-( Er det bare mig der er blind:-)
;-) Det virker bedre:-), hvis man må stille et lille tillægsspørgsmål? så tager den Ikke mine mellemrum og tabs med i sidefoden hvad skal der til? den tekst jeg skal have indsat ser således ud:
Det er nok et MEGET dumt spørgsmål .. meen tabulatorstop i sidefoden....? (jeg er ikke så stærk i wordsprog, jeg har kun arbejdet med makroer i excel) Og det aller aller sidste, det skal være skriftstørrelse 9 og ikke 7 ....:-) *Smiler meget sødt*
Hej igen hmm der dukkede pludselig et nyt problem op, når jeg kører den i sammenhæng med det hele, stopper den når den rammer WordBasic.Insert og siger at kommandoen insert ikke er tilgængelig, fordi der ikke er et aktivt dokument vindue, men den stiller sig i sidefod og det hele. Du må sige til hvis du vil have lidt point for dette spørgsmål også.:-)
Sp.1 anvender du en Word-skabelon. - 2 fabrikere du flere checks ad gangen.
Måske vil det være en ide, enten at lægge hele koden ud her - eller sende den til mig direkte - pb@skivehs.dk
Synes godt om
Ny brugerNybegynder
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.
