请教代码写法：找到某个字符串，将第一次出现以后的内容全部删除。

irischenxi

请教在Word中以下功能代码如何写： 找到某个字符串，将第一次出现以后的内容全部删除。

守柔

能举个例子说明一下好吗？我们可能猜不透你的意思。

irischenxi

不好意思，没有说清楚。举个例子说：在一篇文章中找到"公司简介"这个字符串（第一次出现），然后将"公司简介"这个字符串以后的该文档的其余内容都删除。

这边我还想实现以下两个功能，不知是否可以解决：

1、查找的条件除了"公司简介",添加一个条件，该字符串Style设置为Heading类。

2、将查找到的"公司简介"的Style设置为Heading1。

谢谢！！

守柔

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋
'* Created By I Love You_Word@ExcelHome 12/21/2005 5:00:51 PM
'仅测试于System: Windows NT Word: 10.0 Language: 2052
'№ 0003^The Code CopyIn [ThisDocument-ThisDocument]^'
'* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－

Option Explicit

Sub Example()
Dim myRange As Range
Set myRange = ActiveDocument.Content
With myRange.Find
.ClearFormatting
.Text = "公司简介"
If .Execute Then
myRange.Style = "标题 1"
myRange.SetRange myRange.End, ActiveDocument.Content.End
myRange.Delete
End If
End With
End Sub
'----------------------

irischenxi

谢谢版主！