FAQ DelphiConsultez toutes les FAQ

Nombre d'auteurs : 123, nombre de questions : 920, dernière mise à jour : 8 novembre 2019  Ajouter une question

 

Cette FAQ a été réalisée à partir des questions fréquemment posées sur les forums Delphi et Delphi et bases de données de www.developpez.com et de l'expérience personnelle des auteurs.

Nous tenons à souligner que cette FAQ ne garantit en aucun cas que les informations qu'elle propose soient correctes. Les auteurs font le maximum, mais l'erreur est humaine. Cette FAQ ne prétend pas non plus être complète. Si vous souhaitez y apporter des corrections ou la compléter, contactez un responsable (lien au bas de cette page).

Nous espérons que cette FAQ saura répondre à vos attentes. Nous vous en souhaitons une bonne lecture.

L'équipe Delphi de Developpez.com.

Commentez


SommaireMicrosoft OfficeMicrosoft WordSignets (3)
précédent sommaire suivant
 

Il y a toujours destruction d'un signet portant sur une plage. Le signet fait partie de la plage.

Code delphi : Sélectionner tout
1
2
3
4
5
6
7
Var Zone:Range; 
    Signet:OleVariant; 
begin 
  Signet:='genre'; 
  Zone:=WordApplication1.ActiveDocument.Bookmarks.Item(Signet).Range; 
  Zone.Text := 'madame'; 
end;
Le signet 'genre' est détruit dans cette opération. Il faut toujours recréer le signet après, comme ci-dessous.
Code delphi : Sélectionner tout
1
2
3
4
5
6
7
Var Zone:Range; 
    Signet:OleVariant; 
begin 
  WordApplication1.ActiveDocument.Bookmarks.Item(Signet).Range.Select; 
  WordApplication1.Selection.Text := 'Madame'; 
  WordApplication1.ActiveDocument.Bookmarks.Add('Genre',EmptyParam); 
end;
Pour éviter cela, il vaut mieux utiliser des signets d'insertion (défini sur un point)

Mis à jour le 18 janvier 2014 bidou

On appelle la méthode collapse de la sélection avant l'insertion

Code delphi : Sélectionner tout
1
2
3
4
5
6
7
8
9
10
11
12
13
Var Zone:OleVariant; 
    Direction:OleVariant; 
begin 
  Direction:=wdCollapseEnd; 
  WordApplication1.selection.Collapse(Direction); 
  With WordApplication1.ActiveDocument.Bookmarks Do 
  Begin 
    Zone:=WordApplication1.Selection.Range; 
    Add('Nom',Zone); 
    DefaultSorting := wdSortByName; 
    ShowHidden := True; 
  End; 
End;

Mis à jour le 18 janvier 2014 bidou

On utilise la décomposition du Range en Start et End_

Code delphi : Sélectionner tout
1
2
3
4
5
6
7
8
9
10
11
Var Signet1:OleVariant; 
    Signet2:OleVariant; 
    Debut  :OleVariant; 
    Fin    :OleVariant; 
begin 
  Signet1:='sig1'; 
  Signet2:='sig2'; 
  Debut:=WordApplication1.ActiveDocument.Bookmarks.Item(Signet1).Range.Start; 
  Fin  :=WordApplication1.ActiveDocument.Bookmarks.Item(Signet2).Range.End_; 
  WordApplication1.ActiveDocument.Range(Debut,Fin).Select; 
End;

Mis à jour le 18 janvier 2014 bidou

Proposer une nouvelle réponse sur la FAQ

Ce n'est pas l'endroit pour poser des questions, allez plutôt sur le forum de la rubrique pour ça


Réponse à la question

Liens sous la question
précédent sommaire suivant
 

Les sources présentées sur cette page sont libres de droits et vous pouvez les utiliser à votre convenance. Par contre, la page de présentation constitue une œuvre intellectuelle protégée par les droits d'auteur. Copyright © 2019 Developpez Developpez LLC. Tous droits réservés Developpez LLC. Aucune reproduction, même partielle, ne peut être faite de ce site et de l'ensemble de son contenu : textes, documents et images sans l'autorisation expresse de Developpez LLC. Sinon vous encourez selon la loi jusqu'à trois ans de prison et jusqu'à 300 000 € de dommages et intérêts.