Note: The other languages of the website are Google-translated. Back to English

Ինչպե՞ս ընտրել կամ ջնջել տեքստը Word- ի երկու էջանիշերի միջև:

Գիտե՞ք ինչպես ընտրել կամ ջնջել Word- ի փաստաթղթում պարունակվող երկու էջանիշների բովանդակությունը: Այս հոդվածը ձեզ ցույց կտա դրա հետ վարվելու մեթոդներ:

Ընտրեք / ջնջեք տեքստ VBA- ի երկու էջանիշերի միջև


Ընտրեք / ջնջեք տեքստ VBA- ի երկու էջանիշերի միջև

Ենթադրելով, որ ձեր փաստաթղթում կա երկու էջանիշ, ինչպես ցույց է տրված նկարներից ներքևում, դուք կարող եք ընտրել կամ ջնջել բոլոր բովանդակությունը այս երկու էջանիշերի միջև հետևյալ VBA կոդով:

1. Փաստաթղթում սեղմեք կոճակը ալտ + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.

2. Մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, սեղմեք Տեղադրել > Մոդուլներ, ապա պատճենեք ներքևի կոդը Մոդուլի պատուհանում:

Երկու էջանիշների միջեւ տեքստեր ընտրելու կամ ջնջելու համար խնդրում ենք օգտագործել այս ծածկագիրը.

VBA կոդ. Ընտրեք տեքստը Word- ում նշված երկու էջանիշների միջև.

Sub SelectBetweenBookmarks()
    Dim xRange As Range
    Dim xBMone, xBMtwo As Bookmark
Dim xBookMarkOne, xBookMarkTwo As String
On Error Resume Next
    Set xRange = ActiveDocument.Content
    xBookMarkOne = InputBox("Please enter the start bookmark:", "Kutools for Word")
    xBookMarkTwo = InputBox("Please enter the end bookmark:", "Kutools for Word")
    Set xBMone = ActiveDocument.Bookmarks(xBookMarkOne)
    Set xBMtwo = ActiveDocument.Bookmarks(xBookMarkTwo)
    If xBMone Is Nothing Or xBMtwo Is Nothing Then
        MsgBox "Please enter the correct bookmark name", vbInformation, "KuTools for Word"
        Exit Sub
    End If
    xRange.Start = xBMone.Range.End
    xRange.End = xBMtwo.Range.Start
    xRange.Select
End Sub

VBA կոդ. Word- ում ջնջեք տեքստը երկու նշված էջանիշների միջև.

Sub DeleteBetweenBookmarks ()
    Dim xRange As Range
    Dim xBMone, xBMtwo As Bookmark
Dim xBookMarkOne, xBookMarkTwo As String
On Error Resume Next
    Set xRange = ActiveDocument.Content
    xBookMarkOne = InputBox("Please enter the start bookmark:", "Kutools for Word")
    xBookMarkTwo = InputBox("Please enter the end bookmark:", "Kutools for Word")
    Set xBMone = ActiveDocument.Bookmarks(xBookMarkOne)
    Set xBMtwo = ActiveDocument.Bookmarks(xBookMarkTwo)
    If xBMone Is Nothing Or xBMtwo Is Nothing Then
        MsgBox " Please enter the correct bookmark name ", vbInformation, "KuTools for Word"
        Exit Sub
    End If
    xRange.Start = xBMone.Range.End
    xRange.End = xBMtwo.Range.Start
    xRange.Delete
End Sub

3. Սեղմեք F5 ծածկագիրը գործելու համար:

4. Առաջինում Kutools բառի համար երկխոսության տուփ, մուտքագրեք մեկնարկի էջանիշի անունը տեքստի տուփի մեջ և կտտացրեք OK.

5. Երկրորդում Kutools բառի համար երկխոսության տուփ, մուտքագրեք վերջի էջանիշը և կտտացրեք OK, Տեսեք,

ՆշումԵթե ​​ձեր մուտքագրած էջանշանի անունը փաստաթղթում գոյություն չունի, կհայտնվի մեկ այլ Kutools for Word երկխոսության տուփ ՝ հիշեցնելու համար, որ դուք ճիշտը մուտքագրեք:

Այնուհետև նշված էջանիշների միջև եղած բոլոր բովանդակությունն անմիջապես ընտրվում կամ ջնջվում է: Տեսեք սքրինշոթեր:

Ընտրեք տեքստեր երկու էջանիշների միջև.

Bookնջել տեքստերը երկու էջանիշների միջև:


Բառի արտադրողականության առաջարկվող գործիքներ

 

Kutools Word- ի համար. Word- ի ավելի քան 100 առաջադեմ առանձնահատկություններ, խնայեք ձեր 50% ժամանակը

  • Բարդ և կրկնվող գործողությունները կարող են կատարվել միանգամյա մշակմամբ վայրկյանների ընթացքում:
  • Տեղադրեք բազմաթիվ պատկերներ միանգամից թղթապանակների մեջ Word փաստաթղթում:
  • Միացրեք և միացրեք բազմաթիվ Word ֆայլեր թղթապանակների մեջ մեկում ՝ ձեր ցանկալի պատվերի հետ:
  • Ընթացիկ փաստաթուղթը բաժանեք առանձին փաստաթղթերի `ըստ վերնագրի, հատվածի ընդմիջման կամ այլ չափանիշների:
  • Փոխարկել ֆայլերը Doc- ի և Docx- ի, Docx- ի և PDF- ի միջև, ընդհանուր փոխակերպումների և ընտրության գործիքների հավաքածու և այլն ...
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (0)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր