וורד האשכול המרכזי לשאלות וטיפים בוורד

הירשם עכשיו!
נכתב ע"י shraga0:
אגב, למי שמופיע לו הודעת השגיאה (הודעה מס' 12), יש להעביר את קבצי ההתקנה לשולחן העבודה ולהתקין כרגיל
לחצ/י כדי להרחיב...
נכתב ע"י shraga0:
אגב, למי שמופיע לו הודעת השגיאה (הודעה מס' 12), יש להעביר את קבצי ההתקנה לשולחן העבודה ולהתקין כרגיל
לחצ/י כדי להרחיב...


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

קבצים מצורפים

  • קיצורי דרך במקלדת בתוכנת וורד.docx
    KB 33.5 · צפיות: 99
כשמעמדים קונטרס\ספר, רוצים שכל דף ייגמר באופן שווה בשוליים התחתוניים. והעצה לזה היא, להגדיר בהגדרות הדף, בכרטיסיה Layout, שהפיסקאות ייתישרו לשוליים התחתוניים.
השוואת דף לשוליים תחתוניים.png
הבעיה היא, שאנו רוצים שבדף האחרון בסוף המאמר, שאינו עמוד שלם, שלא ייתיישר לשוליים התחתוניים, מה עושים?

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

מאקרו ראשון, מיועד כשהעמוד האחרון מתחיל באמצע פסקה:
קוד: 
Sub ביטול_יישור_עמוד_באמצע_פסקא()
'
' ביטול באמצע פיסקה - יישור העמוד לשוליים
' לבטל יישור העמוד לשוליים התחתוניים בעמוד אחרון שבמאמר
'

    Selection.TypeText Text:=Chr(11)
    Selection.InsertBreak Type:=wdSectionBreakContinuous
    With Selection.ParagraphFormat
        .LeftIndent = CentimetersToPoints(0)
        .RightIndent = CentimetersToPoints(0)
        .SpaceBefore = 6
        .SpaceBeforeAuto = False
        .SpaceAfter = 6
        .SpaceAfterAuto = False
        .LineSpacingRule = wdLineSpaceExactly
        .LineSpacing = 14
        .Alignment = wdAlignParagraphJustify
        .WidowControl = True
        .KeepWithNext = False
        .KeepTogether = False
        .PageBreakBefore = False
        .NoLineNumber = False
        .Hyphenation = True
        .FirstLineIndent = CentimetersToPoints(0)
        .OutlineLevel = wdOutlineLevelBodyText
        .CharacterUnitLeftIndent = 0
        .CharacterUnitRightIndent = 0
        .CharacterUnitFirstLineIndent = 0
        .LineUnitBefore = 0
        .LineUnitAfter = 0
        .MirrorIndents = False
        .TextboxTightWrap = wdTightNone
        .ReadingOrder = wdReadingOrderRtl
    End With
    With Selection.PageSetup
        .LineNumbering.Active = False
        .Orientation = wdOrientPortrait
        .TopMargin = CentimetersToPoints(2.8)
        .BottomMargin = CentimetersToPoints(2)
        .LeftMargin = CentimetersToPoints(2.1)
        .RightMargin = CentimetersToPoints(2)
        .Gutter = CentimetersToPoints(0)
        .HeaderDistance = CentimetersToPoints(1.25)
        .FooterDistance = CentimetersToPoints(1.25)
        .PageWidth = CentimetersToPoints(16)
        .PageHeight = CentimetersToPoints(25)
        .FirstPageTray = wdPrinterDefaultBin
        .OtherPagesTray = wdPrinterDefaultBin
        .SectionStart = wdSectionContinuous
        .OddAndEvenPagesHeaderFooter = True
        .DifferentFirstPageHeaderFooter = False
        .VerticalAlignment = wdAlignVerticalTop
        .SuppressEndnotes = False
        .MirrorMargins = True
        .TwoPagesOnOne = False
        .BookFoldPrinting = False
        .BookFoldRevPrinting = False
        .BookFoldPrintingSheets = 1
        .GutterPos = wdGutterPosRight
        .SectionDirection = wdSectionDirectionRtl
    End With
End Sub
מאקרו השני, מיועד כשהעמוד האחרון מתחיל בפסקה חדשה:
קוד: 
Sub ביטול_יישור_עמוד_בתחילת_פסקא()
'
' ביטול לפני פיסקה - יישור העמוד לשוליים
' לבטל יישור העמוד לשוליים התחתוניים בעמוד אחרון שבמאמר
'
    Selection.InsertBreak Type:=wdSectionBreakContinuous
    With Selection.PageSetup
        .LineNumbering.Active = False
        .Orientation = wdOrientPortrait
        .TopMargin = CentimetersToPoints(2.8)
        .BottomMargin = CentimetersToPoints(2)
        .LeftMargin = CentimetersToPoints(2.1)
        .RightMargin = CentimetersToPoints(2)
        .Gutter = CentimetersToPoints(0)
        .HeaderDistance = CentimetersToPoints(1.25)
        .FooterDistance = CentimetersToPoints(1.25)
        .PageWidth = CentimetersToPoints(16)
        .PageHeight = CentimetersToPoints(25)
        .FirstPageTray = wdPrinterDefaultBin
        .OtherPagesTray = wdPrinterDefaultBin
        .SectionStart = wdSectionContinuous
        .OddAndEvenPagesHeaderFooter = True
        .DifferentFirstPageHeaderFooter = False
        .VerticalAlignment = wdAlignVerticalTop
        .SuppressEndnotes = False
        .MirrorMargins = True
        .TwoPagesOnOne = False
        .BookFoldPrinting = False
        .BookFoldRevPrinting = False
        .BookFoldPrintingSheets = 1
        .GutterPos = wdGutterPosRight
        .SectionDirection = wdSectionDirectionRtl
    End With
End Sub
 
מתנצלת על ההקפצה
מצאתי קיצור להערות שוליים ויישור, יש קיצור לחזור לטקסט המקורי?
 
אני יעתיק לך את זה עוד פעם. אצלי זה עובד.
קוד: 
Sub InsertFootnoteNow()
'
' InsertFootnoteNow Macro
'
'

' Replaces the built-in command InsertFootnoteNow,
' Keyboard shortcut: Alt+Ctrl+F

If Selection.StoryType = wdFootnotesStory Then
' return to main text:
With ActiveWindow
Select Case .ActivePane.View.Type
Case wdPrintView, wdReadingView, _
wdWebView, wdPrintPreview
.View.SeekView = wdSeekMainDocument
Case Else
.ActivePane.Close
End Select
End With
If Selection.Characters.Last.Style = _
ActiveDocument.Styles(wdStyleFootnoteReference) Then
Selection.Move Unit:=wdCharacter, Count:=1
End If
Else
' insert footnote:
Selection.Footnotes.Add Range:=Selection.Range
End If
End Sub
 
נכתב ע"י חנון:
מה אני אמורה לעשות שיעבוד?
לחצ/י כדי להרחיב...
תצוגה->פקודות מאקרו->הצג פקודות מאקרו
לכתוב בשם מאקרו:
InsertFootnoteNow
ואז ללחוץ 'צור'.
ייפתח חלון המאקרו, והסמן יעמוד בתוך הפוקציה שנוצרה. לשם להעתיק את זה:

' Replaces the built-in command InsertFootnoteNow,
' Keyboard shortcut: Alt+Ctrl+F

If Selection.StoryType = wdFootnotesStory Then
' return to main text:
With ActiveWindow
Select Case .ActivePane.View.Type
Case wdPrintView, wdReadingView, _
wdWebView, wdPrintPreview
.View.SeekView = wdSeekMainDocument
Case Else
.ActivePane.Close
End Select
End With
If Selection.Characters.Last.Style = _
ActiveDocument.Styles(wdStyleFootnoteReference) Then
Selection.Move Unit:=wdCharacter, Count:=1
End If
Else
' insert footnote:
Selection.Footnotes.Add Range:=Selection.Range
End If
 
נכתב ע"י חגי פאהן:
תצוגה->פקודות מאקרו->הצג פקודות מאקרו
לכתוב בשם מאקרו:
InsertFootnoteNow
ואז ללחוץ 'צור'.
ייפתח חלון המאקרו, והסמן יעמוד בתוך הפוקציה שנוצרה. לשם להעתיק את זה:

' Replaces the built-in command InsertFootnoteNow,
' Keyboard shortcut: Alt+Ctrl+F

If Selection.StoryType = wdFootnotesStory Then
' return to main text:
With ActiveWindow
Select Case .ActivePane.View.Type
Case wdPrintView, wdReadingView, _
wdWebView, wdPrintPreview
.View.SeekView = wdSeekMainDocument
Case Else
.ActivePane.Close
End Select
End With
If Selection.Characters.Last.Style = _
ActiveDocument.Styles(wdStyleFootnoteReference) Then
Selection.Move Unit:=wdCharacter, Count:=1
End If
Else
' insert footnote:
Selection.Footnotes.Add Range:=Selection.Range
End If
לחצ/י כדי להרחיב...
הצליח!
תודה רבה!
 
פעמים רבות אני מעוניינת להוסיף למילה "גרשיים" לפני ואחרי, או 'גרש בודד' לפני ואחרי המילה, וזה מסורבל לי לעשות זאת ידנית, שאלתי היא - האם ניתן לעשות זאת [עם מאקרו או כל דרך אחרת] בלחיצת כפתור אחת [כשהסמן של העכבר נמצא על המילה המבוקשת] או בצירוף שני מקשים?
תודה
 
עם מאקרו ודאי אפשרי.
בצורה הכי פשוטה:
לעמוד באמצע מילה מסויימת
להקליט ctrl+חץ ימני, ולהקליד מה שרוצים, ctrl+חץ שמאלי, לזוז תו אחד ימינה, ולהקליד מה שרוצים.
ולעצור הקלטה - זהו.
 
הוספה ושינוי קטן.
בדרך כלל במקרה של השואל, מדובר שעוברים על המסמך באמצעת ctrl+חץ שמאלי, וכשמגיעים לאיזה מילה רוצים להוסיף גרשיים, אז יותר טוב ליצור המאקרו שיהיה נוח, כשמיד כשמגיעים למילה יוכל להפעיל המאקרו.
ועוד הוספה קטנה: ליצור קיצור במקלדת למאקרו, כך אפשר ממש בין רגע לייצר הגרשיים.

והנה הוא לפניכם:
קוד: 
Sub הוספת_גרשיים_לפני_ואחרי_מילה()
'
' הוספת_גרשיים_לפני_ואחרי_מילה Macro
'
'
    Selection.TypeText Text:=""""
    Selection.MoveRight Unit:=wdWord, Count:=1
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
    Selection.TypeText Text:=""""
End Sub

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

והנה הוא לפניכם:
קוד: 
Sub הוספת_גרשיים_לפני_ואחרי_מילה()
'
' הוספת_גרשיים_לפני_ואחרי_מילה Macro
'
'
    Selection.TypeText Text:=""""
    Selection.MoveRight Unit:=wdWord, Count:=1
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
    Selection.TypeText Text:=""""
End Sub

כמובן אפשר ליצור אותו דבר, למרכאה אחת, או כל דבר אחר.
לחצ/י כדי להרחיב...

מעולה!
צריך לשים את הסמן לפני המילה, ואז להפעיל את המאקרו.

אגב, איך מייצרים לזה קיצור דרך במקלדת?
 

פרוגבוט

תוכן שיווקי
פרסומת
עליך להתחבר או להירשם כדי להשיב כאן.
פרסום בפרוג ←

הצטרפות לניוזלטר

מאשר/ת קבלת תוכן חם למייל
בשליחת הטופס אני מסכים/ה שבית פרוג תשתמש במידע למטרות שיווק, דיוור ישיר ומשלוח פרסומות באמצעי הקשר שמסרתי, ותכלול אותו במאגר המידע של החברה, והכל בכפוף למדיניות הפרטיות של החברה.
להסרה בעתיד פנה/י לדוא"ל office@prog.co.il או לטלפון: 072-2201430

איזה כיף שהצטרפתם לניוזלטר שלנו!

מעכשיו, תהיו הראשונים לקבל את כל העדכונים, החדשות, ההפתעות בלעדיות, והתכנים הכי חמים שלנו בפרוג!

לוח לימודים

מסלולי לימוד שאפשר להצטרף
אליהם ממש עכשיו:

26.04

ט' אייר


קורס עימוד ועיצוב ספרים

ההרשמה בעיצומה

30.04

י"ג אייר


קורס בוטים ואוטומציות עיסקיות

ההרשמה בעיצומה

10.05

כ"ג אייר


קורס שיווק ופרסום דיגיטלי

נפתחה ההרשמה

14.05

כ"ז אייר


קורס שמאות רכוש

נפתחה ההרשמה

14.06

כ"ט סיוון


קורס אדריכלות עיצוב פנים

נפתחה ההרשמה
לכל מסלולי הלימוד

לוח מודעות

הפרק היומי

הפרק היומי! כל ערב פרק תהילים חדש. הצטרפו אלינו לקריאת תהילים משותפת!


תהילים פרק כה

אלְדָוִד אֵלֶיךָ יי נַפְשִׁי אֶשָּׂא:באֱלֹהַי בְּךָ בָטַחְתִּי אַל אֵבוֹשָׁה אַל יַעַלְצוּ אֹיְבַי לִי:גגַּם כָּל קוֶֹיךָ לֹא יֵבֹשׁוּ יֵבֹשׁוּ הַבּוֹגְדִים רֵיקָם:דדְּרָכֶיךָ יי הוֹדִיעֵנִי אֹרְחוֹתֶיךָ לַמְּדֵנִי:ההַדְרִיכֵנִי בַאֲמִתֶּךָ וְלַמְּדֵנִי כִּי אַתָּה אֱלֹהֵי יִשְׁעִי אוֹתְךָ קִוִּיתִי כָּל הַיּוֹם:וזְכֹר רַחֲמֶיךָ יי וַחֲסָדֶיךָ כִּי מֵעוֹלָם הֵמָּה:זחַטֹּאות נְעוּרַי וּפְשָׁעַי אַל תִּזְכֹּר כְּחַסְדְּךָ זְכָר לִי אַתָּה לְמַעַן טוּבְךָ יי:חטוֹב וְיָשָׁר יי עַל כֵּן יוֹרֶה חַטָּאִים בַּדָּרֶךְ:טיַדְרֵךְ עֲנָוִים בַּמִּשְׁפָּט וִילַמֵּד עֲנָוִים דַּרְכּוֹ:יכָּל אָרְחוֹת יי חֶסֶד וֶאֱמֶת לְנֹצְרֵי בְרִיתוֹ וְעֵדֹתָיו:יאלְמַעַן שִׁמְךָ יי וְסָלַחְתָּ לַעֲוֹנִי כִּי רַב הוּא:יבמִי זֶה הָאִישׁ יְרֵא יי יוֹרֶנּוּ בְּדֶרֶךְ יִבְחָר:יגנַפְשׁוֹ בְּטוֹב תָּלִין וְזַרְעוֹ יִירַשׁ אָרֶץ:ידסוֹד יי לִירֵאָיו וּבְרִיתוֹ לְהוֹדִיעָם:טועֵינַי תָּמִיד אֶל יי כִּי הוּא יוֹצִיא מֵרֶשֶׁת רַגְלָי:טזפְּנֵה אֵלַי וְחָנֵּנִי כִּי יָחִיד וְעָנִי אָנִי:יזצָרוֹת לְבָבִי הִרְחִיבוּ מִמְּצוּקוֹתַי הוֹצִיאֵנִי:יחרְאֵה עָנְיִי וַעֲמָלִי וְשָׂא לְכָל חַטֹּאותָי:יטרְאֵה אוֹיְבַי כִּי רָבּוּ וְשִׂנְאַת חָמָס שְׂנֵאוּנִי:כשָׁמְרָה נַפְשִׁי וְהַצִּילֵנִי אַל אֵבוֹשׁ כִּי חָסִיתִי בָךְ:כאתֹּם וָיֹשֶׁר יִצְּרוּנִי כִּי קִוִּיתִיךָ:כבפְּדֵה אֱלֹהִים אֶת יִשְׂרָאֵל מִכֹּל צָרוֹתָיו:
סמן אחרי הקריאה
לקריאה בפורום
נקרא  2  פעמים
פיקוח של ועדת הרבנים 'שמור'
למעלה