Làm cách nào để mở một văn bản trong Microsoft Word?

Tôi đã tìm thấy macro này để mở khóa nhưng nó mở ra tất cả các tài liệu thay vì chỉ văn bản được chọn. Làm thế nào tôi có thể sửa đổi nó để chỉ mở ra văn bản đã chọn?

 Sub pagebreaks()
'
' pagebreaks Macro
'
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^p^p"
        .Replacement.Text = "|"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "^p"
        .Replacement.Text = " "
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "|"
        .Replacement.Text = "^p^p"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

"Tìm và thay thế" có thể tìm kiếm ký tự dòng mới (trông giống như kiểu chữ "P" kép ngược. Giống như ) và chỉ thay thế tất cả những ký tự không có gì. Chỉ đi qua một lựa chọn của văn bản nên làm việc? Không yêu cầu vĩ mô.

• Tìm và thay thế văn bản và dữ liệu khác trong tài liệu Word

Sử dụng các mã sau để tìm chữ cái, định dạng, trường hoặc ký tự đặc biệt. Lưu ý rằng một số mã chỉ hoạt động nếu tùy chọn Sử dụng ký tự đại diện được bật hoặc tắt.

Mã hoạt động trong hộp Tìm gì hoặc Thay thế bằng hộp

Để tìm:
Dấu đoạn ( )

Nhập:
^ p
(không hoạt động trong hộp Tìm gì khi tùy chọn Sử dụng ký tự đại diện được bật),

hoặc gõ:
^ 13

Hoặc Tìm nhiều lần và sau đó xóa (với phím xóa), chỉ thông qua một lựa chọn văn bản?

Đây là những gì một macro hoạt động:

  Sub pagebreaks()
    '
    ' pagebreaks Macro
    '
    '


With Selection.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .Text = "^p^p"
        .Replacement.Text = "|"
        .Forward = True
        .Wrap = wdFindStop
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
        .Execute Replace:=wdReplaceAll
End With

With Selection.Find
        .Text = "^p"
        .Replacement.Text = " "
        .Forward = True
        .Wrap = wdFindStop
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
        .Execute Replace:=wdReplaceAll
End With

With Selection.Find
        .Execute Replace:=wdReplaceAll
        .Text = "|"
        .Replacement.Text = "^p^p"
        .Forward = True
        .Wrap = wdFindStop
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
End With

With Selection.Find
        .Execute Replace:=wdReplaceAll
End With
End Sub