title image


Smiley Re: WORD 2003: das Makro - kwT.
'Attribute VB_Name = "modmDateiSpeichernUnter"

Sub mDateiSpeichernUnter()

Dim DocPath As String

DocPath = Dialogs(wdDialogToolsOptionsFileLocations).Setting

ChangeFileOpenDirectory DocPath

'

With ActiveDocument

With Dialogs(wdDialogFileSaveAs)

'Name aus [Textmarke]

'.Name = ActiveDocument.Bookmarks("TM1").Range.Text

'Name aus Textformularfeld

.Name = ActiveDocument.FormFields("Text1").Result

If .Show = 0 Then Exit Sub

End With

End With

End Sub      Hubert

Jedes Betriebsystem hat sein allgegenwawrtiges Maskottchen:

Unix den Daemon,

MacOS den Apfel,

Linux den Pinguin,

Windows die allgemeinen Schutzverletzungen.





geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: