有n張一樣的PPT，都有一段n行的文本。要在第n張上面讓第n行文本加粗、高亮、加大字型大小(詳細見說明)？

01-25

有n張一樣的PPT，都有一段n行的相同文本。要在第n張上面讓第n行文本加粗、高亮、加大字型大小、陰影，其他行無特殊格式。有沒有優雅的作法？
我的作法是先改第一行，複製n-1張PPT，然後用格式刷，一張一張地改（對於第二張：把第一行的特殊格式刷到第二行，再把第三行的格式刷到第一行，以此類推）

感謝 @谷月，腳本很簡單的。。。

但是最近天天吃土。。。

暫不考慮低版本，理論支持10及以上，

先選擇你的那個形狀，不然他不知道複製哪一個的。。。

頁面的其餘元素他不管的，照搬。

就不給注釋了，真心簡單的腳本。

Public Sub 奇怪的複製() Dim oSlide As Slide, oShape As Shape, oShapeIndex As Integer Dim newSlide As Slide, newShape As Shape, newParagraph As TextRange2 Set oSlide = ActiveWindow.Selection.SlideRange(1) Set oShape = ActiveWindow.Selection.ShapeRange(1) oShapeIndex = oShape.ZOrderPosition Dim repeatCount As Integer repeatCount = oShape.TextFrame.TextRange.Paragraphs.Count Dim i As Integer For i = repeatCount To 1 Step -1 Set newSlide = oSlide.Duplicate(1) Set newParagraph = newSlide.Shapes(oShapeIndex).TextFrame2.TextRange.Paragraphs(i) With newParagraph .Font.Bold = msoCTrue .Font.Size = 25 .Font.Highlight.ObjectThemeColor = msoThemeColorAccent1 .Font.Shadow.Visible = msoCTrue End With Next End Sub

建議人人都學一下基本的編程的~效率真心高！

額，你花點錢讓大神 @ye4241 給你定製一小段VBA就解決了。

這種有規律的批量重複性問題，用VBA編程解決，才是最優雅的，才是墜吼滴！

其實，你花點錢找我定製也行啊~~~~~畢竟人家大神收入高，工作忙，錢給少了，大神瞧不上。

仔細看了一下你的需求，你應該是想做章節跳轉頁目錄吧？第一大點的時候高亮第一行，講到第二大點時高亮第二行以示強調，其餘點淡化處理，以此類推。

如果是這樣的要求，可以設想，你雖然說起來是n，嚇死個人，但實際上n能到8都是極限了吧，一般也就4、5這樣子。一頁PPT（保證字看得清的情況下）縱向能容納多少行呢？

這種情況下去自找麻煩把問題放大到n，不是很有必要吧??

數量比較少的情況下，你的方法就挺好了，用一用格式刷熱鍵吧，Ctrl+shift+c 與 Ctrl+shift+v 結合滑鼠框選，一下就刷一堆，速度再能快一倍。

做模板的時候給那一頁專門做一頁模板，其他相似頁做一頁模板，不知道這樣是否符合你的要求。

好像沒有特別快速的辦法。