क्या Word 2007 में सभी क्रॉस-रेफरेंस को एक विशिष्ट शैली प्रदान करना संभव है?


32

जोड़ने के लिए अधिक कुछ नहीं है, मैं एक शब्द 2007 दस्तावेज़ में एक बार में मेरे पास सभी क्रॉस-संदर्भों की शैली को बदलना चाहूंगा । लेकिन मुझे नहीं पता कि यह कैसे करना है। यह कैसे किया जा सकता है?


अच्छा सवाल है, मुझे कुछ भी जल्दी और गंदा नहीं मिला। लेकिन मुझे लगता है कि यह पूरे दस्तावेज़ की शैली से संबंधित है
Ivo Flipse

1
@ मैं, हाँ, मुझे भी लगता है कि दस्तावेज़ की शैली से संबंधित कुछ है, लेकिन मैं एक गरीब SW डेवलपर हूँ जिसका Word :) के साथ कोई अधिक अनुभव नहीं है
ड्रेक

@marco: मेरा अद्यतन उत्तर देखें
आगे की सूचना तक

हाँ, महान जवाब बहुत बहुत धन्यवाद, बहुत दिलचस्प
ड्रेक

जवाबों:


38

कुछ क्रॉस-रेफरेंस प्रकार स्वचालित रूप से "तीव्र संदर्भ" शैली के साथ स्वरूपित होते हैं, लेकिन अधिकांश को "सामान्य" टेक्स्ट के रूप में स्वरूपित किया जाता है।

क्रॉस संदर्भ के पाठ में "तीव्र संदर्भ" शैली लागू करने के लिए:

  • पाठ का चयन करें
  • रिबन में "होम" टैब चुनें
  • रिबन के "स्टाइल्स" समूह में ऊपर-नीचे बटन या ड्रॉप-डाउन बटन का उपयोग करके, "तीव्र संदर्भ" शैली (या यदि आप चाहें तो एक और शैली) चुनें

दी गई शैली के सभी पाठों की उपस्थिति बदलने के लिए:

  • रिबन में "होम" टैब चुनें
  • रिबन के "स्टाइल्स" समूह में ड्रॉप-डाउन बटन का उपयोग करके, "स्टाइल लागू करें ..." चुनें
  • "स्टाइल नेम" के अंतर्गत "स्टाइल्स अप्लाई" डायलॉग बॉक्स में उस शैली का नाम चुनें जिसे आप बदलना चाहते हैं (उदाहरण के लिए "गहन संदर्भ")
  • "संशोधित करें ..." बटन पर क्लिक करें
  • आपके अनुरूप करने के लिए फ़ॉर्मेटिंग बदलें और "ओके" पर क्लिक करें

एक बार में सभी क्रॉस संदर्भों पर शैली लागू करने के लिए:

  • फ़ील्ड कोड दिखाने के लिए Alt+ दबाएँF9
  • रिबन में "होम" टैब चुनें
  • "संपादन" समूह में "बदलें" पर क्लिक करें
  • "क्या खोजें" फ़ील्ड में, टाइप करें ^19 REF
    • (यह कैरेट-वन-नौ-स्पेस-आरईएफ है)
  • "बदलें के साथ" फ़ील्ड में क्लिक करें, लेकिन कुछ भी टाइप न करें
  • "अधिक" बटन पर क्लिक करें
  • संवाद के निचले भाग को "बदलें" शीर्षक दिया जाना चाहिए (इसके बाद एक क्षैतिज नियम के साथ)
  • "प्रारूप" बटन पर क्लिक करें और "स्टाइल ..." चुनें
  • एक शैली चुनें (उदाहरण के लिए "तीव्र संदर्भ") और ठीक पर क्लिक करें
  • यह अब आपके द्वारा चुनी गई शैली को "बदलें के साथ" फ़ील्ड के तहत दिखाना चाहिए
  • यदि आप बहादुर महसूस कर रहे हैं तो "सभी बदलें" पर क्लिक करें या प्रत्येक संदर्भ फ़ील्ड कोड की शैली को व्यक्तिगत रूप से बदलने और बदलने या छोड़ने के लिए "अगली खोजें" और "बदलें" का उपयोग करें
  • फ़ील्ड कोड छिपाने के लिए Alt+ दबाएँF9

ढूँढें और बदलें में विशेष कोड के बारे में अधिक जानकारी के लिए इस पृष्ठ को देखें ।

यहां एक मैक्रो है जो \* mergeformatप्रत्येक फ़ील्ड में स्विच को जोड़ देगा । यदि आप फ़ील्ड अद्यतन करते हैं तो स्वरूपण को खो जाने से बचाने के लिए यह स्विच आवश्यक है। आप मैक्रो को कीस्ट्रोक पर असाइन कर सकते हैं और यह फ़ील्ड के माध्यम से एक बार में एक बार आप कीस्ट्रोक को दबाएंगे। आप प्रक्रिया को स्वचालित करने के लिए पूरे दस्तावेज़ पर लूप को मैक्रो को भी संपादित कर सकते हैं।

Sub mf()
'
' mf Macro
' Find cross references and add \* mergeformat
'
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "^19 REF"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
    Selection.TypeText Text:="\* mergeformat "
    Selection.Find.Execute
End Sub

वास्तव में अधिकांश संदर्भ यदि सभी सामान्य पाठ के साथ डिफ़ॉल्ट रूप से नहीं बनाये जाते हैं। उत्तर के लिए धन्यवाद, लेकिन इस मामले में मुझे मैन्युअल रूप से हर एक की शैली सेट करनी होगी, इससे पहले कि मैं एक बार में सभी के लिए शैली को अपडेट कर सकूं। मैं एक ऐसी विधि की खोज कर रहा था जो प्रक्रिया के पहले चरण को स्वचालित कर सके
ड्रेक

6
वाह, मुझे यह पता नहीं था कि यह उन्नत / खोजे जाने वाले उपयोगों के लिए बहुत उपयोगी है
ड्रेक

6
आप जवाब देते हैं कि यह संघनित ज्ञान का एक छोटा रत्न है। अपने ही विकी के लायक!
डेसपेयर की

5
यीशु मसीह ... यह महान काम करता है, लेकिन बात यह है: क्रॉस-संदर्भ के लिए एक शैली को लागू करना इतना मुश्किल क्यों है !? ;)
लेनियल मैकाफेर्री

एमएस वर्ड पर 16.9.1 मैक पर, यह काम करता है (मैक्रो की कोशिश नहीं की), लेकिन खोज / प्रतिस्थापित होम रिबन पर नहीं है (मुझे लगता है?), लेकिन इसके बजाय संपादन के तहत मेनू में-> खोजें-> उन्नत ढूँढें और बदलें ...
माइकल

5
  • फ़ील्ड कोड दिखाने के लिए Alt+ दबाएँF9
  • सभी क्रॉस संदर्भों में CHARFORMAT को जोड़ने के लिए निम्न मैक्रो का उपयोग करें। यह मैक्रो स्ट्रिंग को केवल तभी फ़ील्ड में जोड़ता है यदि यह पहले से ही वहां नहीं है।

    Sub SetCHARFORMAT()
    '
    ' Set CHARFORMAT switch to all {REF} fields. Replace MERGEFORMAT.
    '
    '
        Dim oField As Field
        Dim oRng As Range
        For Each oField In ActiveDocument.Fields
        'For Each oField In Selection.Fields
            If InStr(1, oField.Code, "REF ") = 2 Then
                If InStr(1, oField.Code, "MERGEFORMAT") <> 0 Then
                    oField.Code.Text = Replace(oField.Code.Text, "MERGEFORMAT", "CHARFORMAT")
                End If
                If InStr(1, oField.Code, "CHARFORMAT") = 0 Then
                    oField.Code.Text = oField.Code.Text + "\* CHARFORMAT "
                End If
            End If
        Next oField
    
    
    End Sub
  • "सूक्ष्म संदर्भ" शैली के साथ सभी क्रॉस संदर्भों को प्रारूपित करने के लिए इस मैक्रो का उपयोग करें (सुनिश्चित करें कि आपके पास ऐसी शैली है, और उस फ़ील्ड कोड को दिखाया गया है):

    Sub SetCrossRefStyle()
    '
    ' Macro to set styole of all cross references to "Subtle Reference"
    '
    '
        Selection.Find.ClearFormatting
        Selection.Find.Replacement.ClearFormatting
        Selection.Find.Replacement.Style = ActiveDocument.Styles( _
            "Subtle Reference")
        With Selection.Find
            .Text = "^19 REF"
            .Replacement.Text = ""
            .Forward = True
            .Wrap = wdFindContinue
            .Format = True
            .MatchCase = False
            .MatchWholeWord = False
            .MatchKashida = False
            .MatchDiacritics = False
            .MatchAlefHamza = False
            .MatchControl = False
            .MatchWildcards = False
            .MatchSoundsLike = False
            .MatchAllWordForms = False
        End With
        Selection.Find.Execute Replace:=wdReplaceAll
    End Sub
  • फ़ील्ड कोड छिपाने के लिए Alt+ दबाएँF9


