title image


Smiley Re: Was möchtest Du mit dem Fenster machen? ot.
Hallo,



Sorry, hat etwas gedauert, aber hier ist es:



Sub Bereinigung()    Dim objDoalog       As Dialog   ' Dialog - Objektvariable    Dim objWordDocument As Document ' Dokument - Objektvariable    Dim strNewFileName  As String   ' Neuer Dokument-Name    ' Dialog - initialisieren    Set objDoalog = Application.Dialogs(wdDialogFileOpen)    ' Dialog anzeigen und ermittelt, ob nicht auf OK geklickt wird.    If Not objDoalog.Show = -1 Then        ' Wenn abgebrochen wurde, dann auch abbrechen ;o)        Exit Sub    End If    ' Geöffneter Dokument in der Dokumenten-Auflistung finden    Set objWordDocument = Application.Documents(objDoalog.Name)    ' Objektvariable freigeben    Set objDoalog = Nothing    ' Wenn kein Dokument gefunden wurde, dann abbrechen (Kann mir aber nicht vorstellen)    If objWordDocument Is Nothing Then        ' Wenn doch, dann auch abbrechen        Exit Sub    End If    ' Nun kannst Du alles mit dem Dokument machen...    MsgBox objWordDocument.Name    ' Neuer Dokumentname generieren    strNewFileName = Left(objWordDocument.Name, InStr(objWordDocument.Name, ".") - 1) & _                     "-bereinigt" & _                     Right(objWordDocument.Name, Len(objWordDocument.Name) - InStrRev(objWordDocument.Name, ".") + 1)    ' Dokuement unter neuem Namen speichern    objWordDocument.SaveAs (objWordDocument.Path & "\" & strNewFileName)    ' Dokument schliessen    objWordDocument.Close    ' Objektvariable freigeben    Set objWordDocument = NothingEnd Sub

Mit freundlichen Grüßen

AndyG

E-Mail:  Andreas_Graf [öt] DevPlanet.de
Homepage:  http://www.DevPlanet.de



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: