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

[yitschak]

אגב, למי שמופיע לו הודעת השגיאה (הודעה מס' 12), יש להעביר את קבצי ההתקנה לשולחן העבודה ולהתקין כרגיל

אגב, למי שמופיע לו הודעת השגיאה (הודעה מס' 12), יש להעביר את קבצי ההתקנה לשולחן העבודה ולהתקין כרגיל

נסיתי להתקין וקבלתי אותה הודעת שגיעה. העברתי לשולחן העבודה ועדיין אותה שגיעה. מישהו יכול לעזור?

 

[שיקול דעת]

(אע''פ שזה לא התוסף שלי ...)

עיין כאן פתרון:
http://www.prog.co.il/showthread.php?p=1205446#post1205446

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

 

[שיקול דעת]

;

איפה המקרו??

נו, איפה זה? מדוע לא צורף?

 

[שיקול דעת]

http://www.prog.co.il/showpost.php?p=1253133&postcount=5

הדף אינו נמצא, אפשר להפנות עוד פעם למקום רלוונטי?

 

[שיקול דעת]

יש לי קובץ של קיצורי דרך בוורד, הרבה יותר מקיף ממה שהעלו כאן מקודם.

 

[שיקול דעת]

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

הבעיה היא, שאנו רוצים שבדף האחרון בסוף המאמר, שאינו עמוד שלם, שלא ייתיישר לשוליים התחתוניים, מה עושים?

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

מאקרו ראשון, מיועד כשהעמוד האחרון מתחיל באמצע פסקה:

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

הצליח!
תודה רבה!

 

[rutt]

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

 

[rutt]

...

 

[NIVDFB]

עם מאקרו ודאי אפשרי.
בצורה הכי פשוטה:
לעמוד באמצע מילה מסויימת
להקליט 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

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

 

[rutt]

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

והנה הוא לפניכם:

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

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

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

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

 

[שיקול דעת]

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

כתבתי את זה במפורש, עיינו עוד פעם.

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

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