word de dosya şeklinde otomatik kayıt

tukayf · 31-01-2012, 13:33

yılın 365 günü yaptığımız bir işlem var. 2 adet word dosyası üzerinde yapıyoruz bu işlemi. word dosyalarını hergün ya kopyalıyoruz ya da farklı keydetle yeni bir dosya açıyoruz. dosya içerisindeki şablonu ve tabloları makrolarla oluşturabilirim ancak dosya adının sırayla otomatik olarak verilmesi ve dosyanın sıralı şekilde oluşturulabilmesi gibi bi yöntem varmıdır.

saygılarımla.

tukayf · 31-01-2012, 18:33

ocak klasörü içerisinde 31 tane word dosyasının adı tarih sırasına göre gidecek. akıl akıldan üstündür hiç bir fikri olan yookmu. excel de yapılabiliyor ama word makroları biraz farklı.

**leumruk** · 31-01-2012, 19:25

Alıntı:

tukayf tarafından gönderildi

ocak klasörü içerisinde 31 tane word dosyasının adı tarih sırasına göre gidecek. akıl akıldan üstündür hiç bir fikri olan yookmu. excel de yapılabiliyor ama word makroları biraz farklı.

Merhaba,
Bir kısayol tuşu atayarak kayıt işlemleri yaptırılabilir. Ancak kayıdın ne şekilde yapılacağı konusunda daha açıklayıcı bilgi vermelisiniz. Kaydedilen dosyaya günün tarihi mi atılacak, başka bir isim mi verilecek... Biraz daha açıklama yapmalısınız.

tukayf · 31-01-2012, 20:51

hocam yapılacak dosyalara günün tarihi verilecek.

**leumruk** · 31-01-2012, 23:53

Merhaba,
Aşağıdaki kod istediğiniz işlemi gerçekleştirecektir.

Kod:

tukayf · 01-02-2012, 00:06

sayın hocam. kod harika. zihninize sağlık. hocam bu dosyanın 3-4 yerinde sabit günün tarihi var. bunları doysayı oluşturduğumuzda otomatik dosyanın adını ya da tarihini almasını sağlayabiliğr miyiz. örneğin dosya adı 01.02.2012 içinde bulunan 3-4 tarih kısmı da 01.02.2012 şeklinde.

örnek dosya ekledim. bakabilirseniz çok memnun olurum.

**leumruk** · 02-02-2012, 21:32

Yer imi kullanarak bu istediklerinizi yapmak mümkün. Ancak tam olarak işlemin nasıl gerçekleşmesi gerektiğini ve yaptığınız işlemi açıklamanız gerekli. Örneğin:
Elinizde bir şablon dosyası var da tüm kayıtları bu dosya üzerinden mi gerçekleştiriyorsunuz?
Tarihler kaydetme esnasında mı metne eklenecek.
Tablodan almamı istediğiniz kısımlar sabit mi değişken mi? Neden tablodan almak istiyorsunuz, tabloya yazmaya harcayacağınız aynı vakti üst kısma da yazabilirsiniz?
Ne istediğinizi, amacınızı tam olarak anlatabilirseniz, ona göre bir şeyler düşünülebilir.

tukayf · 04-02-2012, 19:36

hocam word belgelerinin içerisinde sarı arka fonlu yerlerde bulunan tarihlerin dosyanın adında geçen tarihlerle aynı olmasını istiyorum. sadece bunu istiyorum. diğerleri için biraz abartmışım word için.

**leumruk** · 04-02-2012, 22:33

Merhaba,
Tarihin ne şekilde alınacağı kafamda tam olarak şekillenmese de bir örnek hazırladım. Tarihin alınma şeklini kendi isteğinize göre değiştirebilirsiniz.
Yer imi kullanılarak hazırlandı. Yer imi tanımlamalarının dikkatli yapılması gerekli. Ayrıca yer imlerinden herhangi birinin silinmesi kodun hata vermesine sebep olacaktır.

