Word-lomakkeen käyttö VB:lla tehdyllä ohjelmalla

Jussi

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.

6

728

Äänestä

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • 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ä.

    Takaisin ylös

    Luetuimmat keskustelut

    1. Tänään pyörit ajatuksissa enemmän, kun erehdyin lukemaan palstaa

      En saisi, silti toivon että sinä vielä palaat ja otetaan oikeasti selvää, hioituuko särmät ja sulaudummeko yhteen. Vuod
      Ikävä
      33
      6764

    2. Huomenta ihana

      Kauniskasvoinen ihanuus 😘 saan sut vielä
      Ikävä
      37
      6253

    3. Hei rakas...

      Miten on työpäivä sujunut? Rakastan sinua 💗
      Ikävä
      29
      3454

    4. Ei tämä etene ikinä

      Kun kumpikaan ei enää ota yhteyttä. Mä en ainakaan uskalla.
      Ikävä
      45
      2910

    5. Edelleen sitä on vaikea uskoa

      Että olisit oikeasti rakastunut muhun
      Ikävä
      34
      2664

    6. Vitsi mihin menit. Heti takasin.

      Mä näin sut tuu takasin! Oli kiire, niin en ehtiny sin perään!
      Ikävä
      15
      2348

    7. Toiveikas vai toivoton

      torstai? Ajatuksia?
      Ikävä
      37
      2188

    8. Mukavaa päivää

      Mun rakkauden kohteelle ❤️ toivottavasti olet onnellinen
      Ikävä
      16
      2046

    9. Voi ei! Jari Sillanpää heitti keikan Helsingissä - Hämmästyttävä hetki lavalla...

      Ex-tangokuningas on parhaillaan konserttikiertueella. Hän esiintyi Savoy teatterissa äitienpäivänä. Sillanpää jakoi kons
      Suomalaiset julkkikset
      48
      1907

    10. En ole koskaan kokenut

      Ennen mitään tällaista rakastumista. Tiedän että kaipaan sinua varmaan loppu elämän. Toivottavasti ei tarvitsisi vain ka
      Ikävä
      19
      1777
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt