המרת טבלאות

[זיגדון שמוליק]

שלום
יש לכם מושג איך אפשר להוריד ריבוי טבלאות בוורד בצורה מהירה?
יש איזה קוד לזה?

 

[תא חזי]

שלום
יש לכם מושג איך אפשר להוריד ריבוי טבלאות בוורד בצורה מהירה?
יש איזה קוד לזה?

מה זה ריבוי טבלאות?
אתה מתכוון להמיר טבלאות לטקסט? כבר כתבו לך בשרשור אחר מאקרו עבור זה.

 

[זיגדון שמוליק]

מה זה ריבוי טבלאות?
אתה מתכוון להמיר טבלאות לטקסט? כבר כתבו לך בשרשור אחר מאקרו עבור זה.

לא שלחו לי מאקרו

 

[תא חזי]

לא שלחו לי מאקרו

הביאו לך קישור כאן
זה מאקרו די פשוט, הוא ממיר את כל הטבלאות לטקסט (הפרדה בין עמודה לעמודה עם TAB, ובין שורה לשורה עם אנטר), הנה:

Sub AllTablesToText()
    Dim Tbls As Long
    Dim J As Long

    Tbls = ActiveDocument.Tables.Count
    For J = Tbls To 1 Step —1
        ActiveDocument.Tables(J).ConvertToText Separator:=wdSeparateByTabs
    Next J
End Sub

מקורו מכאן, ויש עוד אחד (קצת שונה) כאן​