- , , :
, ;
, ,
, , . , , :
;
, .
.
, : , , .
, , . .
, , 5.
5. .
, , , , (.6).
. 6 ջ
, , . .
ջ VBA.
, MS Office Windows XP,7,8.1 MS Excel MS Word.
, , , .
1. . . / . . . . .: "-", 2001 .
2. , . . . .: , 2008.
3. : . . . . . "-". 2004 .
|
|
|
4. , . . . .: " ", 2004 .
5. . . . .: "-", 2006 .
6. , . . . .: , 2004.
Private objWord As Word.Application
Private Sub UserForm_Initialize()
Dim File As String
File = ThisWorkbook.Path & "\ .doc"
Set objWord = CreateObject("Word.Application")
With objWord
.Visible = True
.Documents.Open Filename:=File
End With
End Sub
Private Sub CommandButton1_Click()
Dim A As String
Dim B As String
Dim C As String
Dim D As String
Dim E As String
Dim F As Double
Dim G As Double
A = CStr(TextBox1.Text)
B = CStr(TextBox2.Text)
C = CStr(TextBox3.Text)
D = CStr(TextBox4.Text)
E = CStr(TextBox5.Text)
F = CDbl(TextBox6.Text)
G = CDbl(TextBox7.Text)
With objWord.ActiveDocument
.TextBox1.Text = A
.TextBox11.Text = B
.TextBox12.Text = C
.TextBox13.Text = D
.TextBox14.Text = E
.TextBox15.Text = F
.TextBox16.Text = G
.TextBox17.Text = F + G
End With
End Sub
Private Sub CommandButton2_Click()
objWord.ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges
objWord.Application.Quit
Set objWord = Nothing
End Sub
