শব্দ 2010 ভিবিএ শৈলী প্রয়োগ করছে কিন্তু ফন্ট পরিবর্তন করছে না

3

আমি প্রায়শই ভিবিএ ব্যবহার করি না এবং আমি এমন ম্যাক্রো একসাথে রাখার চেষ্টা করছি যা ডকুমেন্টের সমস্ত পাঠ্য ফন্টের আকার 13.5 পিটি দিয়ে নির্বাচন করে এবং এর শৈলীটি শিরোনামে 1 পরিবর্তন করে So এখন পর্যন্ত আমার নীচের কোডটি রয়েছে:

Sub FormatSectionHeaders()
    Application.ScreenUpdating = False
    Dim oRng As Word.Range
    Set oRng = ActiveDocument.Content
    oRng.Find.ClearFormatting
    oRng.Find.Replacement.ClearFormatting
    oRng.Find.Replacement.Style = wdStyleHeading1
    With oRng.Find
     .Font.Size = 13.5
     .Text = ""
     .Execute Format:=True, Replace:=wdReplaceAll, Wrap:=wdFindContinue
    End With
End Sub

এটি সঠিক পাঠ্যটি নির্বাচন করে এবং শৈলীটি প্রয়োগ করে, তবে কিছু কারণে এটি সমস্ত মূল বিন্যাসকে ওভাররাইড করছে না - উদাহরণস্বরূপ, ফন্ট এবং ফন্টের আকারটি শৈলীর সাথে মেলে না। কেউ আমাকে বলতে পারে যে আমি কী ভুল করছি?

দ্রষ্টব্য: আমি নিম্নলিখিত লুপটির সাথে এটি কাজ করতে পারি তবে এটি প্রতিস্থাপনটি ব্যবহার করার চেয়ে অনেক ধীর, সুতরাং আমি এ জাতীয় কিছু ব্যবহার না করে উপরের কোডটি চেষ্টা করে ঠিক করতে চাই।

With oRng.Find
    .ClearFormatting
    .Text = ""
    .Font.Size = 13.5
    While .Execute
        oRng.Style = ActiveDocument.Styles(wdStyleHeading1)
        oRng.Collapse wdCollapseEnd
    Wend
End With

vba microsoft-word-2010

— লোবো
সূত্র

নিম্নোক্ত কোডের মাধ্যমে শৈলীর ফন্ট এবং অনুচ্ছেদে বিন্যাসের মানটি স্পষ্টভাবে জোর করে বাধ্য হয়ে আমি এটি কাজ করতে সক্ষম হয়েছি:

oRng.Find.Replacement.Style = ActiveDocument.Styles(wdStyleHeading1) oRng.Find.Replacement.Font = ActiveDocument.Styles(wdStyleHeading1).Font oRng.Find.Replacement.ParagraphFormat = ActiveDocument.Styles(wdStyleHeading1).ParagraphFormat

তবে, এখনও অ্যাপ্লিকেশনটির মাধ্যমে পাঠ্য কেন এগুলি গ্রহণ করা হচ্ছে তা এখনও ব্যাখ্যা করে না this শৈলীর, সুতরাং যে কোনও ব্যাখ্যা সবচেয়ে স্বাগত হবে।

— লোবো

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

— লোবো

1

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

— লোবো
সূত্র

0

আপনি 13.5 এর ফন্টের আকারযুক্ত সামগ্রীটি সন্ধান করছেন এবং আপনি সেই সামগ্রীর জন্য শিরোনাম 1 স্টাইল প্রয়োগ করার চেষ্টা করছেন। তবে শব্দ নথিতে ডিফল্ট টেম্পলেট (সাধারণ) এতে শিরোনাম 1 হিসাবে প্রথম স্তরের শিরোনাম শৈলী রয়েছে যাতে আপনি নীচের মতো কোড ব্যবহার করতে পারেন

oRng.style = "শিরোনাম 1"

— DeeGo
সূত্র

এর থেকে কীভাবে oRng.style = "Heading1"আলাদা oRng.Style = ActiveDocument.Styles(wdStyleHeading1)(কেন আপনি ভাবেন যে এটির গতি উন্নতি করবে)?

— মাটি জুহেজ