title image


Smiley Re: Fehler im VBA Code
Hallo nochmals!



Der ganze Code würde so lauten.



Private Sub CommandButton1_Click()

Dim temporär As Boolean

Dim text, path As String

Dim zahl As Integer

temporär = Application.Dialogs(wdDialogFileOpen).Show

If temporär = True Then

zahl = Documents.Count + 1

path = Documents(zahl).FullName

text = Documents(zahl).text

Documents(zahl).Close (0)

txt1.Text = text

End If

End Sub



Josef





geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: