אינדיזיין המרת טבלאות מרובים לטקסט

[יוחנן ק]

מחפש עצה להמרת טבלאות מרובים לטקסט באינדזיין

 

[יוחנן ק]

הקפצה

 

[צורת הדף]

מאקרו להמיר בוורד יעזור לך?

Sub converttotext()
    For i = ActiveDocument.Tables.Count To 1 Step -1
'        ActiveDocument.Tables(i).Select
'        Selection.Font.Color = wdColorRed
        ActiveDocument.Tables(i).converttotext Separator:=wdSeparateByTabs, NestedTables:=True
    Next
End Sub

 

[יוחנן ק]

מאקרו להמיר בוורד יעזור לך?

Sub converttotext()
    For i = ActiveDocument.Tables.Count To 1 Step -1
'        ActiveDocument.Tables(i).Select
'        Selection.Font.Color = wdColorRed
        ActiveDocument.Tables(i).converttotext Separator:=wdSeparateByTabs, NestedTables:=True
    Next
End Sub

תודה !

עובד מצויין