CIao a tutti,
potete offrirmi un input per copiare il contenuto di una cella X in un punto Y del testo chiamato con segnalibro "pippo"?
Mi piacerebbe poi conoscere la stringa su word per avviare la stampa dell'intero documento.
Moderatori: Anthony47, Flash30005
Sub IncollaSuSegnalWord()
Stringa = Range("D8").Value
Const sFILENAME As String = "C:\Calculon.doc"
Set wrdApp = CreateObject("Word.Application")
wrdApp.Visible = True
Set wrdDoc = wrdApp.Documents.Open(sFILENAME)
With wrdDoc
.Bookmarks("pippo").Range.Text = Stringa
End With
wrdApp.ActiveDocument.Save
wrdApp.Quit
End SubTorna a Applicazioni Office Windows
| Trasferimento dati sparpagliati da foglio1 a foglio2 Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 7 |
| Excel apre solo una schermata bianca Autore: jameswilson |
Forum: Applicazioni Office Windows Risposte: 1 |
Visitano il forum: Nessuno e 41 ospiti