Add Control Add Control Add Control Calendar Private

��� Add Control ���

��� Add Control ���� Add Control Calendar ���������������� Private Sub Calendar 1_Click() Range("A 1"). Select Range("A 1"). Value = Me. Calendar 1. Value Range("A 1"). Number. Format = "dd mmmm yyyy" End Sub

����������� MS Word Dim ���� Object As New Word. Application n ������ Word ������ Method “Add” ������ Object Document ���� Object. Documents. Add n �������� File ���� Object. Active. Document. Save. As Filename: = ����� n

���� MSWORD. OLB n ����� Tools > References…

n ����� Browse…> C: Program FilesMicrosoft OfficeOFFICE 11MSWORD. OLB

������� MS Word ��������� MS Excel Sub exportto. Word() Dim wrdobject As New Word. Application total. Row = Worksheets(“������ "). Cells(1, 1). End(xl. Down). Row Col. BHead = Cells(1, "B") Col. CHead = Cells(1, "C") Col. DHead = Cells(1, "D") For i = 2 To total. Row factory = Cells(i, "A") Resource. B = Cells(i, "B") Resource. C = Cells(i, "C") Resource. D = Cells(i, "D") now. Date = Format(Date, "dd mmmm yyyy") wrdobject. Documents. Add With wrdobject With. Selection. Font. Name = "Cordia New". Font. Size = 20. Style = "Normal". Paragraph. Format. Alignment = wd. Align. Paragraph. Right. Typetext Text: =“ ������ " & now. Date. Type. Paragraph. Format. Alignment = wd. Align. Paragraph. Left. Typetext Text: =“ ��� " & vb. Tab & “ ����� " & factory. Type. Paragraph. Format. Alignment = wd. Align. Paragraph. Left. Typetext Text: =“ ��������������� " & factory & " ������������ ". Type. Paragraph. Typetext Text: =Col. BHead & vb. Tab & “ ¨����� " & vb. Tab & Resource. B & “����� ". Type. Paragraph. Typetext Text: =Col. CHead & vb. Tab & “ ����� " & vb. Tab & Resource. C & “ ����� ". Type. Paragraph. Typetext Text: =Col. DHead & vb. Tab & “ ����� " & vb. Tab & Resource. D & “ ����� ". Type. Paragraph. Format. Alignment = wd. Align. Paragraph. Right. Type. Paragraph. Typetext Text: =“��������� " End With. Active. Document. Save. As Filename: =This. Workbook. Path & "" & factory & ". doc". Visible = True End With Next i End Sub