Boîte de dialogue VBA Word 2003

Question

Notre environnement client a récemment migré du mot 2000 à 2003, nous utilisons le code ci-dessous dans l'un des modèles pour afficher la boîte de dialogue d'insertion de fichier par défaut du mot. Word est intégré à une autre application tierce Hummingbird docspen.

With Dialogs(wdDialogInsertFile) 
     .Name = "q:\*.*" 

     .Show 

    End With 

Dans ancien environnement, il ouvre la boîte de dialogue par défaut InsertFile pointant vers mon dossier de documents, alors que dans le mot 2003, il ouvre la boîte de dialogue DocsOpen InsertFile.

J'ai comparé les paramètres du mot 2000 et 2003, il semble être le même.

Toutes les suggestions sur ce s'il vous plaît.

Answer 1

Désolé, je ne peux pas reproduire cela sur Word 2003/Win XP. Copier/Coller votre code et obtenu la boîte de dialogue "Insérer un fichier". La seule chose ne fonctionne pas est de pointer vers votre répertoire q:

Pour cela, vous devez définir Options.DefaultFilePath (wdDocumentsPath) Tout d'abord, comme dans

Private Sub CommandButton1_Click() 

' save current doc path and set to insert path 
MyPath = Options.DefaultFilePath(wdDocumentsPath) 
Options.DefaultFilePath(wdDocumentsPath) = "C:\" 

' display insert file dialog 
With Dialogs(wdDialogInsertFile) ' this works in debug mode as well as on clicking Command Button from Doc 
    .Name = "*.txt" 
    .Show 
End With 

' restore original doc path 
Options.DefaultFilePath(wdDocumentsPath) = MyPath 

End Sub 

Bonne chance