Terve!
Voisiko joku ystävällinen henkilö kertoa, kuinka saan VB-sovelluksesta muuttujien arvot Wordin makrolle nähtäväksi. Eli minulla on VB:ssä asetettu muuttuja tt1="123 abc" ja haluaisin ajaa Word-dokussa olevan makron, jossa lukee esim
Selection.TypeParagraph
Selection.TypeText Text:=tt1
Tarvittaessa voidaan käyttää ASCII-tiedostoa tarjottimena.
Voisiko joku ystävällinen henkilö kertoa, kuinka saan VB-sovelluksesta muuttujien arvot Wordin makrolle nähtäväksi. Eli minulla on VB:ssä asetettu muuttuja tt1="123 abc" ja haluaisin ajaa Word-dokussa olevan makron, jossa lukee esim
Selection.TypeParagraph
Selection.TypeText Text:=tt1
Tarvittaessa voidaan käyttää ASCII-tiedostoa tarjottimena.
Vastaukset 1
Vanhimmat
Eli tälläinen koodinpätkä siirtää minkä tahansa tekstin (kokonaisuudessaan) VB:hen clipboardin kautta (lisäksi pätkä millä etsitään tekstiä dokumentista);
Dim Wdf As Word.Application
Dim strFilename As String
Dim aRange ' Tämä on variant, ei "esittelyä"
Set Wdf = CreateObject("Word.Application.8")
With Wdf
' Avataan dokumentti taustalle auki.
' Jos haluat dokumentin näkyviin,
' poista alla olevasta kommentti.
' .WindowState = wdWindowStateNormal
.Documents.Open strFileName, , ReadOnly = False, Visible = False
End With
Set aRange = ActiveDocument.Content
With aRange.Find
.Forward = True
.Wrap = wdFindStop
.Text = "Tähän etsittävä teksti"
.Execute
End With
' Kun olet tehnyt voodoosi applikaatiolle, se
' pitääpi sulkea. Tämä käy seuraavasti:
Wdf.Documents.Close
Wdf.Quit
Set aRange = Nothing
Set Wdf = Nothing
' Muista lisätä References -valikosta Word-
' objektit ohjelmaasi!