VB בתוכנת word

מטאור2001

New member
VB בתוכנת word

יש לי טקסט שכתוב בטבלה בצורה כזאת: 1 משה הלך לגן יוסף הלך לגן 2 משה אכל בננה יוסף אכל תפוח 3 דוד הלך לגן יצחק הלך לגן 4 דוד אכל בננה יצחק אכל תפוח 5 דוד אכל גם משמש יצחק אכל גם גויאבה (הרווחים מייצגים עמודה בטבלה, שורה רווח מייצגת שורה חדשה בטבלה. בכל תא יש מעברי פיסקה בכמות שונה - לדוגמא בשורה הראשונה בטבלה יש מעבר פיסקה אחד (ושתי שורות טקסט), בשורה השניה בטבלה יש 2 מעברי שורה ו-3 שורות טקסט. המטרה - להוציא את הטקסט מהטבלה ולהפריד אותו עם טאבים. אם לא היו המעברי שורה - זאת פקודה פשוטה בתפריט "טבלה", "המר" (אופיס 2003). בגלל המעברי שורה בתוך התאים הוא יוצא לי בצורה מחורבשת (אתם מוזמנים לנסות ולראות). יצרתי מאקרו שמוציא את השורות מהטבלה ומפריד ביניהם בטאבים הבעיה שזה עושה את זה שורה שורה, ובטקסט של בסביבות 7,000 שורות זה לא רלוונטי, אני יודע איך אני חוזר על הפעולה פעמיים או 3, הבעייה שבכל שורה יש מספר אחר של מעברי שורה. השאלה איך אני סופר כמה שורות יש בטקסט מסויים, ומבצע עבורו פעולה כמספר השורות שקיימות. מקווה שהייתי מספיק ברור. תודה נתנאל
 
למעלה