모든 텍스트 단어를 단어의 하이퍼 링크 목록으로 바꿉니다.

Question

두어 개의 긴 Word 2010 문서가 두문자어로 그려져 있고 많은 약어가이 모든 문서에 공통적으로 사용됩니다. 또한 각 문서 내에서 하이퍼 링크 형식으로 된 두문자어의 세로 목록이 테이블 형식으로 있습니다 (각 문서의 끝 부분에 있음).

하이퍼 링크 목록 :

AA1 
AA2 
AA3 
... 

나는 아주 작은 워드 2010 매크로 경험이 있지만,이 같은 일을 할 매크로 가질 수 있는지 궁금해 : 내 커서를 배치 할 때,

1. 을 주어진 문서 내를 목록의 맨 위에 (즉, 하이퍼 링크 내용 "AA1"이있는 셀에서)이 첫 번째 셀의 내용을 선택한 다음 클립 보드에 복사 한 다음 모든 텍스트를 전역 대체 (^ C 가정을 사용)합니다 하이퍼 링크 서식이 지정된 단어 "AA1"이있는 문서에서 서식이 지정된 단어 "AA1"을 찾습니다 (바꿀 단어가 있다고 가정).

2. 그런 다음 하이퍼 링크 내용이 "AA2"인 두 번째 셀로 이동하고 하이퍼 링크 목록의 모든 하이퍼 링크 단어가 나타날 때까지 문서 내의 모든 "AA2"텍스트를 하이퍼 링크 된 "AA2"값 등으로 바꿉니다 문서 내의 모든 텍스트 단어를 대체했습니다.

이 기능을 사용할 수 있습니까? 내가 당신의 평균 올바른 [질문이 명확하고 시각적하지 않았다] 이해한다면

Answer 1

이 당신이 필요로하는 기본 코드 :

Sub replaceHyperLink() 
Dim searchText As String 
searchText = "AA1" 
    Selection.Find.ClearFormatting 
    With Selection.Find 
     .text = "" 
     .Replacement.text = "" 
     .Forward = True 
     .Wrap = wdFindStop 
     .Format = False 
     .MatchCase = False 
     .MatchWholeWord = False 
     .MatchKashida = False 
     .MatchDiacritics = False 
     .MatchAlefHamza = False 
     .MatchControl = False 
     .MatchWildcards = False 
     .MatchSoundsLike = False 
     .MatchAllWordForms = False 
    End With 

Do 
    With Selection.Find 
    .text = searchText 
    End With 

    Selection.Find.Execute 
If Selection.Find.Found = True Then 
    ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, Address:= _ 
     "stackoverflow.com/", SubAddress:="", ScreenTip:="", TextToDisplay:=searchText 
Else 
Exit Do 
End If 
Loop 
End Sub 

• 당신이 AA2에 대한 루프를 수행해야합니다, AA3, ...
• 테이블의 한 열만 하이퍼 링크로 연결하려면 해당 열을 선택한 다음 새 문서에 복사하십시오 (코드는 간단합니다) 그런 다음 작업을 수행하고 선택한 열에 다시 붙여 넣습니다.

당신은 세포의 텍스트를 얻으려면 :

Dim cellText As String 
For i = 1 To ActiveDocument.Tables(1).Rows.Count 
ActiveDocument.Tables(1).Rows(i).Cells(3).Select 
cellText = Selection.text 
'do what you want with text 
Next i