Bu makalede, size Word belgenizde metin kutusuna göre göz atmanın 3 etkili yolunu göstermekten mutluluk duyuyoruz.
Word'de, yalnızca seçtiğiniz nesnelere göz atmanızı sağlayan “Nesneye Gözat Seç” komutu vardır. Örneğin, tabloya veya sayfaya göre göz atmayı seçebilirsiniz. Ne yazık ki, metin kutusuna göre göz atmak için yerleşik bir işlev yoktur. Bu nedenle, size bunu yapmak için 3 yol sağlayacağız.
Yöntem 1: “Sekme” Tuşunu Kullanın
- İlk olarak, s'ye gitmek için “Ctrl+ Home” tuşlarına basın.tart bir belge.
- Ardından ilk metin kutusunu bulun ve tıklayın.
- Sonraki metin kutusuna atlamak için "Sekme" ye basın.
Bu arada, bu şekilde belgede şekiller ve resimler de bulacaksınız.
Yöntem 2: Bir Metin Kutusundan Diğerine Atlamak için Makro Çalıştırın
- İlk ve önost, Word'de VBA düzenleyicisini tetiklemek için "Alt + F11" tuşlarına basın.
- Ardından "Normal"e tıklayın.
- Ardından “Ekle”ye tıklayın ve açılır menüsünden “Modül”ü seçin.
- Yeni modülü çift tıklayarak açın.
- Şimdi kodlama alanına aşağıdaki kodları yapıştırın:
Sub BrowseByTextBox()
Dim objShape As Shape
Dim strBoxText As String
Dim strButtonValue As String
Dim objDoc As Document
Set objDoc = ActiveDocument
For Each objShape In objDoc.Shapes
If objShape.Type = msoTextBox Then
objShape.Select
Selection.ShapeRange.TextFrame.TextRange.Select
strBoxText = objShape.TextFrame.TextRange.Text
strButtonValue = MsgBox("This text box contains: " & vbNewLine _
& strBoxText & vbNewLine & "Is this your desired text box?" _
& vbNewLine, vbYesNo, "Desired Text Box")
If strButtonValue = vbYes Then
Exit Sub
End If
End If
Next objShape
End Sub
- Kodları çalıştırmak için menü çubuğundaki "Çalıştır" düğmesine tıklayın veya "F5" tuşuna basın.
bir kez sentarMakroyu çalıştırırken, aşağıdaki gibi bir mesaj kutusu açılacaktır:
Kutuda, geçerli seçili metin kutusundaki içeriği gösterir. İstediğiniz metin kutusuysa, üzerinde durmak için “Evet” e tıklayabilirsiniz. Aksi takdirde, bir sonraki metin kutusuna gitmek için "Hayır"a tıklayın.
Yöntem 3: Belirli Bir Metin Kutusu Bulun
Belgede metin kutusu için başlık ayarlarsanız, onu hemen bulmak için aşağıdaki makroyla birlikte kullanabilirsiniz.
- Her şeyden önce, bir makro yüklemek ve çalıştırmak için yöntem 2'deki adımlara bakın.
- Ardından, makroyu bununla değiştirmeyi unutmayın:
Sub FindASpecificTextBox()
Dim objShape As Shape
Dim strBoxTitle As String
Dim objInlineShape As InlineShape
Dim objDoc As Document
Application.ScreenUpdating = False
Set objDoc = ActiveDocument
strBoxTitle = InputBox("Enter the title of the text box to be found here: ")
For Each objShape In objDoc.Shapes
If objShape.Type = msoTextBox Then
objShape.Select
Selection.ShapeRange.TextFrame.TextRange.Select
If objShape.Title = strBoxTitle Then
Exit Sub
End If
End If
Next objShape
For Each objInlineShape In objDoc.InlineShapes
If objInlineShape.Type = msoTextBox Then
objInlineShape.Select
Selection.ShapeRange.TextFrame.TextRange.Select
If objInlineShape.Title = strBoxTitle Then
Exit Sub
End If
End If
Next objInlineShape
Application.ScreenUpdating = True
End Sub
- Sonraki giriş kutusunda, bulunacak metin kutusunun başlığını girin ve devam etmek için "Tamam" ı tıklayın. bulacaksın tarseçimde metin kutusu olsun.
Veri Kaybıyla Başa Çıkın
Word'ün m'den biri olduğu gerçeği göz önüne alındığındaost kullanılan yazılımlar, Word yanıt vermeyi kestikten sonra bazı püf noktaları bilmek gerekir. için önemli bozuk belge, tek seçeneğiniz onu kurtarmaktır. Ve bunu yapmak için, güvenebileceğiniz üçüncü taraf bir aracı dikkatlice seçmeniz gerekir.
Yazar Tanıtımı:
Vera Chen bir veri kurtarma uzmanıdır. DataNumendahil olmak üzere veri kurtarma teknolojilerinde dünya lideri olan , Inc. bozuk xlsx ve pdf onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com



