The way to count the No. of pages in ms word's - Visual Basic Discussion Boards

Re: Time

toxcct31-May-05 0:35

toxcct

31-May-05 0:35

did you try a simple subtraction !?

TOXCCT >>> GEII power
[toxcct][VisualCalc]

Re: Time

Colin Angus Mackay31-May-05 0:37

Colin Angus Mackay

31-May-05 0:37

Take the two DateTime objects and subtract one from the other. The result will be a TimeSpan object.

See DateTime Subtraction Operator[^] for more information and examples.

My: Blog | Photos
WDevs.com - Open Source Code Hosting, Blogs, FTP, Mail and More

try this

hakanaktan31-May-05 0:41

hakanaktan

31-May-05 0:41

Dim date1 As Date = "30.05.2005 13:54:00"
Response.Write("Hours Passed From 30.05.2005 13:54 to now is:

")
Response.Write("

" & ((DateTime.UtcNow.Ticks) - (date1.Ticks)) / TimeSpan.TicksPerHour)

-MCP& MCAD &junior coder--

Re: try this

Colin Angus Mackay31-May-05 0:45

Colin Angus Mackay

31-May-05 0:45

I think you hit the reply button on the wrong message.

My: Blog | Photos
WDevs.com - Open Source Code Hosting, Blogs, FTP, Mail and More

opps sorry

hakanaktan31-May-05 1:01

hakanaktan

31-May-05 1:01

i thought it is asp.net forum..
sorry...

-MCP& MCAD &junior coder--

Re: opps sorry

Colin Angus Mackay31-May-05 1:35

Colin Angus Mackay

31-May-05 1:35

hakanaktan wrote:
i thought it is asp.net forum

No, I meant that your message appeared to be a reply for PsYcHo_A's question, rather than a comment on my answer.

hakanaktan wrote:
sorry

That's okay - it is easy to do.

My: Blog | Photos
WDevs.com - Open Source Code Hosting, Blogs, FTP, Mail and More

yes you are right

hakanaktan31-May-05 3:38

hakanaktan

31-May-05 3:38

I made lot's of mistake at once Smile | :)

It was not a comment for you, just a little help for pyxcho_a..
sorry again..

-MCP& MCAD &junior coder--

The way to count the No. of pages in ms word's

IvanChang30-May-05 20:58

IvanChang

30-May-05 20:58

Anyone knows the coding to count the number of pages in a selected microsoft word's document??

Re: The way to count the No. of pages in ms word's

Duncan Edwards Jones31-May-05 0:31

Duncan Edwards Jones

31-May-05 0:31

Try

<br />
Function GetBuiltInProperty(objDoc As Object, _<br />
                            strPropname As String) As Variant<br />
<br />
   ' This procedure returns the value of the built-in document<br />
   ' property specified in the strPropName argument for the Office<br />
   ' document object specified in the objDoc argument.<br />
<br />
   Dim prpDocProp       As DocumentProperty<br />
   Dim varValue         As Variant<br />
   <br />
   Const ERR_BADPROPERTY      As Long = 5<br />
   Const ERR_BADDOCOBJ        As Long = 438<br />
   Const ERR_BADCONTEXT       As Long = -2147467259<br />
   <br />
   On Error GoTo GetBuiltInProp_Err<br />
   <br />
   Set prpDocProp = objDoc.BuiltInDocumentProperties(strPropname)<br />
   With prpDocProp<br />
      varValue = .Value<br />
      If Len(varValue) <> 0 Then<br />
         GetBuiltInProperty = varValue<br />
      Else<br />
         GetBuiltInProperty = "Property does not currently have a value set."<br />
      End If<br />
   End With<br />
   <br />
GetBuiltInProp_End:<br />
   Exit Function<br />
GetBuiltInProp_Err:<br />
   Select Case Err.Number<br />
      Case ERR_BADDOCOBJ<br />
         GetBuiltInProperty = "Object does not support BuiltInProperties."<br />
      Case ERR_BADPROPERTY<br />
         GetBuiltInProperty = "Property not in collection."<br />
      Case ERR_BADCONTEXT<br />
         GetBuiltInProperty = "Value not available in this context."<br />
      Case Else<br />
   End Select<br />
   Resume GetBuiltInProp_End:<br />
End Function<br />

Try the "Pages" property.

'--8<------------------------
Ex Datis:
Duncan Jones
Merrion Computing Ltd

IE plug-in

mandrake_230-May-05 20:58

mandrake_2

30-May-05 20:58

Hy guys, i'm Alessio and i'm writing to ask you where I can find info about ie plugin developing.
I don't know if it is a possible job and, if yes, how could i do it.
So, thanx in advance and excuse me for my english.

Outlook problem

dw192830-May-05 20:45

dw1928

30-May-05 20:45

Hi I am trying to save email message to personal folder and also attachment. But when I tried to run the code, until it tried to access c:\ folder it gives an error: Object reference not set to an instance of an object. do you know what happen. Thanks

Dim objApp As Outlook.Application
Dim objNameSpace As Outlook.NameSpace
Dim objMAPIFolder As Outlook.MAPIFolder
Dim objMailItem As Outlook.MailItem
Dim iRow As Integer, i As Integer, j As Integer

objApp = New Outlook.Application
objNameSpace = objApp.GetNamespace(Type:="MAPI")
objMAPIFolder = objNameSpace.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderInbox)
For i = 1 To objMAPIFolder.Items.Count
objMailItem.SaveAs("c:\Outlook\" & objMailItem.Subject & ".msg") 'error says Object reference not set to an instance of an object.
If objMailItem.Attachments.Count <> 0 Then
For j = 1 To objMailItem.Attachments.Count
objMailItem.Attachments.Item(j).SaveAsFile("c:\Outlook\" & objMailItem.Attachments.Item(j).FileName)
Next j
End If
Next i

Re: Outlook problem

S. Senthil Kumar30-May-05 21:23

S. Senthil Kumar

30-May-05 21:23

objMailItem is never assigned anywhere?

Regards
Senthil
_____________________________
My Blog | My Articles | WinMacro

Re: Outlook problem

dw192831-May-05 17:21

dw1928

31-May-05 17:21

do you mean as outlook.MailItem?

Re: Outlook problem

S. Senthil Kumar1-Jun-05 3:12

S. Senthil Kumar

1-Jun-05 3:12

Yeah, you need to assign something to it, otherwise it will be null. Maybe you missed a line of code that assigned something to it?

Regards
Senthil
_____________________________
My Blog | My Articles | WinMacro

Crystal Reports Progress Dialog box.

Nic Rowan30-May-05 20:25

Nic Rowan

30-May-05 20:25

Hi,

Not sure where to post this so i'm posting it here and in the C# forum...

I'm busy converting an old VB 6 app to .NET and I'm having a little issue with crystal. In the VB 6 code, when you export a report to disk, it used to pop up a dialog box that showed you how far, percentage wise, it was in the export. I've converted this to .NET and it exports perfectly BUT it doesn't pop up that little crystal dialog box to show how far the export is...

Anyone have any ideas on this? I've looked for methods and properties in the ReportDocument and ExportOptions classes but couldn't see anything.

Thanks!
Nick

The man who smiles when things go wrong has thought of someone he can blame it on.

If you tell a man there are 300 billion stars in the universe, he'll believe you. But if you tell him a bench has just been painted, he'll have to touch it to be sure.

Visual Basic

Member 158672030-May-05 17:41

Member 1586720

30-May-05 17:41

I want to add some program in between some other program

means i want to trigger some hardware through lpt port in between a slide show in acdsee program can any body help me to do this....

Re: Visual Basic

Christian Graus30-May-05 17:48

Christian Graus

30-May-05 17:48

You can't get Acdsee to call your code without some pretty serious hacking. There are articles on CP about hacking Minesweeper to add menu items, but getting something to happen as part of a process is a lot more involved. Certainly, I doubt VB is even up to the task, it sounds like a C++ job to me.

Why don't you just write your own slideshow, that would be easier I reckon.

Christian Graus - Microsoft MVP - C++

Re: Visual Basic

Member 158672030-May-05 18:07

Member 1586720

30-May-05 18:07

I want to display TGA files as full screen slide show can you sujjest me a ocx control which will work for me please .....

Re: Visual Basic

Christian Graus31-May-05 10:56

Christian Graus

31-May-05 10:56

You're using VB6 ? Sorry, I don't use VB at all, and I answer vb.net questions because they use the .net framework, which I do use.

Christian Graus - Microsoft MVP - C++

Deployment Question

Binary011030-May-05 15:50

Binary0110

30-May-05 15:50

I've created a small app in vb.net and during the deployment the setup file doestn't have an Icon, does anyone know how to change this.

BINARY

Weird Problem

Anonymous30-May-05 9:59

Anonymous

30-May-05 9:59

I have written a small app in vb.net (Using VS2005 Beta) that performs some screen scrape operations. The website that I am scraping has a structure like website.com/Page.asp?id=xxxxx
The id's are numeric and so my app loops thru one at a time incrementing the ids.

My internet setup is Cable modem with a Netgear router. About every 20 minutes while this app is running, my router loses connection with the modem causing me to have to unplug and replug in the router. A few seconds later everything resumes normally. I have never experienced this problem with my router and only behaves like this when this app is running. Have you ever seen something like this? Any ideas on the cause?

Re: Weird Problem

Christian Graus30-May-05 14:35

Christian Graus

30-May-05 14:35

If you're scraping this site, then it's probably God punishing you.

Christian Graus - Microsoft MVP - C++

Re: Weird Problem

Anonymous30-May-05 15:08

Anonymous

30-May-05 15:08

Lol, perhaps. Well, in my defense, Im only scraping for personal consumption.

Re: Weird Problem

Christian Graus30-May-05 15:37

Christian Graus

30-May-05 15:37

Makes no difference to the effect you have on the bandwidth of the sites you scrape.

Christian Graus - Microsoft MVP - C++

Sending Mail in VB 6.0

e_screw30-May-05 6:19

e_screw

30-May-05 6:19

I have a small program to send emails thru visualbasic 6.0. I am using vbSendMail component. When i tested my program in the localnetwork its working fine. But when i run the same exe in Internet there was no error, but the mail was not sent. I think it the problem with the SMTP server. I have downloaded QK SMTP Server and installed in my system. Now when i run my program in the internet its working ( i have give the SMTP server name as 127.0.0.1). Now i want to run my program in the internet without using any other SMTP Server. How could i do this.. I am always connected to internet and i have my own webspace. How could i use my webservers SMTP address/ip and run my program.

Thanks in advance,

Electronic Screw

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.