title image


Smiley Re: Dateinamenvorschlag beim Speichern aus Textfeld...
noch eine Ergänzung zur Fehlerbehandlung, falls das Formularfeld nicht vorhanden ist







      

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



Sub FileSaveAs()



    On Error Resume Next

    

    Dim Dlg As Dialog

    Dim strvFieldName As String

    Dim strFieldResult As String

    Dim strDocExtension As String

    Dim vFieldName As Variant

    Dim oFormField As FormField

    

    vFieldName = "TextFeld1"

    Set oField = ActiveDocument.FormFields(vFieldName)

    

    If Err <> 5941 Then

        'FormField found and get the Fieldresult

        strFieldResult = oField.Result

        On Error GoTo 0

    End If

    

    strDocExtension = ".doc"

    

    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: