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

731

    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ä.

    Luetuimmat keskustelut

    1. Kumpi vetoaa enemmän sinuun

      Kaivatun ulkonäkö vai persoonallisuus? Ulkonäössä kasvot vai vartalo? Mikä luonteessa viehättää eniten? Mikä ulkonäössä?
      Ikävä
      92
      1826
    2. Ei se mene ohi ajan kanssa

      Näin se vaan on.
      Ikävä
      85
      1272
    3. Tavoitteeni onkin ärsyttää

      Sua niin turhaudut ja unohdat koko homman
      Ikävä
      110
      1133
    4. Tunnistebiisi

      Laita joku tunnistebiisi, niin tiedän ett oot täällä ja kaipaat ehkä mua
      Ikävä
      76
      1017
    5. Taidat tykätä linnuista paljon

      Mikä on sun lemppari ☺️😉🥹🦢🐦‍⬛🦉🦜🦚
      Ikävä
      105
      919
    6. Okei nyt mä ymmärrän

      Olet siis noin rakastunut, se selittää. Onneksesi tunne on molemminpuolinen 😘
      Ikävä
      57
      853
    7. Ei sun tarvi jännittää enää

      en yritä enää mitään. Tiedän että olin mauton ja sössin kaiken.
      Ikävä
      36
      762
    8. Miks käyttäydyt noin?

      Välttelet kaikkia kohtaamisia...
      Ikävä
      47
      761
    9. Olen huolissani

      Että joku päivä ihastut/rakastut siskooni. Ja itseasiassa haluaisin, ettei hän olisi mitenkään sinun tyyppiäsi ja pitäis
      Ikävä
      47
      701
    10. Minkälainen ääni mulla on mies

      Sinun mielestä?
      Ikävä
      33
      683
    Aihe