פורום אוצר החכמה

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

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

שלום.

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

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

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

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

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

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