Warning: file_get_contents(/data/phpspider/zhask/data//catemap/4/regex/20.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Regex Microsoft Word-使用正则表达式删除字符后的所有内容_Regex_Ms Word - Fatal编程技术网

Regex Microsoft Word-使用正则表达式删除字符后的所有内容

Regex Microsoft Word-使用正则表达式删除字符后的所有内容,regex,ms-word,Regex,Ms Word,我有很多具有表id号的html,并且希望有一个正则表达式来查找包含id的代码行,然后让我删除之后的所有内容 我目前拥有的: <table id="tableid-140" border="80"> 您只需要一个通配符查找/替换,其中: Find = (\<table) id*^13 Replace = \1>^p Find=(^p) 无需代码-虽然可以在宏中进行编码。我希望我可以升级投票,但我没有足够的声誉。非常感谢您的帮助。 Sub TestMacroI(

我有很多具有表id号的html,并且希望有一个正则表达式来查找包含id的代码行,然后让我删除之后的所有内容

我目前拥有的:

<table id="tableid-140" border="80">
您只需要一个通配符查找/替换,其中:

Find = (\<table) id*^13
Replace = \1>^p
Find=(^p)

无需代码-虽然可以在宏中进行编码。

我希望我可以升级投票,但我没有足够的声誉。非常感谢您的帮助。
    Sub TestMacroI()
Dim oRng As Word.Range
Dim oRngDelete As Word.Range
Set oRng = ActiveDocument.Range
With oRng.Find
  .Text = "table"
  While .Execute
    oRng.Select
    Set oRngDelete = ActiveDocument.Bookmarks("\Line").Range
    oRngDelete.Delete
  Wend
End With
End Sub
Find = (\<table) id*^13
Replace = \1>^p