Hocalarım Merhaba,

Aşağıdaki kodla word sayfasını kopyalıyorum,test bat dosyasını tıklatarak bir döküman açıyorum (uyap dökümanıdır) Açılan dökümana yapıştırma yapamıyorum. Acizane sebebini dökümanın geç açılmasına bağlıyorum. Yada paste komutu bu dökümanda çalışmıyor.İzlemem gereken yol hakkında fikir verebilir misiniz? Teşekkür ederim

Selection.WholeStory
Selection.Copy
Dim argh As Double
argh = Shell("\test.bat", vbNormalFocus)
Selection.PasteAndFormat (wdFormatOriginalFormatting)

Bir Modulun icine


satirini tasiyin

Bekle(2500) ile sonraki satirlari calistirabilirsiniz.

dsezgin Hocam,
Komutu yeni bir modüle aktardım.
Bekle (2500) ü nere yazmalıyım ? Acemiliğimi hoşgörün ,şu şekilde mi olacak öyleyse hata vermekte.Aldığım hatanın ekran görüntüsü ekte..

Selection.WholeStory
Selection.Copy
Dim argh As Double
argh = Shell("\test.bat", vbNormalFocus) 'buraya kadar sorun yok word içeriğini
kopyalıyor test dosyasını tıklayıp açıyor, paste
yapmıyor
Bekle (2500)
Selection.PasteAndFormat (wdFormatOriginalFormatting)

(18-04-2019, 19:18)dsezgin demiş ki: Bir Modulun icine

Visual Basic

Public Declare PtrSafe Sub Bekle Lib "kernel32" (ByVal dwMilliseconds As Long)

satirini tasiyin

Bekle(2500) ile sonraki satirlari calistirabilirsiniz.