|
|
does n e 1 know the code for saving a file to a place
|
|
|
|
|
Here's one way...
Sub SaveDocToFile()
' Replace "Any.Doc" with your document name
' type with or without path you want to save it to
Dim strSaveAs As String
Dim strMsg As String
strSaveAs = "Any.Doc"
strMsg = "Choose Yes to overwrite the existing document " & vbCrLf _
& "'" & strSaveAs & "'" & " or No to save as a new document"
If Dir(strSaveAs & "*") = "" Then
ActiveDocument.SaveAs FileName:=strSaveAs
Else
Select Case MsgBox(strMsg, vbYesNoCancel + vbExclamation)
Case vbYes
ActiveDocument.SaveAs FileName:=strSaveAs
Case vbNo
With Dialogs(wdDialogFileSaveAs)
.Name = ""
.Show
End With
Case Else
End Select
End If
End Sub
|
|
|
|
|
I search the way to upload a file from a client to a server via the INet control but NOT WITH FTP MODE ONLY HTTP!
Thank YOU
|
|
|
|
|
Can I change the font of the Menu in MDIForms.
|
|
|
|
|
That's possible
Considderd to be the worlds fastest knoppenbonker.
10 Months of working experience with the worlds fastest copie paster(about 2000 lines a minute).
And experience with the one and only NewEra Guru. And one year experience with the VB guru
|
|
|
|
|
|
To the best of my knowledge this cannot be done. The font set in the Menu item, in display properties is used by the system.
|
|
|
|
|
Does anyone know how to open a *.doc file with launching the MS WORD?
|
|
|
|
|
Dim word As New word.Application
word.Visible = True
word.Documents.Open filename:=File
|
|
|
|
|
Dim word As New word.Application
Set objWrd = CreateObject("word.application")
word.Visible = True
word.Documents.Open filename:=File
It's better like this 
|
|
|
|
|
Is it possible to call an Extension DLL from VB as I've a satellite orbit prediction DLL that exports a C++ class only. The DLL will need to be integrated with Matlab eventually but I'm looking into this for a colleague and don't have Matlab on my PC, just Visual Studio.
eg.
#define DLLEXPORT __declspec(dllexport)
class DLLEXPORT CSGP4_SDP4
{
...member functions here.
}
Any suggestions would be appreciated.
Thanks
Kaitain
|
|
|
|
|
Hi,
Please help me in derefernce a variable in VisualBasic or VBScript.
|
|
|
|
|
It's not directly possible to dereference a variable in Visual Basic, but you can do a workaround with the help of the api-function "rtlmovememory" (copymemory). This function makes it possible to copy the data of the variable when only having its adress (varptr-function in VB; some api-functions only return pointers to datastructs).
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" _
(hpvDest As Any, ByVal hpvSource As Long, ByVal cbCopy As Long)
This function copies the value of a variable into another variable of the same size (hpvDest). The second parameter takes the adress of the sourcevariable. The third parameter takes the size of the variable.
I think there is an example of this technique in the Knowledge Base...
"HOWTO: Call NetUserGetInfo API from Visual Basic" Article ID: Q151774
|
|
|
|
|
Does any one know the code on how to save the date and time to a txt file when commanded??
|
|
|
|
|
Here is a list of commands/functions that you might need: NOW, OPEN, PRINT, CLOSE.
|
|
|
|
|
I have a requirement to detect when an application is launched and to determine if the application was launched by an existing application.
For example, when you create a new mail message in Outlook, Outlook actually launches a new application to allow you to edit & send the message. I can detect that a new application has been launched but there doesn't appear to be any way of determing that the application was launched by Outlook.
Any suggestions?
|
|
|
|
|
how to configure the printer for the developed application as well as
other normal print outs
sudhakar
|
|
|
|
|
I would like rename a file to the current date.Any idea on how to do this?
The file is text file.
Thank You,
|
|
|
|
|
The following code uses the Scripting.FileSystemObject to rename the file specified in strFilePath to the format out mm-dd-yyyy.txt . Ex. for today, the file would be named
04-23-2001.txt
Hope this helps
Dim strFilePath As String
Dim strNewFileName As String
Dim fso As FileSystemObject
Dim file As File
strFilePath = "c:\myText.txt"
strNewFileName = Format(Now(), "mm-dd-yyyy") & ".txt"
Set fso = New FileSystemObject
Set file = fso.GetFile(strFilePath)
file.Name = strNewFileName
Set file = Nothing
Set fso = Nothing
Jason Gerard
MCSD, MCSE
Technology Point International, Inc.
|
|
|
|
|
I need that in VBScript.I think Vbscript doesn't support file.name
I am not sure about this.Please let me know.
|
|
|
|
|
Hi,
I need to write a function which takes special characters(ascii characters) eg: sm,Tm and convert them to HTML String.
I need to use VB to write this function.
Please help me with this.
|
|
|
|
|
I would use the split command to find the text that you are trying to replace. I'm sorry, but if I could see a few of your lines from the file I think that I could start the function for you.
I hope that you have found away to do this by now.
|
|
|
|
|
hloooooooooooooooo
do you understand anythings:eek
|
|
|
|
|
This may be a dumb question:
I have the variable Port of type integer declared in a module like this:
Dim Port as Integer
(in general declarations)
I then have it declared in each of my forms like this:
Dim Port as Integer
(in general declarations)
How do I pass the value of Port in my main form (frmMain) to another form called from frmMain?
David.
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
