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
Tässä ovat Elämäni biisi vieraat lauantai 19.9. - Yksi vieras on kohuttu TTK-juontajaehdokas
Elämäni biisi vieraslista on harvinaisen mielenkiintoinen lauantaina. Mukana myös kohuttu TTK-juontajaehdokas, josta ei201334Mies joka on oikeasti kiinnostunut
Ja näkee sut pitkäaikaisena kumppanina, siirtää vaikka vuoria selvittääkseen asiat eikä ota pienintäkään riskiä menettää1331231- 641220
- 1081205
Kunnanhallitus
Miten käy täällä vuosia tuomioita jakaneelle valittajalle, hovioikeus hylännyt kaikki syytteet.671049- 109999
Rauha, sopiiko
Ei häiritä enää toisiamme. Annetaan molemmille rauha unohtaa, pyydän tätä todella. Kiitos. Miehelle.94957Miesten (epä)viehättävyydestä kysymys
Mieltä askarruttava asia, liki dilemma. Palstallahan jotkut miesoletetut usein toteavat, että kaikki naiset tavoittelev182923- 84847
- 43824
Ei siitä pääse yli, eikä ympäri!
Pakko se on myöntää ja tunnustaa. Olisin halunnut p*nna sinua sydämeni kyllyydestä. Itseäni vanhemmalle naiselle66791Myönnetään, tunnen lämpimiä tunteita kohtaasi
Vaikutat tosin liian hyvältä ollaksesi totta. Komeita miehiä on maailma pullollaan mutta sinussa on jotain.....50676- 43656
- 58653
- 70636
- 98628
Humppila korvasi johtajia tekoälyllä
https://yle.fi/a/74-20215155 Humppilassa on lakkautettu teknisen ja hallintojohtajan virat. Säästöä tuli hetkessä 15087608Perhoseni (miehelle)
Miksi et usko, että mun rakkaus sinuun on aitoa ja vilpitöntä? Tai että se oli jo silloin? Miksi ajattelet, ettet ole r123582- 52564
- 60544