¡¾Ñ¡Ïî¡¿¡ª¡¾´òÓ¡¡¿ÖеĴòÓ¡Òþ²ØÎÄ×ÖÓëÌ×´òÒþ²ØÎÄ×ÖÓкÎÇø±ð£¿
´ð£ºwps office 2005µÄwpsÎÄ×ÖÄ£¿éÖУ¬Ôڲ˵¥¡¾Ñ¡Ïî¡¿¡ª¡¾´òÓ¡¡¿ÖеĴòÓ¡Òþ²ØÎÄ×ֻὫÒþ²ØÎÄ×Ö°´ÕÕÕý³£ÎÄ×Ö´òÓ¡³öÀ´£¬¶øÌ×´òÒþ²ØÎÄ×ֻ᲻´òÓ¡Òþ²ØÎÄ×Ö£¬µ«½«ÆäËùÕ¼×Ö·ûµÄλÖÃÁô³öÀ´¡£
ÎÒµÄwordÎĵµÔÚwpsÎÄ×ÖÖдò¿ªºó±êµã·ûºÅ³öÏÖÔÚÐÐÊ×Ôõô°ì£¿
´ð£ºÇëÔÚ¡¾¹¤¾ß¡¿-¡¾Ñ¡Ïî¡¿-¡¾ÖÐÎÄ°æʽ¡¿-¡¾Ê×λ×Ö·û¡¿-¡¾ºóÖñêµã¡¿ÖÐÊÖ¹¤Ìí¼Ó³öÏÖÔÚÐÐÊ׵ıêµã·ûºÅ¡£
¿ÉÒÔÓÃwps´ò¿ªMS officeÎļþÂð?
´ð£ºÓû§¿ÉÒÔʹÓÃwps office 2005µÄÈý¸öÄ£¿é:wpsÎÄ×Ö¡¢wps±í¸ñ¡¢wpsÑÝʾֱ½Ó´ò¿ª¡¢±à¼Óë±£´æÏà¶ÔÓ¦MS officeµÄword¡¢Excel¡¢PowerPointÎļþ¡£
ÈçºÎ½«wpsÎļþ±£´æΪMS officeÎļþ¸ñʽ?
´ð£ºÑ¡Ôñн¨Îļþ£¬Ä¬Èϱ£´æΪ*.doc *.xls *.pptµÈMS officeµÄÎļþÀàÐÍ¡£
wps office2005µÄ¶þ´Î¿ª·¢ºÍ΢ÈíµÄoffice¶þ´Î¿ª·¢ÓÐʲôÒìͬ?
´ð£ºwps office2005µÄ¶þ´Î¿ª·¢½Ó¿ÚÌåϵºÍ΢ÈíofficeµÄ¶þ´Î¿ª·¢½Ó¿ÚÌåϵ»ù±¾±£³ÖÒ»Ö¡£°üÀ¨£º¶ÔÏóÊ÷£¬¼´¶ÔÏóµÄ×éÖ¯¹¹³É¡¢¸÷¶ÔÏó´ú±íµÄº¬ÒåºÍ΢Èíoffice¶ÔÏó¾ù±£³ÖÒ»Ö£»½Ó¿Úº¯Êý£¬¼´¸÷¶ÔÏóµÄ·½·¨ÊôÐÔµÄÃû³ÆºÍº¬Òå¾ùÓë΢Èíoffice±£³ÖÒ»Ö¡£
ÔÓеÄÓëwps office 2003»òÕßwps office 2002½áºÏµÄµÚÈý·½³ÌÐò£¬ÐèÒª×öʲô¸Ä¶¯²ÅÄÜÕý³£ºÍwps office2005½áºÏÔËÐУ¿
´ð£ºÊ¹ÓÃVB±àдµÄ³ÌÐò£¬ÐèÒª½«ÒýÓÿâ¸ÄΪÉý¼¶ºóµÄÀàÐÍ¿â¡£²¢½«¶þÕß½Ó¿ÚÓвî±ðµÄ²¿·Ö½øÐÐÐ޸ģ¬È»ºóÖØбàÒ롣ʹÓÃVC±àдµÄ²¢Óõ½CLSIDµÄ³ÌÐò£¬ÐèÒªÖØдÕâЩCLSID¡£²¢½«¶þÕß½Ó¿ÚÓвî±ðµÄ²¿·Ö½øÐÐÐ޸ģ¬È»ºóÖØбàÒë¡£
ÈçºÎÆô¶¯wpsÎÄ×ÖÄ£¿é£¿£¨ÒÔVBΪÀý£©
´ð£ºÈç¹ûwpsÎÄ×ÖÄ£¿éÒѾÆô¶¯£¬¿ÉÒÔʹÓÃGetObject »ñµÃÕâ¸ö½ø³Ì£º Set wpsApp = GetObject(, "wps.Application")wpsApp.Visible = True ¡¡¡¡Èç¹ûwpsÉÐδÆô¶¯£¬¿ÉÒÔʹÓÃCreateObject À´²úÉúÒ»¸öнø³Ì£º Set wpsApp = CreateObject("wps.Application")wpsApp.Visible = True
ÈçºÎÔÚµ±Ç°ÎĵµÖÐÌí¼ÓÒ»¸ö±í¸ñ£¿
´ð£ºÏÂÃæµÄÀý×Ó»áÔÚÎÄÕ¿ªÍ·Ìí¼ÓÒ»¸ö4ÐÐ4Áеıí¸ñ£¬²¢ÔÚ×îºóÒ»¸öµ¥Ôª¸ñÀïдÉÏ"ÐèҪдЩʲô" ×ÖÑù
Dim rngTbl As wps.Range
Dim wpsTable As wps.Table
Set r = ActiveDocument.Range(0, 0)
Set wpsTable = ActiveDocument.Tables.Add(r, 4, 4)
wpsTable.cell(4, 4).Range.Text = "ÐèҪдЩʲô"
ÈçºÎÔÚwpsÖÐÌí¼Ó²Ëµ¥£¿
´ð£ºÏÂÃæµÄÀý×Ó»áÔÚ¡°Îļþ¡±²Ëµ¥ÌõÉÏÔö¼ÓÒ»Ï³öʽ²Ëµ¥¡°ÆäËû¡±£¬²¢ÔÚµ¯³öʽ²Ëµ¥ÉÏÔö¼ÓÒ»Ïî¡£
sub test()
Set Bar = Application.CommandBars("Îļþ")
ButtonID = Bar.GetReserveCommandID()
Set NewPopMenu = Bar.Controls.Add(wpsControlPopup, Before:=7)
NewPopMenu.Caption = "ÆäËû"
Set NewSubMenu=Application.CommandBars(NewPopMenu.Caption).Controls.Add(wpsControlButton,Id:=ButtonID)
NewSubMenu.Caption = "ÕâÊÇÐÂÔöµÄ²Ëµ¥Ïî"
NewSubMenu.OnAction = "OnNewMenu"
NewSubMenu.CommandObject = Me
End Sub
Sub OnNewMenu(hWnd As Long)
MsgBox "New Menu Add OK!"
End Sub