[RESOLVED] VB newbie needs help

[posto]

hi everyone!thanks for reading my thread hope that u can help me with VB

ok the problem is like this.i have a word document that i would like to edit and save its content by using VB programming tools.th data in the word doc are like this

p01=100
p02=150
p03=200

and so on.so is there anyway for me to edit its value and at the same time save this edited version via VB programming tools that i wanna build?

thanks!

[RobDog888]

Welcome to the Forums.

You are using what version of VB? VB6, VB.NET 2002/2003/2005/Express?

[posto]

oh sorry forgot to mention that

im using vb 6

[RobDog888]

Easiest way then is to record a macro doing your tasks and then stop recording, check the vba macro generated code in the VBA IDE (Alt_F11) and convert it into VB6.

Option explicit
'Add a reference to ms word xx.0 object library
Private sub command1_click()
    dim oApp as word.application
    dim odoc as word.document
    set oapp = new word.application
    set odoc = oapp.documents.open("C:\mydoc.doc")
    'Then convert the macro code and inser here.
    'Should be using the .Find and Replace meth0ds
 
    odoc.save
    odoc.close
    set odoc = nothing
    oapp.quit
    set oapp = nothing
end sub

[posto]

thanks ROb for the reply!really appreciate it.
but since i'm so very new at this (VB that is) so i don't quite understand the way that you proposed (the macro).
the pics below is the way i wanted to do


referring to the figure, i want to edit a text or excel files inside VB programming.i should be able to open the file via VB as in the pics, edit it there and save it back into the folder.i really hope could do it like that but have no idea how to do it.i'm thinking of using OLE but didn't know how.please help!

thanks!

[RobDog888]

The Save button will be like the code example I already posted. the New button will be similar but with this line - set odoc = oapp.documents.add.

[posto]

Option Explicit

Private Sub cmdNew_Click()
OLE1.CreateEmbed "", "Word.Document"
OLE1.DoVerb vbOLEUIActivate
OLE1.SizeMode = 1
With OLE1.object
.ActiveWindow.DisplayVerticalScrollbar = True
.ActiveWindow.DisplayHorizontalScrollbar = True
End With
End Sub
____________________________________________________________
so i have learn to open a new word doc in OLE window.but i want to open a document not create new one.Can you direct me how to do it?
____________________________________________________________
Private Sub mnuSaveAs_Click()
'Display the Save As Dialog Box

dlgCommon.ShowSave 'Display the Save As dialog box
End Sub
Private Sub mnuOpen_Click()
'Display the Open Dialog Box

dlgCommon.ShowOpen 'Display the Open dialog box
End Sub
_____________________________________________________________
referring to common dialog box tutorial, i found out that this command will open the dialog bo but how to use it to open a word document inside the OLE window then using the save as button to save the document after i've finish editing it?

thanks!

[RobDog888]

Heres an example of creating a linked ole object on an existing word document.

Private Sub cmdOpen_Click()
    dlgCommon.ShowOpen
    OLE1.CreateLink dlgCommon.FileName, "Word.Document"
    OLE1.DoVerb vbOLEOpen
End Sub

Once the linked document is linked you can coninue to open it or double click on the ole control to invoke the verb open command.

[posto]

ok i do what you've said but that only lets me to open microsoft word when i click "open".is there any way to open the document inside the OLE frame,(in other words it will not run microsoft word but open the document inside vb itself) the i can edit it inside the OLE window?

thanks!

[RobDog888]

Probably change it to .CreateEmbed

[posto]

change the OLE1.CreateLink to OLE1.CreateEmbed ?

[RobDog888]

Did you try it?

[posto]

yep i did try it but but it said run time error '424'

[RobDog888]

Hmm, try this.

Option Explicit
 
Private Sub Form_Load()
    OLE1.CreateEmbed "D:\Test.doc", "Word.Application"
    OLE1.OLETypeAllowed = vbOLEEither
    OLE1.SizeMode = 0
    OLE1.DisplayType = 0
    OLE1.UpdateOptions = 0
End Sub

[posto]

hmm now its compile error variarble not defined

hey rob how bout opening excel but still like the way i asked you?is it easier?since word doesn't really suit to be a database anyway so how's excel?

thanks!

[RobDog888]

Not sure why you are having these issues. Do you have service pack 6 for VB or VS installed too?

To use Excel just change the class type to "Excel.Application"

OLE1.CreateEmbed "D:\Test.xls", "Excel.Application"

[posto]

okay ill try it first

one more thing do i have to put a OLE (excel) window on the form?

[RobDog888]

Absolutely or else your not using it.

[posto]

hey rob do you know how to browse pics in vb and save it in a database?i know browse using common control but i cant open it in vb.And how do i open a unigraphics drawing file via vb?to automatically run unigraphics of course (unigraphics is a CAD software)

[RobDog888]

Probably would be better to start a new thread on this.

Dont forget to mention which db your using and version etc.

[posto]

ok! thanks for your help rob!