Scripting with Microsoft Word Problem

ASP Free Forums Sponsor:

October 19th, 2009, 02:01 PM

djturizmo

Registered User

Join Date: Oct 2009

Posts: 4

Time spent in forums: 9 m 30 sec
Reputation Power: 0

VBScript (VBS) - Scripting with Microsoft Word Problem

I am new to scripting and I need some help please.

I have microsoft word files in folderA.

I need to search all word files for a string, if it finds the string, I need it to move that one file to folderB and then move onto the next file.

I will post the code I have so far. Please note, my word files end in .T00 or .T01 but its really a .doc or .rtf. I have adjusted my code to look for anything ending with .T**

Any help is greatly appreciated.

Thanks
Kris

'***********************************'

Option Explicit

Dim fso, StdOut, fFile, fFolder, sSource, sDest, tx, sText, nPosStart, nPosEnd, objFSO

Dim wrdo, strReadDocName, strWriteDocName, TargetFolder1

Dim objShell1
Dim objFolder1
Dim colItems1
Dim objItem1

TargetFolder1 = "C:\DTS\Send\"

Set objShell1 = CreateObject("Shell.Application")

Set objFolder1 = objShell1.Namespace(TargetFolder1)

Set colItems1 = objFolder1.Items

For Each objItem1 In colItems1

If InStr(2, objItem1.Name, ".T") <> 0 Then

Set wrdo = CreateObject("Word.Application")

wrdo.Visible = FALSE

wrdo.Documents.Open(targetfolder1 & objitem1.name)

If wrdo.Documents.Application.Selection.Find.Text = "thestring" Then

'If wrdo.Documents.Application.Selection.Find.Text = "<....................>" Then

'If wrdo.Documents.Application.Selection.Find.Text = "|" & Chr(144) & "|" Then

wrdo.ActiveDocument.Close

wrdo.Application.Quit

'Set objFSO = CreateObject("Scripting.FileSystemObject")

'objFSO.MoveFile (targetfolder1 & objitem1.name), "C:\DTS\Send\WrongMarker\"

Else

wrdo.ActiveDocument.Close

wrdo.Application.Quit

End IF

Set wrdo = Nothing

Else

End If

Next

October 20th, 2009, 12:26 AM

Nilpo

Shaolin Scripter!™

ASP Free Intermediate (1500 - 1999 posts)

Join Date: Jun 2006

Location: Salem, OH

Posts: 1,880

Folding Points: 214558 Folding Title: Super Ultimate Folder - Level 1

Time spent in forums: 1 Week 2 Days 8 h 47 m 8 sec
Reputation Power: 967

You haven't said what's not working, but I do see a few improper method calls. I've cleaned up your code a little bit and fixed the method calls. I've also removed some unnecessary conditional statements. See if this works any better for you. If not, please post your error message.

vb Code:

Original - vb Code

Option Explicit
 
Dim strTarget, blnMove
Dim objShell, objFolder, colItems, objItem
Dim objWord
 
strTarget = "C:\DTS\Send\"
 
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(strTarget)
Set colItems = objFolder.Items
 
blnMove = False
For Each objItem In colItems
    If InStr(2, objItem.Name, ".T") <> 0 Then
        Set objWord = CreateObject("Word.Application")
        objWord.Visible = False
        objWord.Documents.Open strTarget & objItem.Name
        If objWord.Documents.Application.Selection.Find.Text = "thestring" Then
            blnMove = True
        End If
 
        objWord.ActiveDocument.Close
        objWord.Application.Quit
 
        If blnMove Then
            Set objFso = CreateObject("Scripting.FileSystemObject")
            objFso.MoveFile strTarget & objItem.Name, "C:\DTS\Send\WrongMarker\"
        End If
        
        Set objWord = Nothing
    End If
Next

__________________

Don't like me? Click it.

Scripting problems? Windows questions? Ask the Windows Guru!

Stay up to date with all of my latest content. Follow me on Twitter!

Help us help you! Post your exact error message with these easy tips!

October 20th, 2009, 12:28 AM

Nilpo

Shaolin Scripter!™

Join Date: Jun 2006

Location: Salem, OH

Posts: 1,880

