İpucu: Digər dillər Google-tərcümə olunur. Sizi ziyarət edə bilərsiniz English bu linkin versiyası.
Daxil ol
x
or
x
x
Qeydiyyatdan
x

or

Bir Word sənədindən bütün köprüləri seçmək və kopyalamaq necə?

Bəzi hallarda, mövcud olan bir çox hiperlink ilə uzun bir sənədiniz var və yalnız bu sənəddən bütün hiperlinkləri kopyalamaq və sonra onları başqa birinə yapışdırmaq lazımdır. Onlardan bir-birini kopyalamaq əvəzinə birbaşa hamısını tez bir zamanda kopyalayacaq bir yol varmı?

VBA ilə bütün hiperlinkləri kopyalayın

VBA ilə bütün hiperlink ünvanlarını çıxarın

Word üçün Kutools ilə bütün köprülər və ya yalnız ünvanları panonun kopyalayınyaxşı fikir3

Word üçün Kutools: 100 Yeni Ətraflı Xüsusiyyətlər əlavə edin Word 2003 / 2007 / 2010 / 2013 / 2016 / 2019-a qədər.
Office Tab: Enable Ofisdə sekmeli redaktə və tarama, Chrome kimi, Firefox, IE 8 / 9 / 10 kimi.
Office üçün Klassik Menyu: Office 2003 Geri köhnə görünüşünü gətirin Office 2007, 2010, 2013, 2016 və 2019.

arrow mavi sağ bubble VBA ilə bütün hiperlinkləri kopyalayın

1. Köprüleri kopyalamaq istədiyiniz Word sənədini açın və düyməsini basın Alt + F11 açmaq üçün Microsoft Visual əsaslı tətbiq pəncərəsi.

2. klik Taxmaq > Modules, və aşağıdakı VBA-nı Pəncərəyə kopyalayın.

VBA: Bütün köprüləri kopyalayın

Sub HyperlinksExtract()
'Updateby20140214
    Dim oLink As Hyperlink
    Dim docCurrent As Document 'current document
    Dim docNew As Document 'new document
    Dim rngStory As StoryRanges
    Set docCurrent = ActiveDocument
    Set docNew = Documents.Add
    For Each oLink In docCurrent.Hyperlinks
        oLink.Range.Copy
        docNew.Activate
        Selection.Paste
        Selection.TypeParagraph
    Next
    
    Set docNew = Nothing
    Set docCurrent = Nothing
End Sub

3. Basın qaçış VBA kodu çalıştırmak üçün düyməsini basın. Sonra bütün hiperlinklər yeni sənədə köçürülür. Daha sonra yeni sənəd saxlaya bilərsiniz. Nəticəni aşağıdakı kimi görə bilərsiniz.

Qeyd: Bu VBA yalnız köprüli şəkillər varsa, bu VBA kodu işləməyəcəksə, bütün hiperlinklər sözlə bağlı olduqda işləyə bilər.


arrow mavi sağ bubble VBA ilə bütün hiperlinkləri çıxarın

1. Köprüleri çıxartmaq istədiyiniz Word sənədini açın və basın Alt + F11 açmaq üçün Microsoft Visual əsaslı tətbiq pəncərəsi.

2. klik Taxmaq > Modules, və aşağıdakı VBA-nı Pəncərəyə kopyalayın.

VBA: Bütün hiperlink ünvanlarını çıxarın

Function GetAllHyperlinks()
'Updateby20140214
    Dim docCurrent As Document
    Dim docNew As Document
    Dim oLink As Hyperlink
    Dim rng As Range
    Application.ScreenUpdating = False
    Set docCurrent = ActiveDocument
    Set docNew = Documents.Add
    For Each oLink In docCurrent.Hyperlinks
        Set rng = docNew.Range
        rng.Collapse
        rng.InsertParagraph
        rng.InsertAfter (oLink.Address)
    Next
    docNew.Activate
    Application.ScreenUpdating = True
    Application.ScreenRefresh
End Function

3. Basın qaçış VBA kodu çalıştırmak üçün düyməsini basın. Sonra bütün hiperlink ünvanları yeni bir sənəddə çıxarılır, daha sonra saxlaya bilərsiniz.

Qeyd: Çıxarılan hiperlink ünvanı orijinal qaydada deyildir.


arrow mavi sağ bubble Word üçün Kutools ilə bütün köprülər və ya yalnız ünvanları panonun kopyalayın

Bütün köprüleri və ya yalnız Word sənədindən asanlıqla və tez bir zamanda panoya kopyalamaq istəyirsinizsə Köprü kopyalayın faydası Word üçün Kutools Bu lütfü edə bilərsiniz.

Word üçün Kutools, daha çox 100 lazımlı funksiyaları, işinizi asanlaşdırır.
Yükləməyə get
Pulsuz sınaq 45 gün

Quraşdırıldıqdan sonra Word Kutools, aşağıdakı kimi edin:(Kelimeler üçün Pulsuz İndir Kutools!)

1. klik Kutools Plus > Köprü kopyalayın.
1 doc kopyala köprüleri

2. Popping dialoqunda sizə lazım olan bir variant seçin.
2 doc kopyala köprüleri

İndi, köprüleri yerləşdirmək istədiyiniz bir yeri seçin, basın Ctrl + V onları yapışdırmaq üçün.

Köprüləri kopyalayın və yapışdırın
3 doc kopyala köprüleri
Köprü ünvanını kopyalayıb yapışdırın
4 doc kopyala köprüleri

10-un Kəşfini Firefox, Chrome, İnternet kimi bir çox Word sənədini / Excel iş kitabını gözdən keçirin və redaktə edin!

Firefox / Chrome / IE-də birdən çox veb səhifəni keçirmək üçün tanış ola bilərsiniz və asanlıqla müvafiq sekmeleri asanlıqla tıklayaraq onların arasında keçid edə bilərsiniz. Burada, Office Tab birbaşa Word pəncərəsində və ya Excel pəncərəsində birdən çox Word sənədinə və ya Excel kitablarına göz atmanıza imkan verən oxşar işlənməni dəstəkləyir və onların sekmelerini tıklayarak asanlıqla keçid edə bilərsiniz.
Ofis Sekmesinin pulsuz sınaq üçün basın!

Firefox kimi bir pəncərədə birdən çox söz sənədinə göz atın

Əlaqədar məqalələr:



Word üçün Kutools

100, 2003, 2007, 2010, 2013 və 2016 üçün 2019 Ətraflı funksiyaları

shot-kutools-700-225-kte

Daha çox xüsusiyyətlər | Pulsuz Yüklə | Yüzlərlə funksiya üçün yalnız $ 39.00

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Fabian · 11 months ago
    Thank you so much! This was exactly what I was looking for!
  • To post as a guest, your comment is unpublished.
    Adrine Bio · 1 years ago
    I am amazed. That's gold. You saved me a ton of work.
  • To post as a guest, your comment is unpublished.
    manny kuyr · 2 years ago
    [b]Height of Legendary, thanks a million[/b]
  • To post as a guest, your comment is unpublished.
    Shadab · 2 years ago
    Can I get the same script to run in outlook?
  • To post as a guest, your comment is unpublished.
    Tony Macelli · 2 years ago
    This is great stuff! Many thanks.
    What changes do I need to make to GetAllHyperlinks() for the following case?

    -- original document contains both normal text and links
    -- result wanted: same document but each link is followed by a space and the URL

    Thanks