Let the Office can identify the text in the document If you want this program to run, you want to add an Excel's reference, only Excel has this function SUB Speakit () SET X = New Excel.Application x.Speech.Speak (activeWindow.Seeection) SET X = nothingend sub
Let PPT can randomly. Slides A Slides collection representing all slides in the specified presentation. Read only.
Sub randomlyplay () DIM NUM AS INTEGER RANDOMIZE DIM I AS INTEGER N = ActivePresentation.slides.count - 1 i = int (n * rnd 1) 'msgbox i activeWindow.View.gotoslide i end SUB
'Sub INSERTTILE () RANGE ("a1"). Selectivecell.ntirerow.select selection.copy activecell.offset (2, 0) .range ("a1"). Entireow.select do while not activecell.text = "" Selection .Insert Shift: = Xldown Activecell.ntirelow.select Selection.copy Activecell.offset (2, 0) .Range ("A1"). EntreamOw.select
LOOP Application.cutcopyMode = false '2?' | Óú ??? d? Ò? '??? £ ê? End Sub
