我的技术集（My technical set）.docVIP

我的技术集（My technical set） Get the current file path Options.DefaultFilePath (wdCurrentFolderPath) Accidentally, delete the wrong, to empty the recycle bin, do how? As long as the three step, you can recover your deleted and empty the recycle bin. Step: 1, click start, run, and then enter the regedit (open registry) 2, expand: HEKEY - LOCAL - MACHIME/SOFTWARE/microsoft/WINDOWS/ CURRENTVERSION/EXPLORER/DESKTOP/NAMESPACE in the left blank and click the new That choice: primary key, named it 645FFO40 - 5081 - 101B - 9F08 - 00AA002F954E The right of the default primary key value is set to the recycle bin, and then exit the registry. OK. 3, to restart the computer. As long as do not run disk finishing machine. System integrity. When any file can be returned. Only accept text input Chinese characters Select Case KeyAscii Case Is 0, H20, H8 Case Else KeyAscii = 0 End Select The operation of PPT Sub (CopySelectFormula2PPT) Dim PPTapp As Object, myPPT As Object, mySlide As Object Dim x As Object Dim y As Object Dim Z As Object Selection.CopyAsPicture Set PPTapp = CreateObject (PowerPoint.Application) PPTapp.Visible = True Set myPPT = PPTapp.Presentations.Add (msoTrue) Set mySlide = myPPT.slides.Add (1, 12) With mySlide Set x =.Shapes.PasteSpecial (2) X.Left = 100: x.Top = 200 Set y = x.Ungroup Set z = y.Ungroup Z (1).Delete End With PPTapp.Activate Set z = Nothing Set y = Nothing Set x = Nothing Set mySlide = Nothing Set myPPT = Nothing Set PPTapp = Nothing End Sub Private Declare Function BitBlt Lib gdi32 (ByVal hDestDC As Long ByVal X, As Long, ByVal Y As Long ByVal nWidth, As Long, ByVal nHeight As Long ByVal hSrcDC, As Long, ByVal xSrc As Long ByVal ySrc, As Long, ByVal dwRop As Long As Long) Private Declare Function GetDC Lib user32 (ByVal hWnd As Long As Long) Private Declare Function GdiplusStartup Lib GDIPlus (token As Long, inputbuf As GdiplusStartupInput, ByVal outputbuf As Long As Long) Private Declare Function GdiplusShutdown Lib GDIPlus (ByVal token As Long As Lon