YER İMİ OLUŞTURMA(Word 2007'de): İmleci sayfanın yer imi oluşturacağımız kısmına getiriyoruz ya da yer imi ekleyeceğimiz metni seçiyoruz. Ardından EKLE>Yer İşareti menüsünü açıyoruz. Daha önce tanımlanmamış bir yer işareti adı vererek kaydediyoruz.
Ben bu dosyada döngü kullandığım için yer işareti adını ardışık sıra ile verdim. Kodun daha kısa olması ve kolay yazılması için. (tarih1, tarih2, tarih3... gibi.) Bu hususa dikkat edin. Ayrıca yer işareti oluşturduğunuz kısmı silerseniz yer işareti de silinecektir. Buna da dikkat edin.

Kod:

Sub Makro2()
Set ds = CreateObject("Scripting.FileSystemObject")
uzanti = "." & ds.GetExtensionName(ThisDocument.Name)
tarih = Split(ActiveDocument.Name, ".doc")(0)
Application.ScreenUpdating = False
For x = 1 To 5

If x = 3 Then
ActiveDocument.Shapes(1).Select
    Selection.ShapeRange.TextFrame.TextRange.Select
    Selection.Collapse
Selection.GoTo What:=wdGoToBookmark, Name:="tarih" & x
Selection = tarih
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="tarih" & x
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
Selection.Collapse Direction:=wdCollapseEnd

Else:

Selection.GoTo What:=wdGoToBookmark, Name:="tarih" & x
If x = 5 Then
Tekrar:
Sor = InputBox("Tarih giriniz", "Tarih", tarih)
If IsDate(Sor) = False And Sor <> "" Then
    MsgBox "Girdiğiniz veri tarih formatında olmalı.", vbCritical, "TARİH HATASI"
    GoTo Tekrar
End If
Selection = Sor
Else
Selection = tarih
End If
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="tarih" & x
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End If
Next
Selection.HomeKey Unit:=wdStory
Application.ScreenUpdating = True
End Sub

tukayf · 05-02-2012, 01:10

sayın hocam çok teşekkürler. zihninize sağlık. ancak bir sorum olacaktı. metin kutusu içerisinde önceki tarihi silmiyor yerine yenisini ekliyor.

31-01-2012, 13:33	#1
tukayf Giriş: 09/09/2010 Şehir: ığdır Mesaj: 153 Excel Vers. ve Dili: 2003 tr 2007 2010 tr	word de dosya şeklinde otomatik kayıt yılın 365 günü yaptığımız bir işlem var. 2 adet word dosyası üzerinde yapıyoruz bu işlemi. word dosyalarını hergün ya kopyalıyoruz ya da farklı keydetle yeni bir dosya açıyoruz. dosya içerisindeki şablonu ve tabloları makrolarla oluşturabilirim ancak dosya adının sırayla otomatik olarak verilmesi ve dosyanın sıralı şekilde oluşturulabilmesi gibi bi yöntem varmıdır. saygılarımla.

31-01-2012, 20:51	#4
tukayf Giriş: 09/09/2010 Şehir: ığdır Mesaj: 153 Excel Vers. ve Dili: 2003 tr 2007 2010 tr	günün tarihi hocam yapılacak dosyalara günün tarihi verilecek.

31-01-2012, 23:53	#5
leumruk Uzman Giriş: 15/04/2007 Şehir: Mustafa ALTUN ÇANKIRI Mesaj: 2,889 Excel Vers. ve Dili: Office 2003 & 2007 tr	Merhaba, Aşağıdaki kod istediğiniz işlemi gerçekleştirecektir. Kod: Sub Makro1() Set ds = CreateObject("Scripting.FileSystemObject") uzanti = "." & ds.GetExtensionName(ThisDocument.Name) yol = ThisDocument.Path & "\" & Format(Now, "dd.mm.yyyy hh_mm") & uzanti ThisDocument.SaveAs yol End Sub __________________ İster melek ol, ister şeytan ol! Ne olursan ol; ya olduğun gibi görün ya göründüğün gibi ol.

01-02-2012, 00:06	#6
tukayf Giriş: 09/09/2010 Şehir: ığdır Mesaj: 153 Excel Vers. ve Dili: 2003 tr 2007 2010 tr	sayın hocam. kod harika. zihninize sağlık. hocam bu dosyanın 3-4 yerinde sabit günün tarihi var. bunları doysayı oluşturduğumuzda otomatik dosyanın adını ya da tarihini almasını sağlayabiliğr miyiz. örneğin dosya adı 01.02.2012 içinde bulunan 3-4 tarih kısmı da 01.02.2012 şeklinde. örnek dosya ekledim. bakabilirseniz çok memnun olurum. Bu mesaj en son " 04-02-2012 " tarihinde saat 19:32 itibariyle tukayf tarafından düzenlenmiştir....

02-02-2012, 21:32	#7
leumruk Uzman Giriş: 15/04/2007 Şehir: Mustafa ALTUN ÇANKIRI Mesaj: 2,889 Excel Vers. ve Dili: Office 2003 & 2007 tr	Yer imi kullanarak bu istediklerinizi yapmak mümkün. Ancak tam olarak işlemin nasıl gerçekleşmesi gerektiğini ve yaptığınız işlemi açıklamanız gerekli. Örneğin: Elinizde bir şablon dosyası var da tüm kayıtları bu dosya üzerinden mi gerçekleştiriyorsunuz? Tarihler kaydetme esnasında mı metne eklenecek. Tablodan almamı istediğiniz kısımlar sabit mi değişken mi? Neden tablodan almak istiyorsunuz, tabloya yazmaya harcayacağınız aynı vakti üst kısma da yazabilirsiniz? Ne istediğinizi, amacınızı tam olarak anlatabilirseniz, ona göre bir şeyler düşünülebilir. __________________ İster melek ol, ister şeytan ol! Ne olursan ol; ya olduğun gibi görün ya göründüğün gibi ol.

31-01-2012, 18:33	#2
tukayf Giriş: 09/09/2010 Şehir: ığdır Mesaj: 153 Excel Vers. ve Dili: 2003 tr 2007 2010 tr	ocak klasörü içerisinde 31 tane word dosyasının adı tarih sırasına göre gidecek. akıl akıldan üstündür hiç bir fikri olan yookmu. excel de yapılabiliyor ama word makroları biraz farklı.

05-02-2012, 01:10	#10
tukayf Giriş: 09/09/2010 Şehir: ığdır Mesaj: 153 Excel Vers. ve Dili: 2003 tr 2007 2010 tr	sayın hocam çok teşekkürler. zihninize sağlık. ancak bir sorum olacaktı. metin kutusu içerisinde önceki tarihi silmiyor yerine yenisini ekliyor.

Konu Araçları
Yazıcı Çıktısını Göster Sayfayı E-posta ile Yolla
Görünüm Modları
Düzenli Mod Karışık Moda Geç Konu Moduna Geç