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」

---

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」はエディットボックスの番号です。