How to use `execCommand("copy")`

HTML

<section class="entry" id="entry-content"> <p>Hai bisogno di acquistare un nuovo smartphone, avevi intenzione di farlo sottoscrivendo un piano telefonico con 3, ma sei ancora indeciso sul tipo di abbonamento da scegliere? Vuoi passare a 3 e ti occorre qualche consiglio sulla promozione più adatta alle tue esigenze?</p> <p>Bene, ho preparato per te un elenco con tutte le principali offerte <strong>3 telefonia</strong> mobile per clienti ricaricabili e in abbonamento. Confrontale tutte e valuta qual è che fa maggiormente al caso tuo.</p> <p>Partiamo con le offerte <strong>3 telefonia</strong> mobile in abbonamento, le quali si suddividono in: <strong>TOP SIM 800</strong> che per 25 euro/mese include 800 minuti di chiamate, 200 SMS e 2GB di traffico Internet; <strong>TOP SIM 1600</strong> che per 35 euro/mese include 1600 minuti di chiamate, 400 SMS e 2GB di traffico Internet e <strong>TOP SIM Infinito</strong> che per 45 euro/mese offre chiamate ed SMS infiniti più 20GB di traffico Internet. </p> <p>Chi <strong>passa a 3</strong> mantenendo il proprio numero può usufruire di una promozione che abbassa il canone mensile a 10 euro/mese per TOP SIM 800, 20 euro/mese per TOM SIM 1600 e 30 euro/mese per TOP SIM Infinito. </p> <p>Chi ha bisogno di acquistare un nuovo smartphone, può sottoscrivere una delle offerte di 3 Italia che prevedono l&#8217;acquisto di un telefono abbinata a un piano telefonico. Questo tipo di offerta prevede il versamento di una somma come anticipo al momento della sottoscrizione (minimo 49 euro), una somma finale di riscatto per il dispositivo (da 20 euro in su) e un vincolo contrattuale di 24 o 30 mesi. Sono tre le tariffe disponibili, eccole in dettaglio.</p> <ul> <li><strong>TOP Smart</strong> &#8211; è disponibile nel taglio TOP Infinito che offre chiamate ed SMS illimitati più 20GB di Internet a 49 euro/mese.</li> <li><strong>TOP Super</strong> &#8211; è sottoscrivibile nella versione 400 che a 24 euro/mese permette di fare 400 minuti di...

JavaScript

Sub try1()
Dim Ie As Object


Set Ie = CreateObject("InternetExplorer.Application")


With Ie
.Visible = False


.Navigate "about:blank"


.document.body.InnerHTML = Sheets("Sheet1").Range("A1").Value


.document.body.createtextrange.execCommand "Copy"
ActiveSheet.Paste Destination:=Sheets("Sheet1").Range("B1")


.Quit
End With
End Sub