如何在 PowerPoint 演示文稿中使用洗掉線格式自動洗掉所有文本？
我在 Excel 中發現了這個有用的鏈接：
為了提供有關這些表如何存盤在演示文稿中的更多詳細資訊，這是我python-pptx用來訪問其中一個表的代碼：
import pptx
def parse_pptx(file_name):
prs = pptx.Presentation(file_name)
slides = prs.slides
for i, slide in enumerate(slides):
if i == 66:
shapes = slide.shapes
for shape in shapes:
if type(shape) == pptx.shapes.graphfrm.GraphicFrame and shape.has_table:
table = shape.table
if "Test_Table_1" in table.cell(0, 0).text:
for j in range(len(table.rows)):
for i in range(len(table.columns)):
print(table.cell(j, i).text, end=", ")
print("")
if __name__ == "__main__":
pptx_name = Path("test.pptx")
parse_pptx(pptx_name)
uj5u.com熱心網友回復：
如果討論中的“表格”確實是 PowerPoint（插入）表格，請嘗試使用以下代碼：
Sub testIterateShapesType()
Dim sl As Slide, sh As Shape, tbl As Table, i As Long, j As Long, k As Long
For Each sl In ActivePresentation.Slides
For Each sh In sl.Shapes
If sh.Type = msoTable Then
Set tbl = sh.Table
For i = 1 To tbl.Rows.Count
For j = 1 To tbl.Columns.Count
For k = tbl.Cell(i, j).Shape.TextFrame2.TextRange.Characters.Count To 1 Step -1
If tbl.Cell(i, j).Shape.TextFrame2.TextRange.Characters(k, 1).Font.Strikethrough Then
tbl.Cell(i, j).Shape.TextFrame2.TextRange.Characters(k, 1) = ""
End If
Next k
Next j
Next i
End If
Next
Next
End Sub
請在測驗后發送一些反饋。
轉載請註明出處，本文鏈接：https://www.uj5u.com/ruanti/514477.html
上一篇：在單元格范圍內查找“NAME”并回傳另一個單元格中查找“NAME”上方的“TEXT”幾個單元格
下一篇：使用VBA組合選定范圍內的值