IRbbionx <editBox/>는

Question

<editBox id="layout_deck_search_replace_locate_Caption_item" 
         label="Caption Item" 
         showLabel="false" 
         sizeString="xxx" 
         maxLength="3" 
         onChange="layout_search_replace.jump_to_caption_item" /> 

---

---

Sub jump_to_caption_item(ByVal control As IRibbonControl, ByRef strText) 

    selection.collapse Direction:=wdCollapseEnd 


     a = "Figure " & Str(strText) 

     MsgBox a 
       With selection.Find 

        .Font.Bold = True 
        .Text = "Figure " & Str(strText) 

        .Forward = True 
        .Wrap = wdFindContinue 

        .MatchWildcards = False 
        .Replacement.Text = "" 
        .Execute 

       End With End Sub 

위는 "나는 내가 쓸 때 그림 1을 찾으려면 내 XML 및 VBA 코드, 입니다 1 "in editbox

---

편집 상자에 "1"이라고 쓰면 msgbox "그림 1"이 가능하지만 내 단어는 "그림 1"로 갈 수 없습니다. "그림"& Str (strText)은 문자열이 아니기 때문에?

Answer 1

아래 코드는 캡션의 번호를 찾습니다. 해당 번호가 발견 된 그림을 찾으려면 그것을 조정해야 할 수도 있습니다.

Private Sub GoToFigure(ByVal Num As Integer) 
    ' 27 Dec 2017 

    Dim Fld As Field 

    For Each Fld In ActiveDocument.Fields 
     With Fld 
      If (.Type = wdFieldSequence) And _ 
       (InStr(1, .Code, "figure", vbTextCompare) > 0) Then 
       If .Result = Num Then 
        .Select 
       End If 
      End If 
     End With 
    Next Fld 
End Sub 

하위 매개 변수 Num은 찾고자하는 캡션의 번호입니다. 이와 같은 코드로 서브를 호출하십시오.

GoToFigure 1 

여기서 "1"은 편집 상자의 번호입니다.