3

साइबोर्ग द्वारा अपलोड किए गए मैक्रो को संपादित करते हुए, हम आसानी से फील्ड कोड दिखाते और छिपाते हुए स्वचालित कर सकते हैं। हर बार जब हम अपडेट करना चाहते हैं तो हमें फ़ील्ड कोड टॉगल करने की आवश्यकता नहीं है। फ़ील्ड कोड टॉगल जोड़ने के लिए मैंने निम्नलिखित कोड का उपयोग किया।

ActiveDocument.ActiveWindow.View.ShowFieldCodes = False

पूरा मैक्रो इस प्रकार है:

Sub SetCrossRefStyle()
'
' Macro to set styole of all cross references to "Subtle Reference"
'
'
ActiveDocument.ActiveWindow.View.ShowFieldCodes = True
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Selection.Find.Replacement.Style = ActiveDocument.Styles( _
    "Subtle Reference")
With Selection.Find
    .Text = "^19 REF"
    .Replacement.Text = ""
    .Forward = True
    .Wrap = wdFindContinue
    .Format = True
    .MatchCase = False
    .MatchWholeWord = False
    .MatchKashida = False
    .MatchDiacritics = False
    .MatchAlefHamza = False
    .MatchControl = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
ActiveDocument.ActiveWindow.View.ShowFieldCodes = False
End Sub

यह पहली बार है जब मैं शब्द में अपने काम को तेज करने के लिए मैक्रोज़ का उपयोग कर रहा हूं। इस तरह के मददगार मैक्रो के लिए धन्यवाद सायबोर्ग।


0

तेज और प्रभावी तरीका:

  1. संदर्भों के लिए आप जिस फॉर्मेशन का उपयोग करना चाहते हैं, उसके साथ कुछ टेक्स्ट का चयन करें।
  2. रिबन में होम टैब चुनें ।
  3. सामान्य शैली पर राइट-क्लिक करें और चयन के लिए अपडेट सामान्य चुनें ।
  4. Ctrl+ A, के साथ संदर्भ अद्यतन करें F9

0

यह मैक्रो वर्तमान कर्सर स्थिति पर क्रॉस संदर्भ डालने के लिए क्रॉस संदर्भ डायलॉग बॉक्स खोलता है।

जब आप संदर्भ को सम्मिलित करने के बाद Xref संवाद बॉक्स को बंद करते हैं, तो मैक्रो रिज्यूमे को सम्मिलित क्रॉस संदर्भ को सुपरस्क्रिप्ट में प्रारूपित करने के लिए शुरू होता है।

Sub XrefSuper()
'
' This opens the Cross Reference dialogue box to insert a cross reference at the current cursor position.
'   When the dialogue box is closed after inserting the reference the macro resumes to format the inserted cross reference to superscript.
'
'
Dim wc As Integer
    wc = ActiveDocument.Characters.Count

Dim dlg As Dialog
    Set dlg = Dialogs(wdDialogInsertCrossReference)
        dlg.Show 'Open dialogue and perform the insertion from the dialog box) 
                 'Macro continues after closing CrossRef dialogue box

    If wc = ActiveDocument.Characters.Count Then Exit Sub   'If we failed to insert something then exit

    Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
    Selection.Font.Superscript = wdToggle
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    Selection.Font.Superscript = wdToggle
End Sub

एक्सफ़र डायलॉग को कैसे खोलें , इसके लिए एक्सपर्ट्स एक्सचेंज में ग्राहम स्कैन के लिए धन्यवाद ।


0

डॉक्यूमेंट बॉडी, हेडर, फुटर और टेक्स्ट को शेप पर लगाने के लिए डॉक्यूमेंट, स्टोरीज ’के माध्यम से एक और फंक्शन के साथ उपरोक्त उत्तरों को जोड़कर।

