Visual Basic drobna rzecz z nazwą pliku

attimo

2011-03-09T18:30:04+01:00

Rejestracja: dni
Ostatnio: dni

Witajcie,

Mam bardzo proste makro konwertujące plik z docx na doc, wygląda tak:

Kopiuj

Sub Makro1()
'
' Makro1 Makro
'
'
    ChangeFileOpenDirectory "C:\Users\Entertainment\Desktop\"
    ActiveDocument.SaveAs FileName:="Dok2.doc", FileFormat:=wdFormatDocument, _
        LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
        :="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
        SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
        False
End Sub

To co chce osiągnąć jest bardzo proste tylko nie wiem jak zrobic by nazwa zapisywanego pliku była taka sama jak otwieranego czyli pisze coś takiego:
winword /t d:\nazwa_pliku.docx /mnazwa_makra

i chce aby na wyjściu otrzymać zapisany plik z nazwą nazwa_pliku a nie z góry ustaloną przez makro czyli w tym przypadku Dok2.doc

Azarien

2011-03-09T21:03:40+01:00

Rejestracja: dni
Ostatnio: dni

Kopiuj

 nazwa = ActiveDocument.Name
 nazwa2 = Left(nazwa, InStrRev(nazwa, ".")) & "doc"
 MsgBox nazwa & vbNewLine & nazwa2

attimo

2011-03-09T22:09:07+01:00

Rejestracja: dni
Ostatnio: dni

Dzięki.

Liczba odpowiedzi na stronę

Zarejestruj się i dołącz do największej społeczności programistów w Polsce.

Otrzymaj wsparcie, dziel się wiedzą i rozwijaj swoje umiejętności z najlepszymi.

Utwórz konto