עזרה - וורד

[יואל שילה]

אני לא מבין, אני מחפש עצה איך לפתוח וורד ולהקליד בין התיבות בצבע או בגופן אחר. מה תעזור לי - לגבי בעיה זו - השתמשות בסגנונית?

תחליף את כל הרווחים ברווח כפול הכולל גופן\צבע\גודל כאוות נפשך
כל מקום שתרצה לכתוב - כתוב בין שני הרווחים [ואז הכתיבה תהיה כפי שרצית]
בסוף - החלף את כל הרווחים הכפולים [שנותרו] ברווח בודד עם הגדרות הטקסט שסביבו

[מראה כהנים]

שלום.

יש לי טקסט שההדגשות שבו מסומנות בכוכבית בתחילת וסוף המילה / משפט (כמו בטקסט מוואטסאפ. לדוגמא: הכבישים היו *רותחים* באותו הקיץ. או: דג *סקרן שט לו בים* וסביבו הרבה דגים)

אני מעוניין באמצעות פקודת מאקרו או 'החלפה' לבצע הכל בפעולה אחת.

כלומר, את כל המסומן בכוכביות לפני ואחרי המילה / משפט להמיר לטקסט מודגש בלבד וללא הכוכביות.

ניסיתי את הפקודת מאקרו הזו:

Sub RemoveAsterisksAndBold()

Dim doc As Document
Set doc = ActiveDocument

Dim rng As Range
For Each rng In doc.StoryRanges
If InStr(rng.Text, "*") Then
rng.Font.Bold = True
rng.Text = Replace(rng.Text, "*", "")
End If
Next rng

End Sub

ולא ממש מצליח.

יש למישהו רעיון?

[סופר-סתם]

שלום.

יש לי טקסט שההדגשות שבו מסומנות בכוכבית בתחילת וסוף המילה / משפט (כמו בטקסט מוואטסאפ. לדוגמא: הכבישים היו *רותחים* באותו הקיץ. או: דג *סקרן שט לו בים* וסביבו הרבה דגים)

אני מעוניין באמצעות פקודת מאקרו או 'החלפה' לבצע הכל בפעולה אחת.

כלומר, את כל המסומן בכוכביות לפני ואחרי המילה / משפט להמיר לטקסט מודגש בלבד וללא הכוכביות.

ניסיתי את הפקודת מאקרו הזו:

Sub RemoveAsterisksAndBold()

Dim doc As Document
Set doc = ActiveDocument

Dim rng As Range
For Each rng In doc.StoryRanges
If InStr(rng.Text, "*") Then
rng.Font.Bold = True
rng.Text = Replace(rng.Text, "*", "")
End If
Next rng

End Sub

ולא ממש מצליח.

יש למישהו רעיון?

תחפש בתווים כלליים:
(\*)<*>(\*)
ותחליף למודגש
אח"כ תחפש כוכבית ותחליף בכלום

[דרומי]

נכנסתי לקובץ ישן של וורד הקיים אצלי וניסיתי לכתוב בו -

הכל תקוע. לא זז. כתוב לי למטה שיש 'נעילה'.

מה זה אומר? ואיך משחררים את הנעילה?

[אשי ישראל]

אשמח לעזרתכם, השאלה לי היא כמדומה לי פשוטה וקלה:
כשאני מעתיק טקסט מקובץ אחד למשנהו, ואפילו מקובץ אחד למקום אחר באותו קובץ, משתנה לי העיצוב של הטקסט שאותו אני מעביר. כיצד מונעים זאת?

[מעט דבש]

בגרסת וורד שלי צריך ללחוץ על העיגול הגדול שבצד ימין למעלה, נפתח חלון, ושם יש למטה 'אפשרויות וורד'.
בתוכו יש 'מתקדם', ושם:

אפשרויות וורד - גזירה והדבקה.png (22.94 KiB) נצפה 897 פעמים

[אשי ישראל]

בגרסת וורד שלי צריך ללחוץ על העיגול הגדול שבצד ימין למעלה, נפתח חלון, ושם יש למטה 'אפשרויות וורד'.
בתוכו יש 'מתקדם', ושם:

אפשרויות וורד - גזירה והדבקה.png

תודה גדולה על הנסיון לעזור לי. בדקתי היכן שציינת וכבר היה מוגדר שם כפי שציינת, אז לא שם נמצאת הבעיה. אולי יש לך פתרון נוסף?