Time spent in forums: 1 Week 2 Days 8 h 47 m 8 sec
Reputation Power: 967

I also want to add, since you're using the Shell.Application object to iterate through your files, there's no need to use the FileSystemObject to move them. You're just creating an extra object to do something that the Shell Automation object can do natively (with the MoveHere method). Use one or the other, not both.

I recommend going with the FileSystemObject all the way around since the code is easier to use.

October 20th, 2009, 12:37 PM

djturizmo

Registered User

Join Date: Oct 2009

Posts: 4

Time spent in forums: 9 m 30 sec
Reputation Power: 0

Quote:

Originally Posted by Nilpo

Thank you for your reply. I am not sure how to rewrite it in the file script like you suggested nor do I know the .movehere option. Is there a good place to go for word.application options that I can use?

I am not getting an error message, it just isn't moving the file when it finds a simple word like "teacher".

I can see it open the script in taskmanager and then open word for each file, it just isn't moving the files.

Any ideas?

Please help.

October 20th, 2009, 12:41 PM

djturizmo

Registered User

Join Date: Oct 2009

Posts: 4

Time spent in forums: 9 m 30 sec
Reputation Power: 0

Is it possible that there is a problem with the following line?

If blnMove Then
Set objFso = CreateObject("Scripting.FileSystemObject")
objFso.MoveFile strTarget & objItem.Name, "C:\DTS\Send\WrongMarker\"
End If

Should it be something like .....

If blnMove = "True" Then
Set objFso = CreateObject("Scripting.FileSystemObject")
objFso.MoveFile strTarget & objItem.Name, "C:\DTS\Send\WrongMarker\"
End If

I have tried that but it didn't work.

October 20th, 2009, 01:39 PM

Nilpo

Shaolin Scripter!™

Join Date: Jun 2006

Location: Salem, OH

Posts: 1,880

Time spent in forums: 1 Week 2 Days 8 h 47 m 8 sec
Reputation Power: 967

Quote:

Originally Posted by djturizmo

Since blnMove is a Boolean (true or false) value, the two are both essentially the same.

You can find information about the Word Automation object here.

It sounds as though your text search isn't finding anything. Here's how I would do this.

vb Code:

Original - vb Code

Option Explicit
 
Dim strTarget, blnMove
Dim objShell, objFolder, colItems, objItem
Dim objWord
 
strTarget = "C:\DTS\Send\"
 
Set objFso = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFso.GetFolder(strTarget)
Set colItems = objFolder.Files
 
blnMove = False
For Each objItem In colItems
    If InStr(2, objItem.Name, ".T") <> 0 Then
        Set objWord = CreateObject("Word.Application")
        objWord.Visible = False
        objWord.Documents.Open strTarget & objItem.Name
        objWord.Documents.Application.Selection.Find.Clear  Formatting
        If objWord.Documents.Application.Selection.Find.Execu  te("thestring") = True Then
            blnMove = True
        End If
        
        objWord.ActiveDocument.Close
        objWord.Application.Quit
        
        If blnMove Then
            objFso.MoveFile strTarget & objItem.Name, "C:\DTS\Send\WrongMarker\"
        End If
        
        Set objWord = Nothing
    End If
Next
 
Set objFso = Nothing

You might also read my articles:

Scripting Microsoft Word

Reading and Printing Word Documents in WSH

Advanced Word Object Scripting

October 20th, 2009, 02:15 PM

djturizmo

Registered User

Join Date: Oct 2009

Posts: 4

Time spent in forums: 9 m 30 sec
Reputation Power: 0

That did it. Thanks so much for the help. I will be sure to use those links.

Kris.

October 20th, 2009, 02:48 PM

Nilpo

Shaolin Scripter!™

Join Date: Jun 2006

Location: Salem, OH

Posts: 1,880

Time spent in forums: 1 Week 2 Days 8 h 47 m 8 sec
Reputation Power: 967

Quote:

Originally Posted by djturizmo

That did it. Thanks so much for the help. I will be sure to use those links.

Kris.

Awesome, Kris. I'm glad that worked out for you.

Thread Tools	Search this Thread
Email this Page	Search this Thread: Advanced Search
Display Modes	Rate This Thread
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode	Rate This Thread: