Birden fazla sayfayı seçmeye yarayan eklenti var mı

Aşağı Git Tüm Forumlar İşletim Sistemleri ve Yazılımlar Yazılım Genel Ofis Uygulamaları Birden fazla sayfayı seçmeye yarayan eklenti var mı

Bu konudaki kullanıcılar: 1 misafir

5
Cevap 1453
Tıklama 0
Öne Çıkarma

1. sayfa

Birden fazla sayfayı seçmeye yarayan eklenti var mı

Cevap Yaz

maxser

6 yıl (1049 mesaj)

Yüzbaşı

Konu Sahibi

Arkadaşlar bir ara bir ofis eklentisi bulmuştum seçmek istediğin sayfanın başlangıç ve bitiş numaralarını yazıyordun. Proğram yüzlerce sayfayı otamatik olarak seçiyordu. Bilgisayara format atınca eklenti malaesef silindi ve ben o eklentinin ismini unutmuşum bildiğiniz böyle bir eklenti var mı acaba

DH forumlarında vakit geçirmekten keyif alıyor gibisin ancak giriş yapmadığını görüyoruz.

Üye olduğunda özel mesaj gönderebilir, beğendiğin konuları favorilerine ekleyip takibe alabilir ve daha önce gezdiğin konulara hızlıca erişebilirsin.

Üye Ol Şimdi Değil

Bir Daha Gösterme

akcan

6 yıl (2163 mesaj)

Binbaşı

word mü excel mi?

maxser

6 yıl (1049 mesaj)

Yüzbaşı

Konu Sahibi

Word

akcan

6 yıl (2163 mesaj)

Binbaşı

aradığınız eklenti galiba Kutools For Word (https://www.extendoffice.com/download/kutools-for-word.html )https://www.extendoffice.com/documents/word/1213-word-select-specific-page-in-document.html

akcan

6 yıl (2163 mesaj)

Binbaşı

wordde istediğiniz sayfaları seçen VBA makro kodlarını yazdım.
eklentiye gerek yok.

Sub SayfalarSec()
'Makro: Mesut Akcan
'makcan@gmail.com
'www.akcanSoft.com
'30 Eylül 2019
Dim sayfalar As Range
Dim sayfaSayisi As Integer
Dim baslamaSayfasi
Dim bitisSayfasi
Dim secilecekSs As Long
sayfaSayisi = ActiveDocument.ComputeStatistics(wdStatisticPages)
BASLAMASSS:
baslamaSayfasi = InputBox("Seçmek için başlangıç sayfa numarası?" & vbCr & "1 - " & sayfaSayisi)
If baslamaSayfasi = "" Then Exit Sub
baslamaSayfasi = Val(baslamaSayfasi)
If baslamaSayfasi < 1 Or baslamaSayfasi > sayfaSayisi Then
MsgBox ("Başlama sayfa numarası hatalı. Yeniden deneyiniz")
GoTo BASLAMASSS
End If
BITISSS:
bitisSayfasi = InputBox("Seçmek için bitiş sayfa numarası?" & vbCr & baslamaSayfasi & " - " & sayfaSayisi)
If bitisSayfasi = "" Then Exit Sub
bitisSayfasi = Val(bitisSayfasi)
secilecekSs = bitisSayfasi - baslamaSayfasi
If bitisSayfasi < 1 Or bitisSayfasi > sayfaSayisi Or secilecekSs < 0 Then
MsgBox ("Bitiş sayfa numarası hatalı. Yeniden deneyiniz")
GoTo BITISSS
End If
Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=baslamaSayfasi
Set sayfalar = Selection.Range
Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=bitisSayfasi
sayfalar.End = Selection.Bookmarks("\Page").Range.End
sayfalar.Select ' sayfaları silmek için bu satır yerine alttaki satırı kullanın
'sayfalar.Delete
End Sub

< Bu mesaj bu kişi tarafından değiştirildi akcan -- 30 Eylül 2019; 12:0:9 >

maxser

6 yıl (1049 mesaj)

Yüzbaşı

Konu Sahibi

Evet aradığım eklenti kutools'dı ama makro kodlaroda güzzelmiş teşekkürler arkadaşlar

< Bu mesaj bu kişi tarafından değiştirildi maxser -- 1 Ekim 2019; 5:57:27 >

Cevap Yaz

1. sayfa

Tüm Forumlar İşletim Sistemleri ve Yazılımlar Yazılım Genel Ofis Uygulamaları Birden fazla sayfayı seçmeye yarayan eklenti var mı