คุณพูด VBA Extracting hyperlinks จากข้อความที่เลือกไว้ในคำพูด

Question 1

ฉันจะขอบคุณท่านจากใจเลยถ้าใครบางคนสามารถช่วยฉันและบ่งบอกสิ่งที่ควรจะเปลี่ยนแปลงไปอย่างรหัสทางด้านล่า(ฉันเจอมัน www.extendoffice.com)เพื่อเตรียมเรื่องนี้ไปบอเลือกส่วนหนึ่งของข้อความ(ไม่ต้องทำงานทั่วทั้งเอกสาร).
รหัสคือ extracting hyperlinks จากหนึ่งคำหมอคนอื่น

Sub HyperlinksExtract()
    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

Question 2

เคล็ดลับคือการร้านคอนที่เลือกไว้ออ hyperlinks ในตัวแปร selectedHyperlinks.

ยิ่งไปกว่านั้นผมพยายามที่จะหลีกเลี่ยงสำเนา/มีวิสกี้แล้วก็สตูว์และก็แม่เพราะฉะนั้นฉันใช้ Hyperlinks.Add วิธีการที่จะแทนที่ส่วนเชื่อมโยงอันใหม่ของเอกสาร

Sub HyperlinksExtract()

    Dim docCurrent As Document
    Dim docNew As Document
    
    Set docNew = Documents.Add
    Dim rgTarget As Range: Set rgTarget = docNew.Range
    
    Dim selectedHyperlinks As Hyperlinks
    Set selectedHyperlinks = Selection.Hyperlinks   '<<< this is where the selected hyperlinks are stored in the variable
    
    Dim oLink As Hyperlink
    
    For Each oLink In selectedHyperlinks 
        rgTarget.Collapse wdCollapseEnd
        docNew.Hyperlinks.Add rgTarget, oLink.Address, oLink.SubAddress, , oLink.TextToDisplay
        rgTarget.Move wdParagraph, 1
        rgTarget.InsertParagraphAfter
    Next
     
End Sub

Ike · Answer 1 · 2021-11-04T18:41:52

เคล็ดลับคือการร้านคอนที่เลือกไว้ออ hyperlinks ในตัวแปร selectedHyperlinks.

ยิ่งไปกว่านั้นผมพยายามที่จะหลีกเลี่ยงสำเนา/มีวิสกี้แล้วก็สตูว์และก็แม่เพราะฉะนั้นฉันใช้ Hyperlinks.Add วิธีการที่จะแทนที่ส่วนเชื่อมโยงอันใหม่ของเอกสาร

Sub HyperlinksExtract()

    Dim docCurrent As Document
    Dim docNew As Document
    
    Set docNew = Documents.Add
    Dim rgTarget As Range: Set rgTarget = docNew.Range
    
    Dim selectedHyperlinks As Hyperlinks
    Set selectedHyperlinks = Selection.Hyperlinks   '<<< this is where the selected hyperlinks are stored in the variable
    
    Dim oLink As Hyperlink
    
    For Each oLink In selectedHyperlinks 
        rgTarget.Collapse wdCollapseEnd
        docNew.Hyperlinks.Add rgTarget, oLink.Address, oLink.SubAddress, , oLink.TextToDisplay
        rgTarget.Move wdParagraph, 1
        rgTarget.InsertParagraphAfter
    Next
     
End Sub

คุณพูด VBA Extracting hyperlinks จากข้อความที่เลือกไว้ในคำพูด

คำถาม

คำตอบที่ดีที่สุด

ในภาษาอื่นๆ

หน้านี้อยู่ในภาษาอื่นๆ

ดังอยู่ในนี้หมวดหมู่

ดังคำถามอยู่ในนี้หมวดหมู่