Discussion :

[piapia]

Bonjour,

Je souhaiterai pouvoir vider le presse-papiers Office de Word (Menu Edition/Presse-papiers Office) dans un programme Delphi.

Quelqu'un a une idée ?

[Laurent Dardenne]

Salut,
regarde du coté de DataObject.Clear.
A tester.

[piapia]

La piste était bonne et j'ai trouvé le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub ClearClipboardText()
Dim objData As New DataObject
    objData.SetText ""
    objData.PutInClipboard
End Sub

Mais je ne sais pas trop si je peux faire la même chose en delphi. Il y a un type DataObject ?

[Laurent Dardenne]

Mais je ne sais pas trop si je peux faire la même chose en delphi. Il y a un type DataObject ?

En cherchant un peu :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
unit MSComctlLibXP;
  IVBDataObject = interface;
  DataObject = IVBDataObject;
 
// *********************************************************************//
// Interface: IVBDataObject
// Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
// GUID:      {2334D2B1-713E-11CF-8AE5-00AA00C00905}
// *********************************************************************//
  IVBDataObject = interface(IDispatch)
    ['{2334D2B1-713E-11CF-8AE5-00AA00C00905}']
    procedure Clear; safecall;
    function GetData(sFormat: Smallint): OleVariant; safecall;
    function GetFormat(sFormat: Smallint): WordBool; safecall;
    procedure SetData(vValue: OleVariant; vFormat: OleVariant); safecall;
    function Get_Files: IVBDataObjectFiles; safecall;
    property Files: IVBDataObjectFiles read Get_Files;
  end;

[piapia]

Ca fonctionne......... mais sur le presse-papier windows et non pas le presse-papier office!!!! :-(

Une autre idée ?

[piapia]

J'ai trouvé ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.CommandBars("Clipboard").Controls(4).Execute

mais ça ne fonctionne que sur Office2000

[Laurent Dardenne]

Une autre idée ?

Non, mais quelle version d'Office utilises-tu ?

[piapia]

En fait, je voudrais que ça marche quelque soit la version d'Office.
Si les fonctions sont différentes, je ferai un case mais déjà faudrait il trouver la fonction pour les autres versions...