как удалить несколько строк из Microsoft Word

Question

Мой файл слово содержит некоторые данные, которые следующие

product/productId: 0784010927 
review/userId: A19V0VJMKKRMC8 
review/profileName: jj "Justin" 
review/helpfulness: 1/1 
review/score: 5.0 
review/time: 1031961600 
review/summary: one of my all tyime faves 
review/text: i am from this genration which makes me different because i like movies from the 80s. well this is a must see. 

product/productId: 0784010927 
review/userId: A3OZU2EMJQ5FIC 
review/profileName: danielle levin 
review/helpfulness: 1/1 
review/score: 5.0 
review/time: 1022025600 
review/summary: The Best in the world 
review/text: This movie has touched me so much it's great. The movie is about a a young girl who is a little daddy girl and does everything she is told until she met her love Johnny (Patrick Swayze). Baby (Jennifer Grey) learns not only how to dance 

Но я хочу, чтобы удалить часть линии, начиная с обзора \ текст из каждого пункта. мой вывод должен быть как то

product/productId: 0784010927 
review/userId: A3OZU2EMJQ5FIC 
review/profileName: danielle levin 
review/helpfulness: 1/1 
review/score: 5.0 
review/time: 1022025600 
review/summary: The Best in the world 

Любой может помочь мне, пожалуйста, с какой-либо идеей, используя макрос в Microsoft Word или любых других решений.

Answer 1

Попробуйте

Sub Demo() 
     With Selection.Find 
     While .Execute(FindText:="review/text", Forward:=True) 
      If .Found = True Then 
      Selection.MoveDown Unit:=wdParagraph, Count:=1, Extend:=wdExtend 
      Selection.TypeBackspace 
      End If 
     Wend 
     End With 
End Sub 

Убедитесь, что вы держите курсор в исходное положение документа.