או קונטרול+שיפט+רווח
לא הבנתי את השאלה.
למסמך באיזה תוכנה כבודו מתכוון ?
אתה נראה לי אחד מקצוען, האם תוכל בבקשה ליצור פקודת מאקרו לזה ולהעלות פה?, אינני יודע לעשות זאת ואני בטוח אשכח עד הפעם הבאה. תודה רבה.
זה לא קשור למאקרו, פשוט צריך להגדיר כל טקסט של כותרת, כסגנון.
הנושאים החמים
Sub ConnectFootnotes()
Notes 0, 0
End Sub
Function Notes(Optional iFN1 As Integer, Optional iFN2 As Integer, Optional bIn As Boolean) As Integer
Dim i As Integer, sFN(1) As String, J(1) As Long, myRange() As Range, sMsg As String, iViewType As Integer, bSmartCut As Boolean
If Not bIn Then Application.ScreenUpdating = False: iViewType = ActiveDocument.ActiveWindow.View.Type
If Application.Version >= 12 Then ActiveDocument.ActiveWindow.View.Type = wdPrintView Else ActiveDocument.ActiveWindow.View.Type = wdNormalView
ActiveDocument.StoryRanges(1).Select: Selection.End = 0: If Not bIn Then Call initial
If Val(iFN1) = 0 Then sFN(0) = "\*" Else sFN(0) = "$" & CStr(iFN1) & " "
If Val(iFN2) = 0 Then sFN(1) = "\*" Else sFN(1) = "$" & CStr(iFN2) & " "
With Selection.Find
If .Execute(findText:="+++", Wrap:=wdFindContinue) Then Selection.Collapse wdCollapseEnd Else sMsg = "הכנס ""+++"" לפני טעקסט ההערות!": GoTo X3
'If .Execute(FindText:="+(|[+#])", ReplaceWith:="#\1", Replace:=wdReplaceAll, MatchWildcards:=True, Wrap:=wdFindContinue) Then i = 1
If .Execute(findText:="\<" & sFN(1) & "[0-9 ]{1,}\>", ReplaceWith:="+|#", Replace:=wdReplaceAll, MatchWildcards:=True, Wrap:=wdFindStop) Then i = i + 1
If .Execute(findText:="\<" & sFN(0) & "[0-9 ]{1,}\>", ReplaceWith:="+|+", Replace:=wdReplaceAll, MatchWildcards:=True, Wrap:=wdFindContinue) Then i = i + 1
J(0) = UBound(split(ActiveDocument.Range.Text, "+|+")): J(1) = UBound(split(ActiveDocument.Range.Text, "+|#"))
If J(0) <> J(1) Then sMsg = "אין תאימות לקישורים! (" & J(0) & "<>" & J(1) & ")": ActiveDocument.Undo i: GoTo X3
If J(0) = 0 Then GoTo X3
ReDim myRange(J(0)): i = 1: Selection.End = 0: .Text = "+|#": .Wrap = wdFindContinue
While .Execute
StatusBar = "Setting footnote range " & i & ":" & UBound(myRange)
With Selection
J(1) = (.MoveStartUntil(Chr(13), wdBackward)) + 1: If .Range.HighlightColorIndex = 9999999 Or .Range.HighlightColorIndex = 0 Then If J(1) < 0 Then .MoveStart 1, J(1) * -1
If Not i = 1 Then myRange(i - 1).SetRange start:=myRange(i - 1).start, End:=.start
Set myRange(i) = ActiveDocument.Range(start:=.start, End:=.End)
If i = UBound(myRange) Then myRange(i).SetRange start:=myRange(i).start, End:=ActiveDocument.Range.End: GoTo X1
i = i + 1: .Collapse wdCollapseEnd
End With
Wend
X1: Selection.End = 0: .Execute "+|+": bSmartCut = Options.SmartCutPaste: Options.SmartCutPaste = False
With Selection: .Delete: .Footnotes.Add Range:=Selection.Range, Reference:=""
ActiveDocument.StoryRanges(1).Footnotes(1).Reference.Select: .Range.HighlightColorIndex = wdNoHighlight: .Copy: .Collapse wdCollapseEnd
End With
.Execute ReplaceWith:="^c", Replace:=wdReplaceAll, Wrap:=wdFindContinue
For i = 1 To UBound(myRange)
StatusBar = "Inserting footnotes " & i & ":" & UBound(myRange): While Right(myRange(i), 1) = Chr(13): myRange(i).MoveEnd wdCharacter, -1: Wend
ActiveDocument.StoryRanges(2).Footnotes(i).Range.Select: Selection.ParagraphFormat = myRange(i).Paragraphs.First.Range.ParagraphFormat
myRange(i).Copy: Selection.PasteAndFormat wdPasteDefault: If i = UBound(myRange) Then Exit For
Next i
Options.SmartCutPaste = bSmartCut: ActiveDocument.StoryRanges(2).Find.Execute "+|#", ReplaceWith:="", Replace:=wdReplaceAll, Wrap:=wdFindContinue
ActiveDocument.StoryRanges(1).Select: Selection.End = 0: .Execute "+++", Wrap:=wdFindContinue: With Selection: .MoveEnd wdStory: .Delete: .End = 0: End With
.Text = "": .MatchWildcards = False
End With
If Not bIn Then ActiveDocument.ActiveWindow.View.Type = iViewType: Application.ScreenUpdating = True
Notes = 2: Exit Function
X3: With Selection.Find: .Text = "": .Replacement.Text = "": .MatchWildcards = False: End With: Notes = 1
If Not bIn And sMsg <> "" Then MsgBox sMsg, vbMsgBoxRtlReading + vbMsgBoxRight: ActiveDocument.ActiveWindow.View.Type = iViewType: Application.ScreenUpdating = True
End Function
Private Sub initial()
With Selection.Find: .ClearFormatting: .Replacement.ClearFormatting: .Replacement.Text = ""
If Not .Execute(findText:="?", Forward:=True, MatchWildcards:=True, MatchCase:=False, Wrap:=wdFindContinue) Then Application.Browser.Next
.Text = "": .MatchWildcards = False: Selection.MoveLeft
End With
End Sub
rhon.co.il
מעכשיו, תהיו הראשונים לקבל את כל העדכונים, החדשות, ההפתעות בלעדיות, והתכנים הכי חמים שלנו בפרוג!
לוח לימודים
מסלולי לימוד שאפשר להצטרף
אליהם ממש עכשיו:
