Problem while processing word file with word instance from vb.net Jack <pjpspeed[ at ]gmail.com> 12/8/2008 8:43:33 AM Hi, I have job to verify data available in doc/rtf files. For verification I am opening file in the instance of WinWord(MS Word) application. I do the process page by page for detailed comparison. The actual problem starts when I shift cursor to any pages using following code : MsWord.Selection.GoTo(Word.WdGoToItem.wdGoToPage, _ Word.WdGoToDirection.wdGoToAbsolute, IntCounter) Here [ IntCounter ] is variable for page counter. Statement executes perfectly and cursor sifted to exact starting position of page. But the first line of the page shifted at the bottom of the upper page. As result such data not verified.

RE: Problem while processing word file with word instance from vb.net Jean-Guy Marcil 12/8/2008 8:46:16 PM "Jack" wrote: [Quoted Text] > Hi, > > I have job to verify data available in doc/rtf files. For verification > I am opening file in the instance of WinWord(MS Word) application. I > do the process page by page for detailed comparison. > > The actual problem starts when I shift cursor to any pages using > following code : > > MsWord.Selection.GoTo(Word.WdGoToItem.wdGoToPage, _ > Word.WdGoToDirection.wdGoToAbsolute, IntCounter) > > Here [ IntCounter ] is variable for page counter. > > Statement executes perfectly and cursor sifted to exact starting > position of page. But the first line of the page shifted at the > bottom of the upper page. As result such data not verified. Maybe you are using a different printer from the one that was used when creating the files. Word reflows the text differently than when it was first set? Do you observe this behaviour with every single page of every single document you process? What Word version are you using?

Re: Problem while processing word file with word instance from vb.net Jack <pjpspeed[ at ]gmail.com> 12/9/2008 8:30:34 AM Well I am using MSWord 2002. Now I came to know that this error occured on every pc with same file and when I open doc file normally it shows data in proper way but when i open document through codding MS Word misbehave. On Dec 9, 1:46 am, Jean-Guy Marcil <JeanGuyMar...[ at ]discussions.microsoft.com> wrote: [Quoted Text] > "Jack" wrote: > > Hi, > > > I have job to verify data available in doc/rtf files. For verification > > I am opening file in the instance of WinWord(MS Word) application. I > > do the process page by page for detailed comparison. > > > The actual problem starts when I shift cursor to any pages using > > following code : > > > MsWord.Selection.GoTo(Word.WdGoToItem.wdGoToPage,  _ > > Word.WdGoToDirection.wdGoToAbsolute, IntCounter) > > > Here [ IntCounter ] is variable for page counter. > > > Statement executes perfectly and cursor sifted to exact starting > > position of page.  But the first line of the page shifted at the > > bottom of the upper page.  As result such data not verified. > > Maybe you are using a different printer from the one that was used when > creating the files. > Word reflows the text differently than when it was first set? > > Do you observe this behaviour with every single page of every single > document you process? > What Word version are you using?

Re: Problem while processing word file with word instance from vb.net Jack <pjpspeed[ at ]gmail.com> 12/9/2008 8:42:41 AM My job is like find tag and then compare value associated with that tav with database. Well I am using MSWord 2002 and validate data using find.execute function of word application. So I do not worry about line or page. Here is sample code: If objDoctorCheckSpecification.PatientID Then MsWord.Selection.HomeKey(Word.WdUnits.wdStory) If MsWord.Selection.Find.Execute("ACCOUNT NO:") Then Call subSelectUpToEndofLine() ' This function select line from the current possition to end of the line If MsWord.Selection.Text.Trim <> dtblPatient.Rows (0)("Pno").ToString Then objLogCollecton.LogComment.Add(New clsLog ("Error : Patient No Mismatch in file.")) End If Else objLogCollecton.LogComment.Add(New clsLog("Error : ACCOUNT NO: Tag not found in file.")) End If End If Now I came to know that this error occured on every pc with same file and when I open doc file normally it shows data in proper way but when i open document through codding MS Word misbehave. Thanks,

Re: Problem while processing word file with word instance from vb. Jean-Guy Marcil 12/9/2008 9:05:01 PM "Jack" wrote: [Quoted Text] > My job is like find tag and then compare value associated with that > tav with database. > > Well I am using MSWord 2002 and validate data using find.execute > function of word application. So I do not worry about line or page. > > Here is sample code: > > If objDoctorCheckSpecification.PatientID Then > MsWord.Selection.HomeKey(Word.WdUnits.wdStory) > If MsWord.Selection.Find.Execute("ACCOUNT NO:") Then > > Call subSelectUpToEndofLine() ' This function > select line from the current possition to end of the line > > If MsWord.Selection.Text.Trim <> dtblPatient.Rows > (0)("Pno").ToString Then > objLogCollecton.LogComment.Add(New clsLog > ("Error : Patient No Mismatch in file.")) > End If > Else > objLogCollecton.LogComment.Add(New clsLog("Error : > ACCOUNT NO: Tag not found in file.")) > End If > End If > > > Now I came to know that this error occured on every pc with same file > and when I open doc file normally it shows data in proper way but when > i open document through codding MS Word misbehave. I am still not sure what you are doing and what the exact problem is. Can you post the "End of line" function? The problem might be in that procedure.

Re: Problem while processing word file with word instance from vb. Jack <pjpspeed[ at ]gmail.com> 12/10/2008 4:40:21 AM Private Sub subSelectUpToEndofLine() MsWord.Selection.MoveRight(Unit:=Word.WdUnits.wdCharacter, Count:=1) MsWord.Selection.EndKey(Unit:=Word.WdUnits.wdLine, Extend:=Word.WdMovementType.wdExtend) End Sub On Dec 10, 2:05 am, Jean-Guy Marcil <JeanGuyMar...[ at ]discussions.microsoft.com> wrote: [Quoted Text] > "Jack" wrote: > > My job is like find tag and then compare value associated with that > > tav with database. > > > Well I am using MSWord 2002 and validate data using find.execute > > function of word application. So I do not worry about line or page. > > > Here is sample code: > > >    If objDoctorCheckSpecification.PatientID Then > >                  MsWord.Selection.HomeKey(Word.WdUnits.wdStory) > >                  If MsWord.Selection.Find.Execute("ACCOUNT NO:") Then > > >                     Call subSelectUpToEndofLine()  ' This function > > select line from the current possition to end of the line > > >                     If MsWord.Selection.Text.Trim <> dtblPatient.Rows > > (0)("Pno").ToString Then > >                         objLogCollecton.LogComment.Add(New clsLog > > ("Error : Patient No Mismatch in file.")) > >                     End If > >                  Else > >                     objLogCollecton.LogComment.Add(New clsLog("Error : > > ACCOUNT NO: Tag not found in file.")) > >                  End If > >    End If > > > Now I came to know that this error occured on every pc with same file > > and when I open doc file normally it shows data in proper way but when > > i open document through codding MS Word misbehave. > > I am still not sure what you are doing and what the exact problem is. > > Can you post the "End of line" function? The problem might be in that > procedure.

Re: Problem while processing word file with word instance from vb. "Doug Robbins - Word MVP" <dkr[ at ]REMOVECAPSmvps.org> 12/12/2008 4:32:13 AM A better way would be to use Dim eol As Range Set eol = Selection.Range eol.End = Selection.Bookmarks("\line").Range.End eol.Start = eol.Start + 1 eol.Select -- Hope this helps. Please reply to the newsgroup unless you wish to avail yourself of my services on a paid consulting basis. Doug Robbins - Word MVP "Jack" <pjpspeed[ at ]gmail.com> wrote in message news:95e55a54-4c3d-4860-9cbe-99fb659f9199[ at ]u18g2000pro.googlegroups.com... Private Sub subSelectUpToEndofLine() MsWord.Selection.MoveRight(Unit:=Word.WdUnits.wdCharacter, Count:=1) MsWord.Selection.EndKey(Unit:=Word.WdUnits.wdLine, Extend:=Word.WdMovementType.wdExtend) End Sub On Dec 10, 2:05 am, Jean-Guy Marcil <JeanGuyMar...[ at ]discussions.microsoft.com> wrote: [Quoted Text] > "Jack" wrote: > > My job is like find tag and then compare value associated with that > > tav with database. > > > Well I am using MSWord 2002 and validate data using find.execute > > function of word application. So I do not worry about line or page. > > > Here is sample code: > > > If objDoctorCheckSpecification.PatientID Then > > MsWord.Selection.HomeKey(Word.WdUnits.wdStory) > > If MsWord.Selection.Find.Execute("ACCOUNT NO:") Then > > > Call subSelectUpToEndofLine() ' This function > > select line from the current possition to end of the line > > > If MsWord.Selection.Text.Trim <> dtblPatient.Rows > > (0)("Pno").ToString Then > > objLogCollecton.LogComment.Add(New clsLog > > ("Error : Patient No Mismatch in file.")) > > End If > > Else > > objLogCollecton.LogComment.Add(New clsLog("Error : > > ACCOUNT NO: Tag not found in file.")) > > End If > > End If > > > Now I came to know that this error occured on every pc with same file > > and when I open doc file normally it shows data in proper way but when > > i open document through codding MS Word misbehave. > > I am still not sure what you are doing and what the exact problem is. > > Can you post the "End of line" function? The problem might be in that > procedure.

Re: Problem while processing word file with word instance from vb. Jack <pjpspeed[ at ]gmail.com> 12/16/2008 12:18:47 PM thanks Doug Robbins. I have added "subSelectUpToEndofLine" procedure code on the request of Jean-Guy. Here problem is not for selection of content from current cursor position to end of line but other as I have defined before.

Re: Problem while processing word file with word instance from vb. "Doug Robbins - Word MVP" <dkr[ at ]REMOVECAPSmvps.org> 12/17/2008 6:33:27 AM It is not clear what you mean by "other" It might be better to tell us what you need to do, rather than the problem that you are encountering with the way that you are trying to do it. -- Hope this helps. Please reply to the newsgroup unless you wish to avail yourself of my services on a paid consulting basis. Doug Robbins - Word MVP "Jack" <pjpspeed[ at ]gmail.com> wrote in message news:0fad91e6-9afd-4e1f-ae6b-c545263d4cc6[ at ]t26g2000prh.googlegroups.com... [Quoted Text] > thanks Doug Robbins. > > I have added "subSelectUpToEndofLine" procedure code on the request of > Jean-Guy. Here problem is not for selection of content from current > cursor position to end of line but other as I have defined before.