Jump to content

delete text in ms word file between two words


Jreap
 Share

Go to solution Solved by water,

Recommended Posts

#include <MsgBoxConstants.au3>
#include <Word.au3>

Local $oWord = _Word_Create("Word.Application")
Local $oDoc = $oWord.Documents.Open(@ScriptDir & "\Report_20221229.doc")

Local $oRange1 = _Word_DocFind($oDoc, "STRING_1")
Local $oRange2 = _Word_DocFind($oDoc, "STRING_2")
Local $oRangefinal= $oDoc.Range($oRange1.start, $oRange2.start)
$oRangefinal.delete

I'm trying in an input word .doc file, to delete the text between two words or characters (example : "STRING_1 blablablablabla bla bla bla STRING_2") I would like to delete everything from STRING_1 blablablablabla bla bla bla "; in the file there are multiple intervals repeating indefinitely The script I tried to do works only once, then returns the error The requested action with this object has failed.

I also tried other methods like _Word_DocRangeSet but I can only set the end or start range not a range of strings to delete, I ask for your help or if you have other ideas I'm totally in the panic tunnel

Link to comment
Share on other sites

#include <MsgBoxConstants.au3>
#include <Word.au3>

Local $oWord = _Word_Create("Word.Application")
Local $oDoc = $oWord.Documents.Open(@ScriptDir & "\Report_20221229.doc")

while 1
Local $oRange1 = _Word_DocFind($oDoc, "STRING_1")
Local $oRange2 = _Word_DocFind($oDoc, "STRING_2")
Local $oRangefinal= $oDoc.Range($oRange1.start, $oRange2.start)
$oRangefinal.delete
wend

 

Link to comment
Share on other sites

  • Solution

Use _Word_DocFindReplace with the following parameters:

  • $sFindText: "STRING1*STRING_2"
  • $sReplaceWith: "STRING_1 STRING_2"
  • $bMatchWildcards: True

Detailed description: https://www.datanumen.com/blogs/2-smart-methods-to-delete-contents-between-two-specific-words-in-your-word-document/

My UDFs and Tutorials:

Spoiler

UDFs:
Active Directory (NEW 2022-02-19 - Version 1.6.1.0) - Download - General Help & Support - Example Scripts - Wiki
ExcelChart (2017-07-21 - Version 0.4.0.1) - Download - General Help & Support - Example Scripts
OutlookEX (2021-11-16 - Version 1.7.0.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX_GUI (2021-04-13 - Version 1.4.0.0) - Download
Outlook Tools (2019-07-22 - Version 0.6.0.0) - Download - General Help & Support - Wiki
PowerPoint (2021-08-31 - Version 1.5.0.0) - Download - General Help & Support - Example Scripts - Wiki
Task Scheduler (NEW 2022-07-28 - Version 1.6.0.1) - Download - General Help & Support - Wiki

Standard UDFs:
Excel - Example Scripts - Wiki
Word - Wiki

Tutorials:
ADO - Wiki
WebDriver - Wiki

 

Link to comment
Share on other sites

:)

My UDFs and Tutorials:

Spoiler

UDFs:
Active Directory (NEW 2022-02-19 - Version 1.6.1.0) - Download - General Help & Support - Example Scripts - Wiki
ExcelChart (2017-07-21 - Version 0.4.0.1) - Download - General Help & Support - Example Scripts
OutlookEX (2021-11-16 - Version 1.7.0.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX_GUI (2021-04-13 - Version 1.4.0.0) - Download
Outlook Tools (2019-07-22 - Version 0.6.0.0) - Download - General Help & Support - Wiki
PowerPoint (2021-08-31 - Version 1.5.0.0) - Download - General Help & Support - Example Scripts - Wiki
Task Scheduler (NEW 2022-07-28 - Version 1.6.0.1) - Download - General Help & Support - Wiki

Standard UDFs:
Excel - Example Scripts - Wiki
Word - Wiki

Tutorials:
ADO - Wiki
WebDriver - Wiki

 

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...