dosya adı düzeltme

[murathanouz]

ActiveDocument.SaveAs FileName:="kopya", FileFormat:= _
wdFormatHTML, LockComments:=False, Password:="", AddToRecentFiles:=True, _
WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
False

yukarıdaki kod makronun bir parçası.bu işte acemiyim ben ve yardımlarnıza ihtiyacım var. şimdi benim yapmak istediğm FileName:="kopya", bölümünü yani dosya isminin farklı kaydedilmeden çnceki dosya ismini olması.yani dosyanın orjinal ismiyle farklı kaydetmesi

 

[Recep İpek]

FileName:=ActiveWorkbook.Name olarak deneyebilirmisiniz.

 

[murathanouz]

FileName:=ActiveWorkbook.Name olarak deneyebilirmisiniz.

olmadı ya .424 diye bir hata veriyor ve debug diyince aşağıdaki kısmı sarı şekilde işarteliyor.
ActiveDocument.SaveAs FileName:=ActiveWorkbook.Name, FileFormat:= _
wdFormatHTML, LockComments:=False, Password:="", AddToRecentFiles:=True, _
WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
False

 

[Recep İpek]

Word dosyasını kopyaladığınızı sonradan farkettim.

Belki bu işinize yarayabilir.

a = ActiveDocument.Name
b = Left(a, Len(a) - 4)
c = b & ".html"
    ActiveDocument.SaveAs FileName:=c, FileFormat:=wdFormatHTML, _
        LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
        :="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
        SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
        False

 

[murathanouz]

Word dosyasını kopyaladığınızı sonradan farkettim.

Belki bu işinize yarayabilir.

a = ActiveDocument.Name
b = Left(a, Len(a) - 4)
c = b & ".html"
    ActiveDocument.SaveAs FileName:=c, FileFormat:=wdFormatHTML, _
        LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
        :="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
        SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
        False

evet usta oldu sağolasın.