title image


Smiley Re: dialogs(wdDialogFileOpen).Show wie kriege
Hallo Robert,



hilft Dir dieses Makro weiter?



Public Const CMD_OK As Integer = -1

Public Const CMD_ABBRECHEN As Integer = 0

Public Const CMD_SCHLIESSEN As Integer = -2



Sub Demo()

 Dim xDateiÖffnenPfadOriginal As String

 Dim xDateiGewählt As String

 Dim xPfadGewählt As String

 Dim xAntwort As Integer



 'Eingestellt

 xDateiÖffnenPfadOriginal = Options.DefaultFilePath(wdCurrentFolderPath)



 'Dialog Datei|Öffnen

 With Dialogs(wdDialogFileOpen)

  .Name = "*.doc"

  xAntwort = .Display

  

  'Gewählte Datei

  If xAntwort = CMD_OK Then

   xDateiGewählt = .Name

   ' der Pfad der geöffneten Datei liefert den gesuchten Wert

   xPfadGewählt = Options.DefaultFilePath(wdDocumentsPath)

  End If

 End With



 'Original Datei|Öffnen-Pfad

 ChangeFileOpenDirectory xDateiÖffnenPfadOriginal

 

 ' Anzeigen

 strMess$ = "Gewählte Datei: " & xDateiGewählt & vbCrLf

 strMess$ = strMess$ & "Pfad: " & xPfadGewählt & vbCrLf

 strMess$ = strMess$ & "Original-Pfad: " & xDateiÖffnenPfadOriginal

 MsgBox strMess$

End Sub Code eingefügt mit Syntaxhighlighter 1.16Hubert

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: