Yeni Kayıt
Konudaki Resimler
|
|
_____________________________
|
Hızlı 
Bildirim
Birden fazla sayfayı seçmeye yarayan eklenti var mı
Sıcak Fırsatlarda Tıklananlar
Editörün Seçtiği Fırsatlar
Daha Fazla 
Bu Konudaki Kullanıcılar:
Daha Az 
2 Misafir (1 Mobil) - 1 Masaüstü, 
1 Mobil
1 Mobil
Giriş
Mesaj
-
-
word mü excel mi? _____________________________ Mesut Akcan | YouTube kanalım | Blog sayfam -
Word _____________________________ -
aradığınız eklenti galiba Kutools For Word ( )www.extendoffice.com
Free download Kutools for Word - Amazing Office Word Toolshttps://www.extendoffice.com/download/kutools-for-word.htmlHow to select specific pages from the whole document in Wordhttps://www.extendoffice.com/documents/word/1213-word-select-specific-page-in-document.html_____________________________ Mesut Akcan | YouTube kanalım | Blog sayfam
-
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 >_____________________________ Mesut Akcan | YouTube kanalım | Blog sayfam
-
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 >_____________________________
Sayfa:
1
Ip işlemleri
Bu mesaj IP'si ile atılan mesajları ara Bu kullanıcının son IP'si ile atılan mesajları ara Bu mesaj IP'si ile kullanıcı ara Bu kullanıcının son IP'si ile kullanıcı ara
KAPAT X
Bu mesaj IP'si ile atılan mesajları ara Bu kullanıcının son IP'si ile atılan mesajları ara Bu mesaj IP'si ile kullanıcı ara Bu kullanıcının son IP'si ile kullanıcı ara
KAPAT X
