MS Word 2013 में कीबोर्ड शॉर्टकट के साथ ज़ूम इन और आउट कैसे करें?

Question

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

वहाँ एक एमएस मैक्रो के साथ ऐसा करने का एक तरीका है या autohotkey का उपयोग कर रहा है?

Comments

ALT WQE [कुछ संख्या] दर्ज करें .. लेकिन यह भयानक है। जाहिरा तौर पर ज़ूम इन / ज़ूम आउट करने के लिए कोई मूल शॉर्टकट मौजूद नहीं है

— मैट

Answer 1

AFAIK विशेष रूप से ज़ूम करने के लिए कोई कीबोर्ड शॉर्टकट नहीं है।

इसके बजाय, ये दो नए VBA रूटीन (मैक्रोज़) बनाएँ:

Sub MyZoomIn()
  Dim iZoom As Long
  iZoom = ActiveWindow.View.Zoom
  iZoom = iZoom + 5
  ActiveWindow.View.Zoom = iZoom
End Sub

Sub MyZoomOut()
  Dim iZoom As Long
  iZoom = ActiveWindow.View.Zoom
  iZoom = iZoom - 5
  ActiveWindow.View.Zoom = iZoom
End Sub

स्रोत

फिर उन्हें कीबोर्ड शॉर्टकट असाइन करें:

1. फ़ाइल टैब पर क्लिक करें ।

2. विकल्प पर क्लिक करें ।

3. कस्टमाइज़ रिबन पर क्लिक करें और फिर कस्टमाइज़ पर क्लिक करें ।

4. बॉक्स में परिवर्तन सहेजें में, वर्तमान दस्तावेज़ नाम या टेम्पलेट पर क्लिक करें जिसे आप कीबोर्ड शॉर्टकट परिवर्तनों को सहेजना चाहते हैं।

5. में श्रेणियाँ बॉक्स में, श्रेणी है कि आदेश या अन्य आइटम है कि आप के लिए कीबोर्ड शॉर्टकट असाइन या से एक कीबोर्ड शॉर्टकट निकालना चाहते हैं पर क्लिक करें।

6. में आदेश बॉक्स, आदेश या अन्य आइटम है कि आप के लिए कीबोर्ड शॉर्टकट असाइन या से एक कीबोर्ड शॉर्टकट निकालना चाहते हैं उसके नाम पर क्लिक करें।

   वर्तमान में दिए गए किसी भी कीबोर्ड शॉर्टकट वर्तमान कुंजी बॉक्स में दिखाई देते हैं।

7. एक कीबोर्ड शॉर्टकट असाइन करें:

   ए। CTRL या फ़ंक्शन कुंजी के साथ कीबोर्ड शॉर्टकट शुरू करें।

   ख। में प्रेस नई शॉर्टकट कुंजी बॉक्स, कुंजी है कि आप प्रदान करना चाहते हैं के संयोजन दबाएँ। उदाहरण के लिए, CTRL प्लस उस कुंजी को दबाएं जिसका आप उपयोग करना चाहते हैं।

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

   घ। असाइन करें पर क्लिक करें ।

स्रोत

Answer 2

मैं सामान्य कोड में एक मॉड्यूल में निम्नलिखित कोड जोड़कर, एक कदम आगे TECHIE007 के उत्तर को ले जाऊंगा:

Const FineZoom As Double = 5
Const CoarseZoom As Double = 25
Const MaxZoom As Double = 500
Const MinZoom As Double = 10

Sub ZoomInFine()
    With ActiveWindow.View
        If .Zoom <= (MaxZoom - FineZoom) Then .Zoom = .Zoom + FineZoom
    End With
End Sub

Sub ZoomOutFine()
    With ActiveWindow.View
        If .Zoom >= (MinZoom + FineZoom) Then .Zoom = .Zoom - FineZoom
    End With
End Sub

Sub ZoomInCoarse()
    With ActiveWindow.View
        If .Zoom <= (MaxZoom - CoarseZoom) Then .Zoom = .Zoom + CoarseZoom
    End With
End Sub

Sub ZoomOutCoarse()
    With ActiveWindow.View
        If .Zoom >= (MinZoom + CoarseZoom) Then .Zoom = .Zoom - CoarseZoom
    End With
End Sub

ऐसा करने के लिए, Word में एक रिक्त दस्तावेज़ खोलें और फिर:

1. Alt+ दबाकर VBA संपादक खोलेंF11
2. प्रोजेक्ट एक्सप्लोरर में "सामान्य" ढूंढें, राइट-क्लिक करें, फिर 'इंसर्ट' और 'मॉड्यूल' चुनें

3. उपरोक्त कोड को नव-निर्मित, रिक्त कोड मॉड्यूल में कॉपी और पेस्ट करें।
4. VBA कोड ( Ctrl+ S) को सहेजें और VBA संपादक को बंद करें

TECHIE007 के निर्देशों का उपयोग करते हुए, मैं तब बांधूंगा:

• ZoomInCoarseकरने के लिए Ctrl+ Shift+Numpad +
• ZoomOutCoarseकरने के लिए Ctrl+ Shift+Numpad -
• ZoomInFineकरने के लिए Ctrl+ Alt+ Shift+Numpad +
• ZoomOutFineकरने के लिए Ctrl+ Alt+ Shift+Numpad -

कोड का यह रूप VBA रनटाइम त्रुटियों से बचने के लिए ज़ूम सीमा का स्वत: पता लगाने के साथ, ज़ूम की एक ट्यूनेबल दर की अनुमति देता है। यदि ठीक और / या मोटे ज़ूम दरें, या ज़ूम सीमाएँ किसी को पसंद नहीं हैं, तो उन्हें आसानी से बदला जा सकता है।

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

Comments

क्या यह केवल एक मैक्रो है जो वर्ड के अंदर एक नियमित मैक्रो के रूप में स्थापित किया जा सकता है। या चार अलग-अलग मैक्रोज़

— AMDG

चार अलग-अलग मैक्रोज़, लेकिन उन सभी को एक ही कोड मॉड्यूल में जाने की आवश्यकता है।

— hBy2Py

एमएस विज़ुअल बेसिक में मुझे "मॉड्यूल" पर फिर "इन्सर्ट" और फिर "पूरा कोड" पर क्लिक करना चाहिए? या क्या मुझे "मॉड्यूल" के नीचे फ़ोल्डर पर क्लिक करना चाहिए जो "न्यूमैक्रोस" और "इन्सर्ट" और "मॉड्यूल" है। मैं उस से परिचित नहीं हूँ और मुझे अपने सभी मैक्रोज़

— AMDG

मौका मिलने पर मैं कुछ स्क्रीनशॉट और निर्देशों के साथ अपना उत्तर संपादित करूँगा। अगले सप्ताह की शुरुआत में नवीनतम।

— hBy2Py

मैं उसका इंतजार करता हूं। क्या यह आउटलुक संदेश में भी काम करने वाला है?

— AMDG