MS Word VBA 추출하는 하이퍼링크에서 선택한 텍스트에서 단어

Question 1

다면 감사하겠습니다 누군가가 나를 도울 수 있는 것을 나타냅 변경해야에서 아래 코드(그것을 발견에 www.extendoffice.com용)을 제한하는 선택된 부분의 텍스트(작동하지 않는 전체 문서).
코드를 추출하는 하이퍼링크에서 하나의 단어는 문서를 다른입니다.

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

트릭은 저장 선택한 하이퍼링크에서 변수 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

트릭은 저장 선택한 하이퍼링크에서 변수 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

MS Word VBA 추출하는 하이퍼링크에서 선택한 텍스트에서 단어

질문

최고의 응답

다른 언어로

이 페이지는 다른 언어로되어 있습니다

이 카테고리에서 인기

인기 있는 질문에 이 카테고리