Kliot,
First you need to download the latest DOM DLL from here.
Once installed add the Microsoft XML, v4.0 reference to your project through the Project->References menu.
Zy
I can't seem to find the relevant link, but there is an issue with 32-bit values in VBScript. VBScript treats the first bit as a sign bit, so in reality the values are only 31-bits long. To get around this, append an additional ampersand, "&", to the end of the word...
I am trying to do something similar. I found the following at MSDN:
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/cpref/html/frlrfsystemnetwebclientclassuploaddatatopic1.asp
You need to Imports the System.Collections.Specialized namespace to get to the collection. However, I...
I should have googled it first! Try this from the MS Knowledge Base:
http://support.microsoft.com/default.aspx?scid=http://support.microsoft.com:80/support/kb/articles/Q301/2/64.ASP&NoWebContent=1
and this from the doc's...
Regular Expressions work great in VBSCript, but what about VB.NET? The RegExp object is a built-in object, so I can't create it with CreateObject. I find it hard to believe that I would have to recreate this.
Zy
Trudye,
Do you mean a mailing label or a bookmark? If you could reporduce what you want to do with the Record Macro function on, then post the VBA/macro code here that would make it clearer.
Zy
Trudye,
I think that this refers to the CreateObject method which is used to access automation components. Instead of using the Classid, you need to find the automation object interface.
For example, to use the FileSystemObject you use:
Set fso =...
Kent,
It depends upon what you want to do. The Word, and all Office products for that matter, have a real cryptic object structure. But, in all cases you have to create a Word (or Excel, or Access, etc.) object to gain access to the Word functions. Once you have access to the methods you can...
johnnyv,
I'll take a hack at it...
Option Explicit
Dim a, b
a = 3.75
b = a - int(a)
b = b * 10 ^ (Len(CStr(b)) - 2) ' subtract 2 from length to account for "0."
Zy
puck2,
Here is MS's refernece for the input box:
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/vsfctInputBox.asp
I don't see a length parameter.
Zy
khaled,
Since the registration server can't find a valid OLE entry point when you register, it is not an OLE or COM DLL. You will be unable to use it.
Zy
ralphtrent,
Try just Redim'ming the first index:
Redim Preserve Region(i)
The reminaing dimension(s) should follow, so you should then be able to set Region(i, 0) and Region(i, 1).
Zy
khaled,
You'll need to maje sure that your DLL supports OLE/automation and you'll also need to know the name of the accessible interface in the DLL. One place to find this is using the OLE View MS Visual Studio tool. Expand the All Objects item, then look for your DLL. When you find it, exapnd...
puck2,
To retrieve the value of the array, use the syntax that is similar to stuffing the array:
If UBound(arrPos) <> 0 Then
For i = 0 to arrPos.Count - 1
Text.SetParameterOnsubString catBorder, arrPos(i), 1, 7
Next
Or if there is a problem reading the array, you may have to add an...
puck2,
There are several ways to do this. If you know how many parameters you are going to stuff into your array you can explicitly declare the array with the number of parameters:
Dim arrPos(3)
arrPos(1) = Parm1
arrPos(2) = Parm2
arrPos(3) = Parm3
If you don't know how many parameters you...
n2jesus,
Sorry, but I don't get that error. One thing to try, if you haven't already done so, is to place Option Explicit at the top of your code. This forces you to decalre your variables, and may flag a diferent issue that may effect your object creation. Also, don't forget to Set wshell =...
Voila!
Option Explicit
Dim objReturn
Script.Clear
dict "file", 1, objReturn
Function dict(ByVal file, ByVal state, ByRef objParam)
Dim dict1
Dim z, key, item
z=0
set dict1 = CreateObject("scripting.dictionary")
call dict1.add(file,state)
For Each key In...
ralphtrent,
Here is option 2 tested:
Option Explicit
Dim objReturn
Set objReturn = dict("file", 1)
Function dict(file,state)
Dim dict1
Dim z, key, item
z=0
set dict1 = CreateObject("scripting.dictionary")
call dict1.add(file,state)
For Each key In...
ralphtrent,
There are at least three ways to do this. One is to declare your dictionary object as a global. I tried this and it works:
Option Explicit
Dim dict1
set dict1 = CreateObject("scripting.dictionary")
dict "file", 1
Function dict(file,state)
Dim z, key, item...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.