Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > Diğer Yazılımlar > Windows-Word-PowerPoint....
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Windows-Word-PowerPoint.... Excel haricindeki Ofis programları ile ilgili konular.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 28-07-2013, 17:27   #1
RedStar
Altın Üye
 
Giriş: 16/07/2006
Mesaj: 82
Excel Vers. ve Dili:
Excel 2010 Dil Türkçe
Varsayılan Excel makrosuyla kapalı word dosyalarında alt bilgi degiştirmel

Selam arkadaşlar kolay gelsin iyi ramazanlar.

Elimde bayagı fazla sayıda word belgesi var bu belgelerdeki alt bilgilerin hepsini silip tekrar hepsine istedigim bir alt bilgiyi yazdırmak istiyorum.1 tane program buldum kapalı birden fazla word belgesinde degişiklik yapıyor ama alt bilgiyi degiştirmiyor eski konulardan birinde excele makro yazarak word dosyalarının bulundugu klasoru göterip degişiklik konusu vardı.

Harddiskin d bölümünde yer alan klasörler içerisinde yer alan isimleri rakamlardan harflerden veya rakam ve harflerden oluşan kapalı word dosyalarını kontrol ederek içerisinde alt bilgi bulunan word belgelerindeki alt bilgiyi tamamen kaldırarak benim yaptıgım alt bilgiyi sayfalara koymama yarayacak bir excel makrosu için yardımlarınızı bekliyorum teşekkürler.

Bu mesaj en son " 28-07-2013 " tarihinde saat 17:54 itibariyle RedStar tarafından düzenlenmiştir.... Neden: başlık
RedStar Çevrimdışı   Alıntı Yaparak Cevapla
Eski 04-08-2013, 19:17   #2
leumruk
Uzman
 
leumruk kullanıcısının avatarı
 
Giriş: 15/04/2007
Şehir: Mustafa ALTUN ANKARA
Mesaj: 3,164
Excel Vers. ve Dili:
Office 2010 & 2013 tr
Varsayılan

Merhaba,
Örnek dosyayı word dosyalarının bulunduğu klasöre kopyalayıp içindeki makroyu çalıştırın.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub WD_Altbilgi()
bilgi = Application.InputBox("Altbilgi için veri girişi yapınız.", "ALTBİLGİ")
If bilgi = False Then Exit Sub

Set WD = CreateObject("word.Application")
WD.Visible = True

yol = ThisWorkbook.Path
Dosya = Dir(yol & "\*doc*")
Do While Dosya <> ""
WD.Application.Documents.Open yol & "\" & Dosya

WD.ActiveWindow.ActivePane.View.SeekView = 10
        WD.ActiveDocument.PageSetup.DifferentFirstPageHeaderFooter = True
        WD.Selection.WholeStory
        WD.Selection.TypeText Text:=bilgi
WD.ActiveWindow.ActivePane.View.SeekView = 0

WD.ActiveDocument.Close True
Dosya = Dir
Loop

WD.Application.Quit
MsgBox "İşlem tamamlanmıştır.", vbInformation, "l e u m r u k"
End Sub
Eklenmiş Dosyalar
Dosya Türü: rar WORD_ALTBİLGİ.rar (13.3 KB, 45 Görüntülenme)
__________________
"Seni her türlü noksandan tenzih ederiz. Senin bize öğrettiğinden başka bizim hiçbir bilgimiz yoktur. Sen herşeyi hakkıyla bilir, her işi hikmetle yaparsın." (Bakara Sûresi: 2:32.)

"Onların duaları şu sözlerle sona erer: Ezelden ebede her türlü hamd ve övgü, şükür ve minnet, Âlemlerin Rabbi olan Allah'a mahsustur." (Yunus Suresi, 10:10.)
leumruk Çevrimdışı   Alıntı Yaparak Cevapla
Eski 24-09-2014, 13:40   #3
arşivist
 
arşivist kullanıcısının avatarı
 
Giriş: 30/12/2008
Şehir: izmir
Mesaj: 227
Excel Vers. ve Dili:
OFİS 2010
Varsayılan

sayın lemruk,

kodunuz çok kullanışlı değil.
elimdeki word dosyaları biraz karışık üst bilgi malum logo da var.
alt bilgi de ise daha karışık resim üstüne yazılar serpiştirilmiş

yukardaki kod yerine
örnek bir word dosyası oluşturulsa ve bu örnek.doc üzerinden diğer word dosyalarının tamamını değiştiren bir kod veya yöntem mümkün mü?
olursa pek çok kişinin büyük sorununu çözmüş olursunuz
__________________
İkariam, Omikron'da oynayan var mı?
arşivist Çevrimdışı   Alıntı Yaparak Cevapla
Eski 24-09-2014, 18:19   #4
baydeniro
 
Giriş: 26/01/2007
Mesaj: 3,351
Excel Vers. ve Dili:
Ofis 2016
Varsayılan

Teşekkürler sayın leumruk.
baydeniro Çevrimdışı   Alıntı Yaparak Cevapla
Eski 14-08-2016, 00:29   #5
1903emre34@gmail.com
Altın Üye
 
Giriş: 29/05/2016
Şehir: İstanbul
Mesaj: 465
Excel Vers. ve Dili:
Microsoft Excel 2013 Türkçe
Varsayılan kapalı dosyalarda üst bilgi değiştirme

Merhabalar

kapalı word dosyasında üst bilgi kısmında yer alan tarihi değiştirmek istiyorum makro kodu hakkında yardımcı olabilirmisiniz

Bu mesaj en son " 13-01-2017 " tarihinde saat 21:28 itibariyle 1903emre34@gmail.com tarafından düzenlenmiştir....
1903emre34@gmail.com Çevrimiçi   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 15:13


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım - Tarot Falı - invest in turkey - Lingerie - Dyeing Machine - Karton Bardak- Çorlu Özel Eğitim- Site Yönetimi- Led Aydınlatma- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Kırklareli- Pronet Çerkezköy- Pronet Çorlu- Pronet Lüleburgaz- Pronet Keşan- Çorlu Araç Takip- Çorlu Su Arıtma- Boru Profil- Gebze Emlak- Beylikdüzü Temizlik- İstanbul Burun Estetiği- Bakır Sülfat- Rampa- Rotary- Çorlu İnternet Sitesi- youngblood- Çorlu Palet- Çerkezköy Palet- Çorlu Prefabrik- Çorlu Sürücü Kursu- Çorlu Sandviç Panel- Şişli Avukat- Korona Test Kalemi- Çorlu Vinç- Çorlu Pimapen Tamiri- Çorlu Çelik Konstruksiyon-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden