Problems with Ms Word file using vbscript

ASP Free Forums Sponsor:

Ajax Application Generator Generate database and reporting .NET Web apps in minutes. Quickly create visually stunning, feature-rich apps that are easy to customize and ready to deploy. Download Now!

January 22nd, 2008, 05:34 PM

trx

Registered User

Join Date: Jan 2008

Posts: 3

Time spent in forums: 29 m 58 sec
Reputation Power: 0

Problems with Ms Word file using vbscript

I have tried this but it still does not work. please help. here is what I have ...

Code:

 Set objFSO = CreateObject("Word.Application") 
  objFSO.Visible = True
  Set objFile1 = objFSO.Documents.Open("C:\Documents and Settings\trx\Desktop\1 Intro.doc")
  
  Set objFile2 = objFSO.OpenTextFile(ObjFile1, ForReading)  
  Set outfile = objFSO.CreateTextFile("C:\Documents and Settings\trx\Desktop\writeToWordList.doc")



Set objRegEx = CreateObject("VBScript.RegExp")    'create an instance of the VBScript.RegExp object
  
  objRegEx.Global = True       ' set to true so it continues to find all matches rather than find one match and stop
  objRegEx.Pattern = "\bSlide...\b"      'regular expression pattern to find in text file 

  Do Until objFile.AtendOfStream
    Dim strSearchString, Matches, strMatch
    strSearchString = objFile.ReadLine
    Set Matches = objRegEx.Execute(strSearchString)  
    
    If Matches.Count > 0 Then
      For Each strMatch in Matches   
        Dim title 
        title = Mid(strSearchString, 12)
        outfile.writeline(title)  
        'go to Daisy on IE
        
      Next
    else 
      Dim temp
      temp = Left(strSearchString, 8)     
      if StrComp(temp, endTag, 1) = 0 then
        MsgBox temp
      else 
        outfile.writeline(strSearchString)
      end If
    End If        
  Loop
  
  objFile.Close

Last edited by mehere : January 22nd, 2008 at 05:38 PM. Reason: added code tags ... please use [code][/code] tags in the future.

January 22nd, 2008, 05:39 PM

mehere

Senior Sarcasm Wizardess

Join Date: Feb 2005

Location: Dreamland

Posts: 12,483

Folding Points: 10976 Folding Title: Novice Folder

Time spent in forums: 4 Months 3 Weeks 3 Days 21 h 7 m 11 sec
Reputation Power: 1450

-->Split from thread
Please do not highjack other threads.

Now ... telling us it doesn't work, doesn't help us help you. Please inform us what you're trying to do, what error messages you are getting, which line the error message points to.

__________________
Come JOIN the party!!!

Quote of the Month:
Trouble: Luck can't last a lifetime unless you die young.

Questions to Ponder:
Do cemetery workers prefer the graveyard shift?

iif([sarcasm]=true,iif([you have to ask]=true,"didn't work","ha ha ha"),"not sarcasm")
copyright© 2008 sbenj69

January 23rd, 2008, 12:54 PM

trx

Registered User

Join Date: Jan 2008

Posts: 3

Time spent in forums: 29 m 58 sec
Reputation Power: 0

Problem Streaming from MSWord doc

Quote:

Originally Posted by mehere

hello,
Well I am trying to read from a MS word doc line for line, but from what I have in my code it only works for plain text, and the error it gives me that (ObjFile.AtendofStream) objFile does not have that method or property. Any help would be fully appreciated.

January 24th, 2008, 09:52 AM

Nilpo

Shaolin Scripter!™

Join Date: Jun 2006

Location: Salem, OH

Posts: 675

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

Time spent in forums: 3 Days 18 h 35 m 6 sec
Reputation Power: 308

Code:

 Set objFSO = CreateObject("Word.Application") 
  objFSO.Visible = True
  Set objFile1 = objFSO.Documents.Open("C:\Documents and Settings\trx\Desktop\1 Intro.doc")
  
  Set objFile2 = objFSO.OpenTextFile(ObjFile1, ForReading)  
  Set outfile = objFSO.CreateTextFile("C:\Documents and Settings\trx\Desktop\writeToWordList.doc")

This is redundant. You are opening a document using the Word application. The Documents.Open method returns an object. You cannot then open that object using the FileSystemObject's OpenTextFile method.

Aside from that, the OpenTextFile method requires a string (file path) as its first parameter.

Your best bet would be to select all of the contents once you open the file and then copy it to a blank text document where you can paste it as plain text.

__________________

Click the image if at any point you don't like my decision.

Scripting problems? Windows questions? Ask the Windows Guru!

Subscribe to Nilpo's Live Article Feed

January 25th, 2008, 10:40 AM

trx

Registered User

Join Date: Jan 2008

Posts: 3

Time spent in forums: 29 m 58 sec
Reputation Power: 0

I already did that, but my main question is that, is there a way that you can read line from line from a MSWord doc, if yes, any tips on how to? Help would be fully appreciated. Thanks man.

May 15th, 2008, 12:45 PM

Nilpo

Shaolin Scripter!™

Join Date: Jun 2006

Location: Salem, OH

Posts: 675

Time spent in forums: 3 Days 18 h 35 m 6 sec
Reputation Power: 308

Quote:

Originally Posted by trx

I already did that, but my main question is that, is there a way that you can read line from line from a MSWord doc, if yes, any tips on how to? Help would be fully appreciated. Thanks man.

Sorry for the delayed response.

Reading line by line using the Word automation object is a pain in the neck to say the least. The easiest method is to use Word to open and save the document in plain text. Then simply delete the extra file when you're finished.

Viewing: ASP Free Forums > System Administration > Windows Scripting > Problems with Ms Word file using vbscript

« Previous Thread | Next Thread »

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:

Posting Rules
You may not post new threads You may not post replies You may not post attachments You may not edit your posts vB code is On Smilies are On [IMG] code is On HTML code is Off

View Your Warnings | New Posts | Latest News | Latest Threads | Shoutbox

Forum Jump

Free IT White Papers!

Accelerating Trading Partner Performance
One in five. That's how many partner transactions have at least one error. That is an amazing statistic, particularly given the extraordinary leaps in innovation across the global supply chain during the past two decades. Download this white paper to learn more.

Competing on Analytics
This Tech Analysis is designed to help identify characteristics shared by analytics competitors, and includes information about 32 organizations that have made a commitment to quantitative, fact-based analysis.

Cost Effective Scaling with Virtualization and Coyote Point Systems
An overview of the industry trend toward virtualization, how server consolidation has increased the importance of application uptime and the steps being taken to integrate load balancing technology with virtualized servers.

Five Checkpoints to Implementing IP Telephony
Implementation planning for IP PBX software and IP telephony has become vital as businesses replace discontinued legacy PBX phone systems. This informative whitepaper outlines five "checkpoints" for any implementation plan that will help make IP communications a successful proposition.

Hosted Email Security: Staying Ahead of New Threats
In the last two years, email has become a fierce battleground between the nefarious forces of spam and malware, and the heroes of messaging protection. The spam volumes increased alarmingly every month, bringing clever new forms of phishing and virus propagation attacks.

More Free IT White Papers!