Word Belgesi Adını İçeriğinden Alabilir mi?

[CAFERCİFTCİ]

Değerli arkadaşlar,
Ekli örnekte olduğu gibi,Word belgesi içerisinde yeri hiç değişmeyen bazı bilgiler,bir sıra dahilinde Word Belgesinin adını oluşturabilir mi?Saygılarımla...

 

[hamitcan]

Bence, dosya adının bu kadar uzun olması ve Türkçe karakterler içermesi, dosya açma problemlerine sebep verebilir. Bu mantığı değiştirmenizi öneririm.

 

[CAFERCİFTCİ]

Çok önemli ve zorunlu.Her koşulda ....BAŞKANLIĞI na kadar olan kısmı manuel olarak kaydetme zorunluluğu var zaten.

 

[hamitcan]

Olabilir diye düşünüyorum. Bir ara, acaba bir tablo biçimde olsaydı daha mı kolay olurdu diye düşündüm, ama bu şekilde deneyeceğim.

 

[CAFERCİFTCİ]

Teşekkürler...

Sonuş alsanızda almasanızda,ilginiz için teşekkür ederim sayın Hamitcan arkadaşım.

 

[hamitcan]

Sub FarkliIsımdeKaydet()
    With ActiveDocument
        a = .Range(.Tables(1).Rows(1).Cells(4).Range.Start, .Tables(1).Rows(1).Cells(4).Range.End - 1)
        b = .Range(.Tables(2).Rows(2).Cells(1).Range.Start + 32, .Tables(2).Rows(2).Cells(1).Range.End - 1)
        c = .Range(.Tables(2).Rows(4).Cells(2).Range.Start, .Tables(2).Rows(4).Cells(2).Range.End - 1)
        d = .Range(.Tables(1).Rows(2).Cells(3).Range.Start, .Tables(1).Rows(2).Cells(3).Range.End - 1)
        e = .Range(.Tables(2).Rows(1).Cells(1).Range.Start, .Tables(2).Rows(1).Cells(1).Range.End - 3)
        f = .Range(.Tables(2).Rows(3).Cells(3).Range.Start, .Tables(2).Rows(3).Cells(3).Range.End - 1)
        g = .Range(.Tables(2).Rows(3).Cells(5).Range.Start, .Tables(2).Rows(3).Cells(5).Range.End - 1)
    End With
    dosyaismi = a & "-" & b & "-" & c & "-" & d & "-" & e & "-" & f & "-" & g
    ActiveDocument.SaveAs "C:\" & dosyaismi & ".docx"
End Sub