Discussion :

[edechaux]

Bonjour, j'essais d'utiliser un objet Find sur le Range du wdMainTextStory. La création de l'objet TWordApplication se passe sans problème, ainsi que la connexion au serveur OLE et l'ouverture du document. J'arrive de cette façon à lire le contenu du document via la propriété Text du Range.

Cependant quelle que soit la méthode appellée à partir de l'objet Find du Range précédant, j'obtient une violation d'accès dans la bibliothèque oleaut32.dll.

J'ai lu avec intérêt la FAQ, mais même les exemples qui en sont issus plantent avec le même message...

Quelqu'un aurait-il une idée ?


Voici le code de l'application :

J'ai une application de base : une Unit et une Form. Sur la Form il y a un bouton et un memo. Lorsque je clique sur le bouton je lance les traitements sur le fichier Word.

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
 
unit Unit1;
 
interface
 
uses
  Variants, Forms, Word97, Classes, Controls, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    function Replace(const sMotCle, sValeur: String;
      const Recherche: Find): Boolean;
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var
    FileName				: OleVariant;
    ConfirmConversions		: OleVariant;
    ReadOnly				: OleVariant;
    AddToRecentFiles		: OleVariant;
    PasswordDocument		: OleVariant;
    PasswordTemplate		: OleVariant;
    Revert					: OleVariant;
    WritePasswordDocument	: OleVariant;
    WritePasswordTemplate	: OleVariant;
    Format					: OleVariant;
{    Encoding				: OleVariant;
    Visible					: OleVariant;}
 
	Word		: TWordApplication;
    DocWord		: _Document;
	StoryZones	: StoryRanges;
	Zone		: Range;
begin
 
    FileName				:= 'C:\doc.doc';
    ConfirmConversions		:= False;
    ReadOnly				:= False;
    AddToRecentFiles		:= False;
    PasswordDocument		:= EmptyParam;
    PasswordTemplate		:= EmptyParam;
    Revert					:= False;
    WritePasswordDocument	:= EmptyParam;
    WritePasswordTemplate	:= EmptyParam;
    Format					:= EmptyParam;
{    Encoding				:= EmptyParam;
    Visible					:= True;}
 
	Word	:= TWordApplication.Create(self);
 
	try
 
		if Assigned(Word) then begin
 
            Word.Connect;
            Word.Visible := True;
 
            DocWord	:= Word.Documents.Open(
                            FileName,
                            ConfirmConversions,
                            ReadOnly,
                            AddToRecentFiles,
                            PasswordDocument,
                            PasswordTemplate,
                            Revert,
                            WritePasswordDocument,
                            WritePasswordTemplate,
                            Format);{,
                            Encoding,
                            Visible);}
 
            StoryZones	:= DocWord.StoryRanges;
            Zone		:= StoryZones.Item(wdMainTextStory);
 
			Memo1.Lines.Add(Zone.Text);
 
            Replace('$ADHERENT$', '1', Zone.Find);
 
//            DocWord.PrintPreview;
 
		end;
 
	finally
 
    	if Assigned(Word) then Word.Quit;
 
	end;
 
end;
 
 
function TForm1.Replace(
	const sMotCle	: String;
	const sValeur	: String;
	const Recherche	: Find) : Boolean;
var
	FindText			: OleVariant;
	MatchCase			: OleVariant;
	MatchWholeWord		: OleVariant;
	MatchWildcards		: OleVariant;
	MatchSoundsLike		: OleVariant;
	MatchAllWordForms	: OleVariant;
	IsForward			: OleVariant;
	Wrap				: OleVariant;
	Format				: OleVariant;
	ReplaceWith			: OleVariant;
	Replace				: OleVariant;
{	MatchKashida		: OleVariant;
	MatchDiacritics		: OleVariant;
	MatchAlefHamza		: OleVariant;
	MatchControl		: OleVariant;}
begin
 
	FindText			:= sMotcle;
	MatchCase			:= False;
	MatchWholeWord		:= False;
	MatchWildcards		:= False;
	MatchSoundsLike		:= False;
	MatchAllWordForms	:= False;
	IsForward			:= True;
	Wrap				:= wdFindStop;
	Format				:= False;
	ReplaceWith			:= sValeur;
	Replace				:= wdReplaceAll;
{	MatchKashida		:= False;
	MatchDiacritics		:= False;
	MatchAlefHamza		:= False;
	MatchControl		:= False;}
 
	Recherche.Get_Style;
 
	Result := Recherche.Execute(
				FindText,
				MatchCase,
				MatchWholeWord,
				MatchWildcards,
                MatchSoundsLike,
                MatchAllWordForms,
                IsForward,
                Wrap,
                Format,
                ReplaceWith,
                Replace);{,
                MatchKashida,
                MatchDiacritics,
                MatchAlefHamza,
                MatchControl);}
 
end;
 
end.

Merci d'avance.

[MFDev]

Salut,
J'ai essayé ton programme avec unit Word2000: pas de problème !

Code :

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

1
2
uses
  Variants, Forms, Word2000, Classes, Controls, StdCtrls;

Tout se passe bien, recherche, remplacement. Je suis sous Delphi7 pro.
@+
Fabrice

[edechaux]

Je suis sous Delphi 6 Ent et même avec la unit Word2000 j'ai le même genre de problèmes.

Je pense donc que ça doit être un problème avec mon office.


Merci bien.

[edechaux]

J'ai fait une réparation de l'installation d'Office et ça fonctionne correctement maintenant ! J'adore l'informatique aléatoire...