SubRemoveEmptyTextBoxes()DimSlideObjAsSlideDimShapeObjAsShapeDimShapeIndexAsIntegerForEachSlideObjInActivePresentation.SlidesForShapeIndex = SlideObj.Shapes.CountTo1Step-1SetShapeObj = SlideObj.Shapes(ShapeIndex)IfShapeObj.Type = msoTextBoxThenIfTrim(ShapeObj.TextFrame.TextRange.Text) =""ThenShapeObj...
SubControlProcessor(MyControlAsControl)IfTypeOfMyControlIsCommandButtonThenDebug.Print"You passed in a "& TypeName(MyControl)ElseIfTypeOfMyControlIsCheckBoxThenDebug.Print"You passed in a "& TypeName(MyControl)ElseIfTypeOfMyControlIsTextBoxThenDebug.Print"You passed in a "& TypeName(MyControl)E...
將textBox1 插入點前或含選取文字前的文本貼入 ctext [簡單修改模式]框中,並自動按下「保存編輯」鈕,且在 Chrome 瀏覽器新分頁[簡單修改模式]下開啟下一頁準備編輯文本。(參見下文,快速鍵「Ctrl + + 」處。執行此項時,自動在背後進行該次頁面文本的備份,儲存路徑在 DropBox 的預設安裝路徑的根目錄中,名「...