excel içinde listeleme yapmak istiyorum

[croww]

excel içinde word bilgileri listelenir mi?

arkadaşlar bir klasör eçerisindeki word dosyalarını excel içinde listelemek istiyorum ama nasıl yaparım bilemiyorum
isteğim şu
a1 sutununa word dosyasının adı
a2 sutununa word dosyası içerisinden ilk 8 satır yazması
b sutununa word içerisindeki yazıya ait boşluklu karakter sayısı
sonra bir satır boşluk

ve altına aynı formatta diğer dosya bilgileri
böyle alt alta devam edecek
yardımlarınıza ihtiyacım var arkadaşlar eğer böyle bir şey yapmama yardımcı olursanız çok memnun olurum
ilgilenen arkadaşlarımıza şimdiden çok teşekkür ederim
saygılar...

ekte site içerisinde bir örnek buldum ama bu tam olarak benim istediğim gibi değil belki uzman arkadaşlar bunu benim isetediğim şekilde uyarlayabilirler :dua:

 

[croww]

arkadaşlar yardıma ihtiyacım var

 

[croww]

ah be arkadaşlar bi çözüm yolu bulabilseydik çok büyük bir dertten kurtaracaktınız beni...

 

[croww]

eğer ekteki dosyaya word içindeki yazının boşluklu karakter sayısını yazdırabilirsek o bile işimi görür
hadi arkadaşlar bi el atın da şu konuyu kaldıralım )

 

[croww]

arkadaşlar bir klasör eçerisindeki word dosyalarını excel içinde listelemek istiyorum ama nasıl yaparım bilemiyorum
isteğim şu
a1 sutununa word dosyasının adı
a2 sutununa word dosyası içerisinden ilk 8 satır yazması
b sutununa word içerisindeki yazıya ait boşluklu karakter sayısı
sonra bir satır boşluk

ve altına aynı formatta diğer dosya bilgileri
böyle alt alta devam edecek

olmuyor mu yani bu işlem

 

[Ferhat Pazarçevirdi]

Merhabalar,

Anlattıklarınızdan yapılabilir gözüküyor. Ancak benim anlamadığım bir nokta var. O da "boşluklu karakter sayısı" dediğiniz şey ...

Belgedeki toplam karakter sayısından farkı nedir bu söylediğinizin? Kelime sayısını falan mı kastediyorsunuz?

 

[croww]

Merhabalar,

Anlattıklarınızdan yapılabilir gözüküyor. Ancak benim anlamadığım bir nokta var. O da "boşluklu karakter sayısı" dediğiniz şey ...

Belgedeki toplam karakter sayısından farkı nedir bu söylediğinizin? Kelime sayısını falan mı kastediyorsunuz?

sayın fpc ilginize çok teşekkür ederim benim anlatmak istediğim word içinde sözcük sayımı bölümünü açarsanız orada yazan boşluklu karakter sayısı verir ben onu istiyorum sadece
bu konuda yardımcı olursanız bana çok memnun olurum

 

[Ferhat Pazarçevirdi]

Merhabalar

Boşluklu Karakter Sayısını ben de bilmiyordum. Öğrenmiş olduk

Aşağıdaki kodları, standart bir modül sayfasına kopyalayınız.

NOT : Kodları çalıştırdığınızda; Word dosyalarının açılıp kapandığını göreceksiniz. Eğer görmek istemiyorsanız, "wrd.Application.Visible = True" satırını siliniz.

Sub Wrd_Dosya_Bilgilerini_Getir()
Dim wrd, doc
Dim m%, i%, x%, y%, j%
Set klasor = CreateObject("Shell.Application").BrowseForFolder(0, "Lütfen bir klasör seçin !", &H100)
If klasor Is Nothing Then
   MsgBox "Herhangi bir klasör seçmediniz", vbCritical, "UYARI"
   Exit Sub
Else
   dizin = klasor.Items.Item.Path
End If
Columns("A:B").ClearContents
Set wrd = CreateObject("Word.Application")
wrd.Application.Visible = True
With Application.FileSearch
    .NewSearch
    .LookIn = dizin
    .FileType = msoFileTypeWordDocuments
    .Execute
    If .FoundFiles.Count > 0 Then
       m = 1
       For i = 1 To .FoundFiles.Count
           Set doc = wrd.documents.Open(.FoundFiles(i))
           doc.ActiveWindow.Selection.HomeKey Unit:=6, Extend:=0
           x = doc.BuiltinDocumentProperties("NUMBER OF LINES")
           With Cells(m, 1)
                .Value = doc.Name
                .Font.Size = 14
                .Font.Bold = True
           End With
           If x > 0 Then
              y = IIf(x >= 8, 8, x)
              For j = 1 To y
                  doc.Bookmarks("\LINE").Select
                  Cells(m + 1, 1) = Cells(m + 1, 1) & " " & doc.ActiveWindow.Selection.Text
                  doc.ActiveWindow.Selection.MoveRight Unit:=1, Count:=1, Extend:=0
              Next j
           Else
              Cells(m + 1, 1) = "Belge içeriğinde hiçbirşey yok"
           End If
           With Cells(m, 2)
               .Value = doc.BuiltinDocumentProperties("Number of characters (with spaces)").Value
               .Font.Size = 14
               .Font.Bold = True
           End With
           doc.Close 0
           m = m + 3
       Next i
    End If
End With
wrd.Quit
Set klasor = Nothing
Set doc = Nothing
Set wrd = Nothing
End Sub

 

[croww]

Sayın fpc,
size ne kadar teşekkür etsem azdır. inanın bana hayatımı kurtardınız desem azdır.
ilginize alakanıza çok çok teşekkür ederim.
iyi ki varsınız ve iyi ki bilgilerinizi bizlerle paylaşıyor yardımlarınızı esirgemiyorsunuz...

 

[Ferhat Pazarçevirdi]

Rica ederim. Elimizden geldiği kadar yardımcı olmaya çalışıyoruz.

İyi çalışmalar

 

[alperutku]

Ferhat bey aynı makroyu Excel doyalarını çalıştıracak şekilde düzenlebilirmiyiz?