如何用代码在段末加文本

zzpsx

如何用代码在段末加文本.zip (14.74 KB, 下载次数: 6)

2024-10-27 10:59 上传

点击文件名下载附件

原文

W: Wow, that's a great photo. Did you takeit?

No, my sister did. She took it for theschool newspaper.

W: Excuse me. Carrie, are you from Londonor New York?

M: Neither I'm from Australia, but mygrandparents are English. I've finished my second interview with this school.

W: Good morning. Patty, you look so weakwhat happened?

M: Nothing, I just stayed up late lastnight. We'll have a math test today, you know.

W: You look good in this suit. Cathy, howdoes your job interview go today?

M: I'm hopeful this time. I've finished mysecond interview with this school. I've finished my second interview with thisschool.

W: Everything okay with your meal?

M: Delicious, thank you.

W: Can we take the bill？

M: Of course.

想要的效果

W: Wow, that's a great photo. Did you takeit?<break time=”5s”/>

No, my sister did. She took it for theschool newspaper.<break time=”5s”/>

W: Excuse me. Carrie, are you from Londonor New York?<break time=”5s”/>

M: Neither I'm from Australia, but mygrandparents are English. I've finished my second interview with this school.<breaktime=”5s”/>

W: Good morning. Patty, you look so weakwhat happened?下同

M: Nothing, I just stayed up late lastnight. We'll have a math test today, you know.

W: You look good in this suit. Cathy, howdoes your job interview go today?

M: I'm hopeful this time. I've finished mysecond interview with this school. I've finished my second interview with thisschool.

W: Everything okay with your meal?

M: Delicious, thank you.

W: Can we take the bill？

M: Of course.

gwjkkkkk

Option Explicit
Sub test1()
    Dim ar, i&, j&, Par As Paragraph
   
    Application.ScreenUpdating = False
   
    With ActiveDocument
        For Each Par In .Paragraphs
           If Len(Par.Range.Text) > 1 Then
               Par.Range.Select
               With Selection
                   .HomeKey unit:=wdLine
                   .MoveEndUntil vbCr
                   .Range.InsertAfter "<break time=""5s""/>"
               End With
           End If
        Next
    End With
   
    Application.ScreenUpdating = True
    Beep
End Sub

gwjkkkkk

请参考图片。。。

batmanbbs

413191246se

* 这个小问题，两位老师都出手了！我也露一手，就是双引号不是直的，是弯的，这个暂时无法处理。
Sub ReplaceIt()
    ActiveDocument.Content.Find.Execute "^p", , , 0, , , , , , "<break time=""5s""/>^p", 2
End Sub

zzpsx

gwjkkkkk 发表于 2024-10-27 12:57
Option Explicit
Sub test1()
    Dim ar, i&, j&, Par As Paragraph

如何修改代码，使其仅对选中的文字执行代码？

gwjkkkkk

zzpsx 发表于 2024-12-14 16:11
如何修改代码，使其仅对选中的文字执行代码？

Option Explicit
Sub test1()
    With ActiveDocument
        With Selection
            If Len(.Range.Text) Then
                .Collapse 0
                .InsertAfter "<break time=""5s""/>"
            End If
        End With
    End With
End Sub

gwjkkkkk