दस्तावेज़ के अंत में मैक्रो कैसे दोहराएं - मैकओएस हाई सिएरा v 10.13.6 - मैक वी 16.15 के लिए माइक्रोसॉफ्ट वर्ड

Question

मैं वी बेसिक के बारे में बहुत कम जानता हूं, लेकिन मुझे पता है कि मैं जो करना चाहता हूं वह सरल होना चाहिए। मैं बस एक रेखा से नीचे जाना चाहता हूं, बाईं ओर, और बैकस्पेस इसलिए ताकि कोई लाइन ब्रेक न हो। मैं प्रारूपित करने की कोशिश कर रहा हूं इसलिए मैं इसे xCode में डाल सकता हूं। मैंने अन्य लोगों के सवालों पर समान काम करने की कोशिश की है (एक मैक्रो दोहराएं) लेकिन हमेशा कुछ चर होते हैं जो इसे काम नहीं करते ... जैसे कि यह पाठ में कुछ खोजने की कोशिश कर रहा है। मैं बस अंत तक bksp, down bksp नीचे जाना चाहता हूं।

यहाँ मेरा पाठ कैसा दिखता है: "प्रश्न", "भूत का लेखक कौन है?", "एंड्रयू डाहल विश्व रिकॉर्ड क्या रखता है?", "

और यहाँ मैं क्या दर्ज मैक्रो में अब तक है:

'रिफॉर्मेट प्रश्न और उत्तर पाठ के लिए xcode' Selection.MoveDown Unit: = wdLine, Count: = 1 Selection.HomeKey Unit: = wdLine Selection.TypeBackspace Selection.MoveDown Unit: = wadLine, Count: = 1 Selection.HomeKey Unit: = wdLine Selection.TypeBackspace

कृपया सहायता कीजिए! धन्यवाद !!

Comments

पैराग्राफ जुदाई को खत्म करने की कोशिश कर रहे हैं और इस प्रकार पाठ की एक बड़ी स्ट्रिंग के साथ समाप्त हो रहे हैं?

— रिच माइकल्स

Answer 1

इसे इस्तेमाल करे:

Sub ElimParas()
With ActiveDocument.Range.Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Format = False
    .Forward = True
    .Wrap = wdFindContinue
    .Execute FindText:="^p", ReplaceWith:=" ", Replace:=wdReplaceAll
End With
End Sub