Minkälaista koodia täytyy VB6-ohjelmaan kirjoittaa jotta se avaa olemassaolevan word-lomakkeen ja kirjoittaa lomakkeessa oleviin tekstikenttiin. Ja lopuksi pitäisi vielä saada lomake tulostettua. Jos mahdollista niin word-lomakkeen ei tarvisi edes tulla käyttäjän näkyville.
Vastaukset 6
- Amatöörikoodailija
Mulla on samanlainen ongelma kun pitäis saada ohjelmalla käytettyä wordia, mutta taidot ei ihan riitä. Eikö täältä todellakaan löydy yhtään ammattilaista joka vois auttaa miehiä mäessä?
- jokuvaan
Olen joskus tehnyt VB:lla ohjelman, joka kirjoitti tuloksia Exceliin. Sama toimisi kait Wordin suhteen. En vaan ole Wordin kanssa pelannut, ainakaan lomakkeita.
Pitäisi perehtyä siihen, mitä ovat Wordin lomakkeet käytännössä.
Millaiseen tapaukseen tuota nyt tarvitsisi? - Kunde
jokuvaan kirjoitti:
Olen joskus tehnyt VB:lla ohjelman, joka kirjoitti tuloksia Exceliin. Sama toimisi kait Wordin suhteen. En vaan ole Wordin kanssa pelannut, ainakaan lomakkeita.
Pitäisi perehtyä siihen, mitä ovat Wordin lomakkeet käytännössä.
Millaiseen tapaukseen tuota nyt tarvitsisi?Kayta kirjainmerkkeja eli Bookmark koodissa ja piece of case
- Amatöörikoodailija
Kunde kirjoitti:
Kayta kirjainmerkkeja eli Bookmark koodissa ja piece of case
Mulle ei ainakaan sano kirjanmerkit yhtään mitään. Oisko sulla joku lyhyt esimerkki miten niitä käytetään, niin vois ruveta opettelemaan.
- Kunde
Amatöörikoodailija kirjoitti:
Mulle ei ainakaan sano kirjanmerkit yhtään mitään. Oisko sulla joku lyhyt esimerkki miten niitä käytetään, niin vois ruveta opettelemaan.
Wordissa vie kursori haluttuun paikkaan ja menusta Lisaa/Kirjainmerkki anna nimi ja lisaa.
lisaa allaoleva koodi ja testaa.
esimerkissa kirjainmerkit "Etunimi" ja "Sukunimi"
toimii siten,etta voit kirjoittaa aina uudestaa paalle
Sub Kirjainmerkki()
Dim Teksti As Range
Set Teksti = ActiveDocument.Bookmarks("Etunimi").Range
Teksti.Text = "Ville"
ActiveDocument.Bookmarks.Add Name:="Etunimi", Range:=Teksti
Set Teksti = ActiveDocument.Bookmarks("Sukunimi").Range
Teksti.Text = "Virtanen"
ActiveDocument.Bookmarks.Add Name:="Sukunimi", Range:=Teksti
End Sub
excelissa tarvitset viittauksen word objektiin ja nimet tietenkin tulee muuttujista jne...
Vaikeeta kun on vain Thaiversio kaytossa...
- johncage
Tässä runko, joka aukaisee wordin, dokumentin ja täyttää dokumenttiin lisätyn fieldin (txt1). Muista lisätä referensseihin Microsoft office- viittaus.
Dim oWord As New Word.Application
oWord.Visible = False
oWord.Documents.Open "c:\doc.doc"
oWord.ActiveDocument.FormFields("txt1").Result = "tekstiä"
' printtaus
'oWord.ActiveDocument.PrintOut ...
oWord.Quit
Set oWord = Nothing
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Gallup: Kansalaiset eivät usko velkajarruun
Puolet suomalaisista ei usko velkajarrun vaatimien sopeutusten toteutuvan, kertoo Iro Researchin kyselytutkimus. Kokoom1231365- 2481170
- 681014
- 59976
Martsusta tuli leuhka
Ja ylimielinen. Hän ei nosta persettäkään ilmaseksi . Luulempa et nämä ei tee hyvää hyvinvointivalmennuksille.... Nannal251890Kuisla Group Oy jättänyt yrityssaneeraushakemuksen
Samalla yrityssaneeraukseen on hakeutunut Kuisla henkilökohtaisesti ja Seinäjoen Motelli Oy, joka omistaa Sorsanpesän ki42843Hei rakkaani.
Kohtaaminen lähestyy. Miten teemme sen? Kumpi ottaa yhteyttä vai törmäämmekö jossain sattumalta? Tuleva vaimosi70785Ethän voinut nainen tietää, että rikot rikotun
Omaa elämää taas mietin aamuyön tunteina. En vieläkään löytänyt muistin sokkeloista ainuttakaan onnen hetkeä. Kaipuu on72782- 42736
Uskallanko laittaa sulle viestiä?
Se viesti on tossa valmiina ja lähettämistä vaille valmis. Kun ei kauhee sti tunneta niin eipä sillä olisi niin väliä. S58720- 67703
Mies joka on oikeasti kiinnostunut
Ja näkee sut pitkäaikaisena kumppanina, siirtää vaikka vuoria selvittääkseen asiat eikä ota pienintäkään riskiä menettää124642Kiulu myynnissä!
Kiulu hakee taas uutta yrittäjää. https://www.yritysporssi.fi/etela-pohjanmaa-lansi-suomi-finland/myytavat/yritykset/ma26618- 85601
- 26600
Tulisiko naisille asettaa korkeammat eläkemaksut
Tämä tuli mieleeni kun luin aamun lööppejä. Japanissa alkaa olla "uutta nuorisoa" ihan urakalla, ikä alkaa sadan jälkeen187544- 24514
Et pysty peittämään minulta
Sinä olet hyvä peittämään asioita niin halutessasi. Pystyt pitkiäkin aikoja salaamaan juttuja. Juuri mietin tuossa, olet47514Mitä oikein tapahtui? Maajussi-Jetta sai tylyt pakit - Sulhoehdokas selittää: "Ei lentänyt kipinät"
Maajussille morsian -sarjassa etsitään rakkautta ja rinnalle kumppania. Yksi maajusseista on Jetta - liikunnallinen ja12507- 40477