Hei, ongelmani kaipaa Word/Excel -osaajaa.
Minulla on Excel -työkirjassa "Word-painike", jota klikkaamalla saan auki esitäytetyn Word -asiakirjan. Word -asiakirja on vaakasuuntainen ja ensimmäiselle (ylimmälle) riville on kirjoitettu pysyvää tekstiä, mutta toiselle riville haluaisin Excel-solusta A1 kopioituvan päivittäin vaihtuvan tekstin. Eli Word -asiakirjan ensimmäinen rivi on vakiotekstiä koko ajan, mutta toisella rivillä teksti vaihtuu päivittäin ja sen fonttikoon pitäisi skaalautua automaattisesti siten, että se mahtuu aina siihen.
Niin ja tarkoitus on siis tulostaa tuo Wordi myös. :)
Excel ja Word -tiedostot sijaitsevat samassa osoitteessa: C:/kansio/.
Tuolle Wordin toisen rivin automaattiselle täytölle löytyy varmaan jotain sopivaa VB -koodia, itse en vain tiedä mitä. Eli tähän jos saisi hieman apua. Osaan kyllä toteuttaa sen käytännössä, kunhan saan jonkun vb-koodin.
Minulla on Excel -työkirjassa "Word-painike", jota klikkaamalla saan auki esitäytetyn Word -asiakirjan. Word -asiakirja on vaakasuuntainen ja ensimmäiselle (ylimmälle) riville on kirjoitettu pysyvää tekstiä, mutta toiselle riville haluaisin Excel-solusta A1 kopioituvan päivittäin vaihtuvan tekstin. Eli Word -asiakirjan ensimmäinen rivi on vakiotekstiä koko ajan, mutta toisella rivillä teksti vaihtuu päivittäin ja sen fonttikoon pitäisi skaalautua automaattisesti siten, että se mahtuu aina siihen.
Niin ja tarkoitus on siis tulostaa tuo Wordi myös. :)
Excel ja Word -tiedostot sijaitsevat samassa osoitteessa: C:/kansio/.
Tuolle Wordin toisen rivin automaattiselle täytölle löytyy varmaan jotain sopivaa VB -koodia, itse en vain tiedä mitä. Eli tähän jos saisi hieman apua. Osaan kyllä toteuttaa sen käytännössä, kunhan saan jonkun vb-koodin.
Vastaukset 2
Vanhimmat
Eipä kukaan tiennyt auttaa ongelmassani. ;(
Yritin ratkoa ongelmaa itse huonolla menestyksellä, mutta sain jotain aikaan.
Excel-työkirjassani työskentelen Taul2:ssa, jossa on myös tuo Word-nappula.
Nyt kun painan sitä se avaa kyllä Word-asiakirjan, mutta se hakee sen "uuden" tiedon väärästä paikkaa.. eli Taul1:stä A2:sta, vaikka haluan sen hakevan sen Taul2 F2:sta.
Missä vika?
Alla kummallisesti toimiva VB -koodi. (koodissa olevan ("L9") merkitystä en tiedä.)
Missä vika?
Sub Open_Word_Document()
Dim objWord As Object
Set objWord = CreateObject("Word.Application")
objWord.Visible = True
objWord.Documents.Open "C:\wordtiedosto.docx"
'
'
'
Range("F2").Select
Selection.Copy
Application.CutCopyMode = False
Range("L9").Select
End Sub
Tuo koodi siis kyllä valitsee sen solun F2 ja jopa kopioi sen sisällön, mutta ei tee sille mitään. Ehkä olisi tarkoituksena myös liittää se teksti sinne kohteeseen? Ja tuolla L9-kohdalla ei ole käytännössä mitään väliä, makro vain valitsee jostain syystä lopuksi tuon solun tekemättä sille mitään. Näyttää myös vähän siltä, että tuo koodisi ei ole tuossa ihan kokonaisuudessaan, vaan olet jättänyt jotain olennaista pois.