Excel'den Belli Bir Klasördeki Tüm Word Dosyalarının Sayfa Yapısını Değiştirmek - Baskı Önizleme +- AccessTr.neT (https://accesstr.net) +-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html) +--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html) +--- Konu Başlığı: Excel'den Belli Bir Klasördeki Tüm Word Dosyalarının Sayfa Yapısını Değiştirmek (/konu-excel-den-belli-bir-klasordeki-tum-word-dosyalarinin-sayfa-yapisini-degistirmek.html) Sayfalar:
1
2
|
Excel'den Belli Bir Klasördeki Tüm Word Dosyalarının Sayfa Yapısını Değiştirmek - ras.sag - 17/12/2022 Şu kod ile Excel içinde listesi bulunan belli bir klasördeki word dosyalarının sayfa yapılarını değiştiriyorum. Kod bu haliyle ilk dosyayı değiştiriyor, dosyayı ve word'ü kapatıyor, ikinci dosyayı açınca ".PageWidth = CentimetersToPoints(9)" satırında takılıyor. "AppWord.Quit" kodunu devre dışı bırakırsam tüm dosyalarda gereğini yapıyor ama dosya sayısı çok fazla olduğundan her dosya başına bir word uygulaması açık kaldığından belli bir noktadan sonra bellek yetmiyor. Nerde hata yapıyorum acaba? Kod:
Option Explicit RE: Excel'den Belli Bir Klasördeki Tüm Word Dosyalarının Sayfa Yapısını Değiştirmek - berduş - 17/12/2022 Kodu aşağıdaki gibi düzenleyip dener misiniz? Deneme imkanım olmadı teorik
RE: Excel'den Belli Bir Klasördeki Tüm Word Dosyalarının Sayfa Yapısını Değiştirmek - ras.sag - 17/12/2022 (17/12/2022, 22:13)berduş yazdı: Kodu aşağıdaki gibi düzenleyip dener misiniz? Öncelikle ilginize teşekkür ederim. Vba kod sayfasında "Compile error: Variable not defined" mesajı verip "tmpAppWord =" metninin üzerini işaretliyor. RE: Excel'den Belli Bir Klasördeki Tüm Word Dosyalarının Sayfa Yapısını Değiştirmek - berduş - 17/12/2022 En başta Option Explicit satırı olduğundan önce tmpAppWord tanımlanmalı. Bu hata ondan kaynaklanıyor. Set tmpAppWord = CreateObject("Word.Application") satırının üstüne
kodunu ekler misiniz?
RE: Excel'den Belli Bir Klasördeki Tüm Word Dosyalarının Sayfa Yapısını Değiştirmek - ras.sag - 17/12/2022 Şimdi "SetupPage (Dosya, tmpAppWord)" satırında "syntax error" hatası veriyor. RE: Excel'den Belli Bir Klasördeki Tüm Word Dosyalarının Sayfa Yapısını Değiştirmek - berduş - 17/12/2022 Kodu asagidaki gibi, parantezleri kaldırarak, düzenleyip dener misiniz
|