Discussion :

[pragmatique]

Bonjour,

J'ai déjà posé ma question ICI, mais je ne suis pas sur que beaucoup de personnes lisent cette partie du forum

Et vu que je developpe en Delphi, autant poster ici.

En gros comment dire à Word d'ignorer cette option de windows quand il veut ouvrir un fichier TXT et de fusion ?

Merci

[BuzzLeclaire]

Bonjour,

J'ai déjà posé ma question ICI, mais je ne suis pas sur que beaucoup de personnes lisent cette partie du forum

Et vu que je developpe en Delphi, autant poster ici.

En gros comment dire à Word d'ignorer cette option de windows quand il veut ouvrir un fichier TXT et de fusion ?

Merci

Salut,


Comme tu parles de fusion je suppose que tu cherche à publiposter !!

Alors pourquoi partir d'un fichier txt ? part d'un fichier doc cela marche aussi bien...

Tiens j'ai sortie de mon contexte un exemple dans une de mes applis

Code :

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

1
2
3
                       wrdDoc.MailMerge.CreateDataSource('C:\DataDoc.doc',,,ChampDataSource);
 
                       wrdDataDoc := wrdApp.Documents.Open('C:\DataDoc.doc');

Mon DataDoc.Doc me sert de base de données pour après faire un publipostage

A+

[pragmatique]

Oui le .TXT me sert de datasource mais je ne peux pas le remplacer par un .doc je ne fais que modifier une appli existante donc je dois conserver au maximum la retrocompatibilité

Sinon à mon avis le problème sera le même car .DOC est aussi "une extension dont le type est connu" et sera masquée , du coup le Open() ne va pas trouver le fichier si on masque les extensions dans windows (c'est ce qui m'arrive pour le .TXT).

Comment faire ignorer ce paramétrage de windows par Word ?

[Jipété]

Salut.

Alors moi, j'ai fait la chose suivante :

• j'ai coché "masquer les extensions..." ;
• j'ai lancé Word et créé une nouvelle macro lui demandant d'ouvrir C:\test qui s'appelle en fait test.doc ;
• j'ai fermé ce test.doc que Word m'avait ouvert pendant l'enregistrement de la macro ;
• j'ai fait rejouer la macro et ça a fonctionné.

T'es sûr que t'as pas une blague ailleurs ?

La macro (plus basique tu meurs !) :

Code :

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

1
2
3
4
5
6
7
Sub MacroTest()
    ChangeFileOpenDirectory "C:\"
    Documents.Open FileName:="test.doc", ConfirmConversions:=False, ReadOnly:= _
        False, AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:= _
        "", Revert:=False, WritePasswordDocument:="", WritePasswordTemplate:="", _
        Format:=wdOpenFormatAuto
End Sub

[pragmatique]

Non si je décoche la case ça remarche direct donc ça vient bien de l'option windows.

Peut être qu'il faut que je vois comment passer exactement les mêmes options que ta macro depuis Delphi.