পাঠ্য এবং সংখ্যাগুলির জন্য বিভিন্ন ফন্ট ম্যাস-আপ

Question

আমি একটি ফন্ট অর্থাত ব্যবহার করতে চান Candaraজন্য টেক্সট এবং একই সময়ে, আমি অন্য কিছু ফন্ট ব্যবহার করতে চান সংখ্যার মধ্যে টেক্সট কারণ সংখ্যা ফন্টে শৈলী Candaraএকরকম (অন্তত আমার জন্য) ধকল হয়। আমি পাঠ্য এবং সংখ্যা লেখার সময় বারবার ফন্টগুলি পরিবর্তন করতে চাই না ।

পাঠ্যেরCandara জন্য ফন্ট এবং একসাথে সংখ্যার জন্য কিছু অন্যান্য ফন্ট ব্যবহার করা সম্ভব (বারবার ফন্ট পরিবর্তন করার সাথে)।

Comments

সম্পর্কিত superuser.com

— ডেভ

Answer 1

এটি ভিবিএ দিয়ে করা যেতে পারে। আপনার ফাইলের আকারের উপর নির্ভর করে (আপনার কত শব্দ রয়েছে) এটি ধীর হতে পারে।

এটি ধরে নেওয়া হয় যে আপনি কেবল 2 টি ফন্ট ব্যবহার করেন। আপনি যদি অন্য ফন্টগুলি ব্যবহার করেন তবে এটি তাদের ওভাররাইট করে দেবে !!

এটি ভিবিএ তাই মনে রাখবেন, ব্যাক আপ তৈরি করতে প্রথমে এটি সংরক্ষণ করুন (কোনও পূর্বাবস্থা নেই)

Sub updateFont()

Dim doc As Document
Set doc = ActiveDocument
Dim i As Integer    
For i = 1 To doc.Range.Characters.Count

     If IsNumeric(doc.Range.Characters(i)) Then
        doc.Range.Characters(i).Font.Name = "Algerian"
        Else
        doc.Range.Characters(i).Font.Name = "Verdana"
     End If
Next i

End Sub

এর আগে স্ক্রিনশট (ইটালিক ফন্ট ব্যবহার করে)

এবং তারপর

এমএস অফিসে আমি কীভাবে ভিবিএ যুক্ত করব?

Comments

@ ডেভ - আপনার কোড সংকলন করার সময় "পরিবর্তনশীল সংজ্ঞায়িত নয়" ত্রুটি উত্থাপিত হয়েছিল।

— maliks

তবে আমি মনে করি Dim i As Integerযে এই কোডটি পরিবর্তন করার সাথে সাথে আপনার কোডটি অনুপস্থিত এবং এটি তখন আমার পক্ষে কাজ করেছিল।

— maliks

সমস্ত নথির জন্য আমি এই ম্যাক্রোর জন্য একটি নতুন বোতাম যুক্ত করেছি। তবে আমি সেই বোতামটি দেখতে পাচ্ছি না, আমি এটি কোথায় খুঁজে পাব?

— maliks

আমি অন্যান্য নতুন দস্তাবেজের জন্য ম্যাক্রো ব্যবহার করতে অক্ষম। এটি কেন তাই যখন আমি সমস্ত নথির জন্য সেই ম্যাক্রো ফাংশনটি সংরক্ষণ করেছি। এখন এখানে ত্রুটি রয়েছে যে ম্যাক্রো সুরক্ষা অক্ষম করা হয়েছে আমি তাই সমস্ত ম্যাক্রোগুলিকে সক্ষম করেছি

— ম্যালিক্স

প্রতিটি নথিতে প্রতিটি সময় কি ম্যাক্রো সম্পাদকটিতে ম্যাক্রো কোড চালানো দরকার?

— maliks