Ihor는 URL 하이퍼 링크를 Word 문서에 삽입하는 작업을 자동화하려고합니다. URL은 “여기를 클릭하십시오”와 같은 구문과 연결됩니다. 그는 먼저 특정 웹 사이트의 URL을 클립 보드에 복사합니다.

그런 다음 하이퍼 링크 삽입 대화 상자 (Ctrl + K)를 열고 클립 보드의 URL (Ctrl + V)을 해당 필드에 붙여넣고 확인을 클릭하는 매크로를 기록합니다. 나중에 매크로를 실행할 때 매크로를 실행할 때마다 동일한 URL을 제공합니다. Ihor는 매크로를 실행할 때마다 대화 상자에 다른 URL을 붙여넣고 싶지만 그 방법이 누락 된 것 같습니다.

매크로를 기록 할 때 매크로가 수행하는 작업은 매우 문자 그대로입니다. 대화 상자를 채우는 방법을 포함하여 수행 한 단계를 정확히 기록합니다. 해결책은 대화 상자에 새 정보를 붙여 넣는 방법을 찾는 것이 아니라 하이퍼 링크를 만드는 방법을 보는 것입니다.

다음은 매크로 레코더가 실행중인 하이퍼 링크를 삽입 한 경우 기록되는 내용입니다.

Sub Macro1()

' ' Macro1 Macro ' '     ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, Address:= _         "//", SubAddress:="", ScreenTip:="", TextToDisplay:= _         "click here"

End Sub

Ihor가 변경하고자하는 것은 Address 속성에 할당 된 하이퍼 링크의 대상입니다. 이것은 대화 상자의 주소 필드에 “붙여 넣기”되는 것입니다. 이렇게하려면 다음과 같은 간단한 방법으로 매크로를 변경할 수 있습니다.

Sub Macro2()

Dim sTemp As String     sTemp = "//"



ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, Address:= sTemp, _         SubAddress:="", ScreenTip:="", TextToDisplay:= "click here"

End Sub

이 예제에서 수행 된 모든 작업은 매크로 시작 부분에서 불필요한 주석 중 일부를 삭제하고 이제 하이퍼 링크 대상을 포함하는 문자열 변수 sTemp를 만드는 것입니다. 그런 다음이 변수가 Address 속성에 할당됩니다. 대상을 변경하려면 sTemp 변수의 값을 변경하기 만하면됩니다.이를 수행 할 수있는 방법에는 여러 가지가 있습니다.

한 가지 방법은 InputBox 함수를 사용하여 다음과 같은 방식으로 대화 상자를 만드는 것입니다.

Sub Macro3()

Dim sTemp As String     Dim sPrompt As String     Dim sTitle As String

sPrompt = "Enter the target for the hyperlink"

sTitle = "Hyperlink Destination"

sTemp = "//"

sTemp = InputBox(sPrompt, sTitle, sTemp)



ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, Address:= sTemp, _         SubAddress:="", ScreenTip:="", TextToDisplay:= "click here"

End Sub

물론 Ihor는 그의 프로세스에서 실제로 URL을 클립 보드에 복사한다고 언급했습니다. 이것이 그가 사용하고자하는 프로세스라면 매크로가 실행될 때 클립 보드에있는 것을 기반으로 URL을 할당 할 수 있습니다. 그렇게하는 방법은 다음과 같습니다.

Sub Macro4()

Dim sTemp As String     Dim MyData As DataObject     Set MyData = New DataObject

MyData.GetFromClipboard     sTemp = Trim(MyData.GetText(1))



ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, Address:= sTemp, _         SubAddress:="", ScreenTip:="", TextToDisplay:= "click here"

End Sub

이러한 방식으로 클립 보드를 활용하려면 VBA 편집기에서 Microsoft Forms에 대한 참조를 설정해야합니다. (Editor의 Tools 메뉴에서 References를 선택하십시오.)

또한 이러한 모든 예제는 새 하이퍼 링크의 Address 속성에 할당 된 내용을 수정합니다. 매크로를 변경하여 TextToDisplay 속성에 할당 된 항목도 수정해야 할 가능성이 있습니다.

_ 참고 : _

이 페이지 (또는 WordTips 사이트의 다른 페이지)에 설명 된 매크로를 사용하는 방법을 알고 싶다면 유용한 정보가 포함 된 특별 페이지를 준비했습니다.

link : / wordribbon-WordTipsMacros [새 브라우저 탭에서 특별 페이지를 열려면 여기를 클릭하세요].

_WordTips_는 비용 효율적인 Microsoft Word 교육을위한 소스입니다.

(Microsoft Word는 세계에서 가장 널리 사용되는 워드 프로세싱 소프트웨어입니다.)이 팁 (138)은 Microsoft Word 97, 2000, 2002 및 2003에 적용됩니다. Word의 리본 인터페이스에 대한이 팁 버전 (Word 2007)을 찾을 수 있습니다. 이후) 여기 :

link : / wordribbon-Changing_What_Is_Pasted_in_a_Dialog_Box [대화 상자에 붙여 넣는 내용 변경].