[ omega009 @ 15.10.2009. 13:45 ] @
Imam dokumenat u Word-u. Kako da u SAVE AS automatski unesem naziv iz text box-a na odredjenu lokaciju u My documents?
Kako bi glasio macro koji bi automatski ( startovanjem macro-a, ili shortkey-a ) vrsio snimanje dokumenta pod nazivom (imenom ) koje je u text box-u?
Primer :
startujem macro , macro startuje SAVE AS i u FILE NAME ubacuje naziv iz text box-a .
Hvala unapred
[ timmy @ 15.10.2009. 23:47 ] @
Probaj da u formi iskoristis sledeci kod (recimo da je textbox Text1):

Code:

    ChangeFileOpenDirectory Environ$("USERPROFILE") & "\My Documents"
    ActiveDocument.SaveAs FileName:=Text1.Text


Pozdrav
[ omega009 @ 16.10.2009. 08:43 ] @
Mislila sam na textbox iz Drawing toolbar-a!
[ timmy @ 16.10.2009. 11:23 ] @
Onda umesto textbox1.text koristi

Code:

ActiveDocument.Shapes("Text Box 1").TextFrame.TextRange.Text


Naravno moras da znas kako se zove tvoj TextBox. Da ga identifikujes probaj sledece:

1. Selektuj TextBox
2. Pritisni Alt+F11
3. Pritisni Ctrl+G (da otvoris Immediate prozor)
4. Otkucaj

Code:
? ActiveWindow.Selection.ShapeRange.Name


Pozdrav
[ omega009 @ 21.10.2009. 11:10 ] @
Timmy, napravila sam kako si rekao; ubacila sam code:

Code:

Sub save_as()
    ChangeFileOpenDirectory Environ$("USERPROFILE") & "\My Documents"
    ActiveDocument.Shapes("Text Box 1").TextFrame.TextRange.Text
End Sub

i u Immediate Window:

Code:

? ActiveWindow.Selection.ShapeRange.Name

... i Message Box mi javlja error:
Compile error:
Invalid Use of Property

Gde sam pogresila?

Hvala i pozdrav