設為首頁收藏本站Access中國

Office中國論壇/Access中國論壇

 找回密碼
 注冊

QQ登錄

只需一步,快速開始

返回列表 發(fā)新帖
查看: 3261|回復: 0
打印 上一主題 下一主題

【OneKeyTools源代碼分享6】刪除備注

[復制鏈接]
跳轉(zhuǎn)到指定樓層
1#
發(fā)表于 2016-6-16 09:50:17 | 只看該作者 回帖獎勵 |倒序瀏覽 |閱讀模式
本帖最后由 只為設計 于 2016-6-16 12:49 編輯
  1. PowerPoint.Selection sel = app.ActiveWindow.Selection;
  2.             if (sel.Type == PowerPoint.PpSelectionType.ppSelectionSlides)
  3.             {
  4.                 foreach (PowerPoint.Slide item in sel.SlideRange)
  5.                 {
  6.                     for (int i = 1; i <= sel.SlideRange.Count; i++)
  7.                     {
  8.                         int count = item.NotesPage.Count;
  9.                         for (int j = 1; j <= count; j++)
  10.                         {
  11.                             if (item.NotesPage.Shapes.Placeholders[2].TextFrame.TextRange.Text != "")
  12.                             {
  13.                                 item.NotesPage.Shapes.Placeholders[2].TextFrame.TextRange.Text = "";
  14.                             }
  15.                         }
  16.                     }
  17.                 }
  18.             }
  19.             else
  20.             {
  21.                 MessageBox.Show("請先選中要刪除備注的幻燈片頁面");
  22.             }
復制代碼


本帖被以下淘專輯推薦:

分享到:  QQ好友和群QQ好友和群 QQ空間QQ空間 騰訊微博騰訊微博 騰訊朋友騰訊朋友
收藏收藏 分享分享 分享淘帖1 訂閱訂閱
您需要登錄后才可以回帖 登錄 | 注冊

本版積分規(guī)則

QQ|站長郵箱|小黑屋|手機版|Office中國/Access中國 ( 粵ICP備10043721號-1 )  

GMT+8, 2025-7-17 05:49 , Processed in 0.105098 second(s), 26 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回復 返回頂部 返回列表