Discussion :

[lejert]

Salut,

J'utilise un OleContainer pour afficher un fichier .doc (MS winword).

Je rencontre un petit probleme car j'aimerais remplacer une chaîne de caractère par un paragraphe que je créerais.

J'ai donc une chaîne de caractère qui est toujours la même (ex : [#?_Bla]) dans mon fichier .doc. J'ai aussi une TList qui contient 2 types d'objets. En fonction du type d'object je voudrais créer des paragraphes avec des propriétés de cette TList.

Ex de ma TList envoyée :

[0]:Titre 1
[1]:Element 1 du titre 1
[2]:Element 2 du titre 1
[3]:Element 3 du titre 1
[4]:Titre 2
[5]:Element 1 du titre 2
[6]:Titre 3
[7]:Element 1 du titre 3
[8]:Element 2 du titre 3

Exemple de fichier .doc

Veuillez trouver ci-joint la liste des éléments demandés :

[#?_Bla]

Merci de votre collaboration

Et voici un exemple de ce que je voudrais obtenir :

Veuillez trouver ci-joint la liste des éléments demandés :

Titre 1 <-- changement de police etc... suivant le type titre ou élément
Element 1 du titre 1
Element 2 du titre 1
Element 3 du titre 1
Titre 2
Element 1 du titre 2
Titre 3
Element 1 du titre 3
Element 2 du titre 3

Merci de votre collaboration

Je sais bien sur gérer mes éléments de ma TList. Ce qui m'interresse c'est remplacer cette chaîne non pas par une autre (car ca c dans la FAQ)

Mais par un texte plus complexe qui gère les polices et les sauts de lignes.

Je n'arrive pas a faire cela


Merci pour votre aide

[lejert]

A titre d'info, voila la solution

Comme les champs sont des elements de formulaire, ca facilite les choses

D'abord retrouver l'index du FormField

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
function TfrmDocManager.FindFieldIndexOf(Str : String) : Integer;
var
    i : Integer;
    iOle : OleVariant;
Begin
    for i := 1 to CurrentDocument.FormFields.Count do Begin
        iOle := i;
        if CurrentDocument.FormFields.Item(iOle).Result = Str then Begin
            Result := i;
            Exit;
        End;
    End;
End;

Voila la fonction de remplacement :

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
procedure TfrmDocManager.FillGroupItems(ItemList : TList);
var
    i, FieldIndex : Integer;
    lbOle, intOle : OleVariant;
 
Begin
    lbOle := wdLineBreak;
    FieldIndex := FindFieldIndexOf('[#$1_CompleteList]'); // <-- Tag a rechercher
    intOle := FieldIndex;
    CurrentDocument.FormFields.Item(intOle).Select;
    CurrentDocument.Application.Selection.InsertParagraph;
 
    CurrentDocument.Application.Selection.SetRange(CurrentDocument.Application.Selection.End_,CurrentDocument.Application.Selection.End_); // <-- Pour placer le curseur en fin de sélection
 
    for i := 0 to ItemList.Count - 1 do Begin
        if TObject(ItemList[i]).ClassName = 'TGroup' then Begin
            //SetGroupFontStyle; // <== marche pas ???
            CurrentDocument.Application.Selection.InsertBreak(lbOle); // <-- Saut de ligne
            CurrentDocument.Application.Selection.InsertAfter(TGroup(ItemList[i]).Name + ' : ');
            CurrentDocument.Application.Selection.SetRange(CurrentDocument.Application.Selection.End_,CurrentDocument.Application.Selection.End_);
            CurrentDocument.Application.Selection.InsertBreak(lbOle);
            CurrentDocument.Application.Selection.SetRange(CurrentDocument.Application.Selection.End_,CurrentDocument.Application.Selection.End_);
 
        End
        else if TObject(ItemList[i]).ClassName = 'TItemType' then Begin
            //SetItemFontStyle;  // <== marche pas ???
            CurrentDocument.Application.Selection.InsertAfter('      ' + TItemType(ItemList[i]).Name);
            CurrentDocument.Application.Selection.SetRange(CurrentDocument.Application.Selection.End_,CurrentDocument.Application.Selection.End_);
        End;
        CurrentDocument.Application.Selection.InsertBreak(lbOle);
        CurrentDocument.Application.Selection.SetRange(CurrentDocument.Application.Selection.End_,CurrentDocument.Application.Selection.End_);
    End;
End;

Les deux fonctions suivantes ne marchent pas ... si qqun a une idée ...

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
procedure TfrmDocManager.SetGroupFontStyle;
var
    oleTrue, OleFalse : OleVariant;
Begin
    OleTrue  := True;
    OleFalse := False;
    CurrentDocument.Application.Selection.Font.Bold := OleFalse;
    CurrentDocument.Application.Selection.Font.Italic := OleFalse;
    CurrentDocument.Application.Selection.Font.Underline := OleTrue;
End;
 
 
procedure TfrmDocManager.SetItemFontStyle;
var
    oleTrue, OleFalse : OleVariant;
Begin
    OleTrue  := True;
    OleFalse := False;
    CurrentDocument.Application.Selection.Font.Bold := OleTrue;
    CurrentDocument.Application.Selection.Font.Italic := OleTrue;
    CurrentDocument.Application.Selection.Font.Underline := OleFalse;
End;