सभी क्रॉस संदर्भों के लिए "तीव्र संदर्भ" शैली लागू करने के लिए बस SetCrossRefStyle () नीचे मैक्रो को कॉल करें।

Sub m_SetCHARFORMAT(textRanges As Collection)
' https://superuser.com/questions/13531/is-it-possible-to-assign-a-specific-style-to-all-cross-references-in-word-2007
'
' Set CHARFORMAT switch to all {REF} fields. Replace MERGEFORMAT.
' Requires ActiveDocument.ActiveWindow.View.ShowFieldCodes = True
'
    Dim oField As Field
    Dim oRng As Range
    For Each oRng In textRanges
        For Each oField In oRng.Fields
            If InStr(1, oField.Code, "REF ") = 2 Then
                If InStr(1, oField.Code, "MERGEFORMAT") <> 0 Then
                    oField.Code.Text = Replace(oField.Code.Text, "MERGEFORMAT", "CHARFORMAT")
                End If
                If InStr(1, oField.Code, "CHARFORMAT") = 0 Then
                    oField.Code.Text = oField.Code.Text + "\* CHARFORMAT "
                End If
            End If
        Next oField
    Next oRng
End Sub


Sub m_AddCrossRefStyle(textRanges As Collection)
' https://superuser.com/questions/13531/is-it-possible-to-assign-a-specific-style-to-all-cross-references-in-word-2007
'
' Macro to set style of all cross references to "Intense Reference"
' Requires ActiveDocument.ActiveWindow.View.ShowFieldCodes = True
'
    For Each oRng In textRanges
        oRng.Find.ClearFormatting
        oRng.Find.Replacement.ClearFormatting
        oRng.Find.Replacement.Style = ActiveDocument.Styles("Intense Reference")
        With oRng.Find
            .Text = "^19 REF"
            .Replacement.Text = ""
            .Forward = True
            .Wrap = wdFindContinue
            .Format = True
            .MatchCase = False
            .MatchWholeWord = False
            .MatchKashida = False
            .MatchDiacritics = False
            .MatchAlefHamza = False
            .MatchControl = False
            .MatchWildcards = False
            .MatchSoundsLike = False
            .MatchAllWordForms = False
        End With
        oRng.Find.Execute Replace:=wdReplaceAll
    Next oRng
End Sub


Function m_GetAllTextRanges() As Collection
' https://wordmvp.com/FAQs/Customization/ReplaceAnywhere.htm
' https://www.mrexcel.com/forum/excel-questions/443052-returning-collection-function.html
'
' Get text ranges in all document parts.
'
    Set m_GetAllTextRanges = New Collection
    For Each rngStory In ActiveDocument.StoryRanges
        'Iterate through all linked stories
        Do
            m_GetAllTextRanges.Add rngStory
            On Error Resume Next
            Select Case rngStory.StoryType
                Case 6, 7, 8, 9, 10, 11
                If rngStory.ShapeRange.Count > 0 Then
                    For Each oShp In rngStory.ShapeRange
                        If oShp.TextFrame.HasText Then
                            m_GetAllTextRanges.Add oShp.TextFrame.TextRange
                        End If
                    Next
                End If
                Case Else
                    'Do Nothing
            End Select
            On Error GoTo 0
            'Get next linked story (if any)
            Set rngStory = rngStory.NextStoryRange
        Loop Until rngStory Is Nothing
    Next
End Function

Sub SetCrossRefStyle()
'
' 1. Get all text ranges since Selection.Find only works on document body, but not on headers/footers
' 2. Add CHARFORMAT to make styling persistent
' 3. Add styling to all references
'
    Dim textRanges As Collection
    Set textRanges = m_GetAllTextRanges
    ActiveDocument.ActiveWindow.View.ShowFieldCodes = True
    m_SetCHARFORMAT textRanges
    m_AddCrossRefStyle textRanges
    ActiveDocument.ActiveWindow.View.ShowFieldCodes = False
End Sub
हमारी साइट का प्रयोग करके, आप स्वीकार करते हैं कि आपने हमारी Cookie Policy और निजता नीति को पढ़ और समझा लिया है।
Licensed under cc by-sa 3.0 with attribution required.