title image


Smiley Re: Dateinamenvorschlag beim Speichern aus Textfeld...




      

Sub FileSaveAs()



    'Argumentliste der Dialogfelder: http://msdn.microsoft.com/library/default.asp?url=/library/en-us/vbawd10/html/wohowDialogArguments.asp

    

    Dim Dlg As Dialog

    Dim strvFieldName

    Dim strFieldResult

    Dim strDocExtension

    Dim vFieldName

    

    vFieldName = "TextFeld1"

    strDocExtension = ".doc"

    

    strFieldResult = ActiveDocument.FormFields(vFieldName).Result

    

    Set Dlg = Dialogs(wdDialogFileSaveAs)

    Dlg.Name = strFieldResult & strDocExtension

    If Dlg.Show = 0 Then

        StatusBar = "FileSaveAs-dialog closed without save"

        Exit Sub

    End If

    

    StatusBar = "Document saved to : " & ActiveDocument.FullName

    

End Sub



Sub FileSave()



    If ActiveDocument.Path = "" Then

        Call FileSaveAs

    Else

        ActiveDocument.Save

    End If

    

End Sub 



Code eingefügt mit Syntaxhighlighter 3.0




 
Gruß Martin




eMail und OfficeLine




geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: