¹ØÓÚvbÉú³ÉwordµÄÎÊÌ⣬¸÷λ´óÏÀ°ï°ïæ - VB / »ù´¡Àà
×î½ü¸Õ½Ó´¥vb£¬ÓÃvbдÁËÒ»¸ö¶«¶«£¬ÊÇÓÃvbÉú³ÉÒ»¸öwordÎĵµ£¬ÏÂÁËÒ»¸öÀý×Ó£¬¿ÉÊÇ°ÑÀý×ӵĴúÂëcopyµ½ÎÒ×Ô¼º½¨µÄ¹¤³ÌÖоͱ¨user-defined type not defined£¬
¸÷λ´óÏÀÕâÊÇÔõô»ØÊÂÄØ£¿ÄѵÀÔÚн¨µÄ¹¤³ÌÖл¹ÒªÌí¼Ó¿Ø¼þÖ®ÀàµÄ¶«Î÷Âð?vbÐÂÊÖ£¬Çë²»Òª¼ûЦ
user-defined type not defined----×Ô¶¨ÒåÀàÐÍû¶¨Òå.±äÁ¿ÃûʹÓÃÎÊÌâ
ÒýÓÃwordÁËÂð£¿
½«³ö´íµÄ´úÂëÌù³öÀ´°¡
Õæ½Ó¿¼µ±È»²»ÄÜÓã¬ÒªÔÚ¹¤³Ì£¬ÒýÓã¬ÀïÌíÉÏmicrosoft word libary
ningweidongÄã˵µÄÄǸömicrosoft word libaryÎҵĻú×ÓÉÏÔõôÕÒ²»µ½£¿È«³ÆÊÇÕâ¸öÂ𣿻¹ÊÇmicrosoft word Îĵµ£¿
¹¤³Ì--ÒýÓÃ
Microsoft Word 11.0 Object Libraryy -----office 2003
Microsoft Word 12.0 Object Libraryy -----offece 2007
VB code:
Option Explicit
Dim wd As New Word.Application
Dim wd0 As New Word.Application
Dim wddoc As Word.ActiveDocument
Dim wdpg As Word.PageSetup
Dim wshp As Word.Shape
Dim px As Word.Paragraph
Private Sub Command1_Click()
wd0.Documents.Add
With wd0
.Selection.TypeText Text:="ÌâÄ¿"
.Selection.HomeKey Unit:=wdLine, Extend:=wdExtend
.Selection.Font.Name = "ËÎÌå"
.Selection.Font.Size = 18
.Selection.Font.Bold = wdToggle
.Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
End With
wd.Documents.Add
Set wddoc = wd.ActiveDocument
Set wdpg = wddoc.PageSetup
wdpg.PaperSize = wdPaperA4 '7 A3=6
With wddo
Ïà¹ØÎÊ´ð£º
ÏÖÔÚÎÒÏë¸ù¾ÝtreeviewÉÏÿ¸ö½ÚµãµÄȨÏÞ£¬Ã»ÓÐȨÏ޵Ľڵ㲻Äܱ»Ñ¡ÖУ¬¶øÇҳɻÒÉ«£¬ÔõôʵÏÖ£¬ÔÚÏߵȡ£¡£¡£
Õâ¸ö£¿¡£¡£¡£
òËÆû·¨¡£
ÊÔÊÔÄܲ»ÄܸÄijЩnodeµÄÑÕÉ«£¬¼Ç¼ÏÂÉϴεÄnodeclickÀïµÄnode¡£
Ï´εã»÷µÄÈç¹ ......
vbÖÐ ÏÖÔÚÎÒÒª°ÑÊý¾Ý¿âÀï´æ´¢µÄÒ»¸ö¸½¼þµÄÄÚÈÝÌæ»»ÁË£¬Ôõô×ö£¬Ö»ÊÇÌæ»»ÎÒÖ¸¶¨µÄλÖ㬲»ÊÇÈ«²¿Ìæ»»
Ç뽫ÎÊÌâ˵Ã÷°×£¬´æ´¢×ֶθñʽ£¬Èç¹ûÊÇBinary¸ñʽµÄ±È½ÏÂé·³£¬Èç¹ûÊÇ×Ö´®£¬Ö±½ÓÌæ»»¡£×îºÃ²»Òª½øÐÐÖ¸¶¨Î»ÖÃÌæ»»¡ ......
ÏÖÔÚÓиöxmlÎļþÊÇ<?xml version="1.0"?>
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xm ......
Çó¸övbÖеÄsqlÓï¾äµÄд·¨£¬´ÎsqlÓï¾äµÄÓ÷¨ÊÇ·ÖÒ³³ÌÐò
ÎÒдµÄÈçÏ£ºÆäÖÐAÊÇÓÃÀ´½ÓÊÕÿҳÏÔʾµÄ¼Ç¼µÄÌõÊý£¬BÊÇÓÃÀ´½ÓÊÕÏÔʾµÄµ±Ç°µÄÒ³Ãæ.
sqltext="select top A * from log where id not in(select top ( ......