????? ????? Microsoft Word ???????? Visual Basic ?????? ????? ????

?????? ????????? ?????? ?????????
???? ???????: 313193 - ??? ???????? ???? ????? ????? ??? ???????.
????? ???? | ?? ????

??????

???? ??? ??????? ???? ????? ??? ????? ????? ????? ???? ?? Word ???????? ??????? ?? Visual Basic.

??? ?????

???? ????? ???????? ???????? ?? ??? ??????? ????? ?????? ??? ???:
  • ????? ??????? ?? ???? ????????.
  • ?????? ?? ????? ???????? ???????? ??? ?????.
  • ????? ????? ??????? ??????? ????? ??????? ?????????.
  • ????? ?????.
?????? ????? Word ???? ???????? ??????? ?? Visual Basic ???? ??????? ???????:
  1. ?? Visual Basic? ????? ????? EXE ????? ????. ??? ????? Form1 ???? ???????.
  2. ?? ??????? ??????? ???? "?????" ???? ??? ??? ???????? ??????? ?? ???? ??? ?????:
    • ?????? ??? Office Word 2007 ???? ??? Microsoft Word ????? ?????? 12.0.
    • ?????? ??? Word 2003? ???? ??? Microsoft Word ????? ?????? 11.0.
    • ?????? ??? Word 2002? ???? ??? Microsoft Word 10.0 ????? ??????.
    • ?? Word 2000 ???? ??? Microsoft Word 9.0 ????? ??????.
  3. ????? ???? ???? CommandButton ??? Form1.
  4. ?? ?????? ???????? ???????? ??????? ??? ????? Command1:
        Dim oWord As Word.Application
        Dim oDoc As Word.Document
        Dim oTable As Word.Table
        Dim oPara1 As Word.Paragraph, oPara2 As Word.Paragraph
        Dim oPara3 As Word.Paragraph, oPara4 As Word.Paragraph
        Dim oRng As Word.Range
        Dim oShape As Word.InlineShape
        Dim oChart As Object
        Dim Pos as Double
    
        'Start Word and open the document template.
        Set oWord = CreateObject("Word.Application")
        oWord.Visible = True
        Set oDoc = oWord.Documents.Add
        
        'Insert a paragraph at the beginning of the document.
        Set oPara1 = oDoc.Content.Paragraphs.Add
        oPara1.Range.Text = "Heading 1"
        oPara1.Range.Font.Bold = True
        oPara1.Format.SpaceAfter = 24    '24 pt spacing after paragraph.
        oPara1.Range.InsertParagraphAfter
        
        'Insert a paragraph at the end of the document.
        '** \endofdoc is a predefined bookmark.
        Set oPara2 = oDoc.Content.Paragraphs.Add(oDoc.Bookmarks("\endofdoc").Range)
        oPara2.Range.Text = "Heading 2"
        oPara2.Format.SpaceAfter = 6
        oPara2.Range.InsertParagraphAfter
        
        'Insert another paragraph.
        Set oPara3 = oDoc.Content.Paragraphs.Add(oDoc.Bookmarks("\endofdoc").Range)
        oPara3.Range.Text = "This is a sentence of normal text. Now here is a table:"
        oPara3.Range.Font.Bold = False
        oPara3.Format.SpaceAfter = 24
        oPara3.Range.InsertParagraphAfter
        
        'Insert a 3 x 5 table, fill it with data and make the first row
        'bold,italic.
        Dim r As Integer, c As Integer
        Set oTable = oDoc.Tables.Add(oDoc.Bookmarks("\endofdoc").Range, 3, 5)
        oTable.Range.ParagraphFormat.SpaceAfter = 6
        For r = 1 To 3
            For c = 1 To 5
                oTable.Cell(r, c).Range.Text = "r" & r & "c" & c
            Next
        Next
        oTable.Rows(1).Range.Font.Bold = True
        oTable.Rows(1).Range.Font.Italic = True
        
        'Add some text after the table.
        'oTable.Range.InsertParagraphAfter
        Set oPara4 = oDoc.Content.Paragraphs.Add(oDoc.Bookmarks("\endofdoc").Range)
        oPara4.Range.InsertParagraphBefore
        oPara4.Range.Text = "And here's another table:"
        oPara4.Format.SpaceAfter = 24
        oPara4.Range.InsertParagraphAfter
        
        'Insert a 5 x 2 table, fill it with data and change the column widths.
        Set oTable = oDoc.Tables.Add(oDoc.Bookmarks("\endofdoc").Range, 5, 2)
        oTable.Range.ParagraphFormat.SpaceAfter = 6
        For r = 1 To 5
            For c = 1 To 2
                oTable.Cell(r, c).Range.Text = "r" & r & "c" & c
            Next
        Next
        oTable.Columns(1).Width = oWord.InchesToPoints(2)   'Change width of columns 1 & 2.
        oTable.Columns(2).Width = oWord.InchesToPoints(3)
        
        'Keep inserting text. When you get to 7 inches from top of the
        'document, insert a hard page break.
        Pos = oWord.InchesToPoints(7)
        oDoc.Bookmarks("\endofdoc").Range.InsertParagraphAfter
        Do
            Set oRng = oDoc.Bookmarks("\endofdoc").Range
            oRng.ParagraphFormat.SpaceAfter = 6
            oRng.InsertAfter "A line of text"
            oRng.InsertParagraphAfter
        Loop While Pos >= oRng.Information(wdVerticalPositionRelativeToPage)
        oRng.Collapse (wdCollapseEnd)
        oRng.InsertBreak wdPageBreak
        oRng.Collapse wdCollapseEnd
        oRng.InsertAfter "We're now on page 2. Here's my chart:"
        oRng.InsertParagraphAfter
        
        'Insert a chart and change the chart.
        Set oShape = oDoc.Bookmarks("\endofdoc").Range.InlineShapes.AddOLEObject( _
            ClassType:="MSGraph.Chart.8", FileName _
            :="", LinkToFile:=False, DisplayAsIcon:=False)
        Set oChart = oShape.OLEFormat.Object
        oChart.charttype = 4 'xlLine = 4
        oChart.Application.Update
        oChart.Application.Quit
        '... If desired, you can proceed from here using the Microsoft Graph 
        'Object model on the oChart object to make additional changes to the
        'chart.
        oShape.Width = oWord.InchesToPoints(6.25)
        oShape.Height = oWord.InchesToPoints(3.57)
        
        'Add text after the chart.
        Set oRng = oDoc.Bookmarks("\endofdoc").Range
        oRng.InsertParagraphAfter
        oRng.InsertAfter "THE END."
    
        'All done. Unload this form.
        Unload Me
    					
  5. ???? F5 ????? ???????? ?? ???? ??? Command1.
