come incollare testo non formattato in automatico

[AlanAdler]

ciao a tutti

vorrei chiedervi se esiste un modo per incollare un testo (su un
documento word) proveniente da un'altra fonte (ad esempio un sito web),
togliendo in automatico la formattazione originale (ad esempio, stile
del carattere, dimensione del carattere, colore del carattere ecc) così
da avere il testo incollato nella formattazione da noi scelta.

Ad esempio sò che un modo è andare in:

Modifica> Incolla speciale: testo non formattato

ma mi servirebbe un metodo automatico, senza perdere tempo. Ho provato
anche a creare un testo di scelta rapida per il comando "Incolla
speciale: testo non formattato" ma non è possibile.

Sapete aiutarmi?

ciao grazie!

Riccardo

[Giovanni Zezza]

Post by AlanAdler
ma mi servirebbe un metodo automatico, senza perdere tempo. Ho provato
anche a creare un testo di scelta rapida per il comando "Incolla
speciale: testo non formattato" ma non è possibile.

Apri l'editor di Visual Basic e incolla il codice seguente:

Sub Incolla_testo()
Selection.PasteSpecial DataType:=wdPasteText
End Sub

A questo punto puoi collegare un pulsante, o una combinazione di tasti,
alla macro Incolla_testo.

Tieni presente, però, che se negli appunti non è disponibile il formato
"testo non formattato" (evento raro, ma pur sempre teoricamente possibile),
la macro produrrà un errore.

Bisognerebbe inserire un controllo sui formati disponibili, ma in questo
momento non ho tempo di studiare la cosa.

Ciao.

[AlanAdler]

ciao, grazie mille, ho risolto!

Riccardo

[Giovanni Zezza]

Post by Giovanni Zezza
Tieni presente, però, che se negli appunti non è disponibile il formato
"testo non formattato" (evento raro, ma pur sempre teoricamente possibile),
la macro produrrà un errore.
Bisognerebbe inserire un controllo sui formati disponibili, ma in questo
momento non ho tempo di studiare la cosa.

Mi sa che l'unica (a parte intercettare l'errore) è ricorrere alle funzioni
api di Windows:

Public Const CF_TEXT = 1

Declare Function IsClipboardFormatAvailable Lib _
"user32" (ByVal wFormat As Long) As Long


Sub Incolla_testo
If IsClipboardFormatAvailable(CF_TEXT) Then
Selection.PasteSpecial DataType:=wdPasteText
End If
End Sub

Io almeno non ho trovato nient'altro di immediatamente disponibile.

Ciao.