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 Sub
Torna a Applicazioni Office Windows
Excel: formula automatica per evidenziare prodotto scaduto Autore: gamma_ray |
Forum: Applicazioni Office Windows Risposte: 3 |
Salvare file excel in formato html escludendo le immagini Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 10 |
formula excel non visualizza risultato Autore: tommasog |
Forum: Applicazioni Office Windows Risposte: 6 |
Visitano il forum: Nessuno e 90 ospiti