??? ?????? ????????? ???????? ??? ??????? ???? ?? ??????? ??. ????? ??????? ??? ?????? ?? ??????? ??????? ?????? ?????.

??????? ????

??? ??? ?????? ????? ?????? ????????? ???????? ?? ????? ????, ???? ?? ?????? ?? ????? ??????? ???????? ????? ???? ????? ??? ???? ??????? ??????. ???????? ???? ?? ???? ??????? Word ??????? ????? ?????? ??? ????? ????? ?? ?? ???:
  • ???? ?? ???? ???? ???? ???? ?? ????? ????? ???????? ???? ?????????.
  • ????? ????? ????????? ?? ??? ???.
???????? ???? ???? ???? ??? ???? ??????? ??????? ??????? ???? ???? ??????? ??? ??? ????? ??????? ??? ??? ????????. ???????? "??????? ????????" ? ????? ????? ????? ???? ????? ??? ?????? ?? ??? ???????:
oWord.Documents.Add "<Path to your template>\MyTemplate.dot"
				
?? ?????? ????? ?? ???? ????? ???????? ???????? ???? ??????? ????? ?? ???? ?????? ????? ?? ????? ?? ???? ???? ?? ???????? ??? ???:
oDoc.Bookmarks("MyBookmark").Range.Text = "Some Text Here"
				
???? ??? ??? ??????? ???? ?? ??? ????? ????? ?????? ????? ????? ??????? ???? ???? ?? ????? ??? ??????? ??? ???:
oDoc.Bookmarks("MyBookmark").Range.Style = "MyStyle"
				
- ?? -
oWord.Selection.Style = "MyStyle"
				

?????

?????? ??? ??????? ??????? ???? ??? ???? ????????? ????????? ??????? ?? "????? ??????? ?? Microsoft:
220607??? ???? Microsoft Word ????? ??? ????????? ?? Visual Basic
285332??? ?????? Word 2002 ?? Visual Basic ?????? ??? ?????????
285333INFO: ??? Word 2002 ??? ????????? ??????? ??? ??????
????? ?? ?????????? ???? ????? ??? Network (MSDN) ?????? Microsoft ???????:
????? Microsoft Office ?? Visual Studio
http://msdn2.microsoft.com/en-us/library/aa188489(office.10).aspx
(c) ??? ???? Microsoft ???? ???? ?????. ????????? ??? Lori B. Turner ? Microsoft Corporation.

???????

???? ???????: 313193 - ????? ??? ??????: 28/???? ?????/1428 - ??????: 6.1
????? ???
  • Microsoft Visual Basic 6.0 Professional Edition
  • Microsoft Office Word 2007
  • Microsoft Office Word 2003
  • Microsoft Word 2002 Standard Edition
  • Microsoft Word 2000 Standard Edition
????? ??????: 
kbmt kbexpertiseinter kbautomation kbhowtomaster KB313193 KbMtar
????? ????
???: ??? ????? ??? ?????? ???????? ?????? ????? ???? ????? ?????????? ????? ?? ????????? ?????? ????. ???? ???? ?????????? ???? ?? ???????? ???????? ?????? ????????? ????? ????????? ???????? ????? ???????? ?????? ?? ?????? ??? ?? ???????? ???????? ?? ????? ??????? ?????? ??? ??????? ?????? ??. ?????? ?? ???? ??? ??????? ???????? ????? ?? ???? ????? ?????? ??? ????? ??? ????? ??????? ?? ????? ?? ?????? ??? ??? ??????? ??????? ?? ????? ????? ????? ????? ?????. ?? ????? ???? ?????????? ??????? ??? ????? ?? ??????? ?? ????? ?????? ?? ??? ????? ?? ????? ??????? ?? ???????? ?? ??? ???????. ???? ???? ?????????? ???????? ??? ????? ?????? ??????? ??????
???? ??? ????? ??????? ?????? ??????????313193

????? ???????

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com