শব্দ 2010 - এইচ 1 এর পরে পাতা বাদে H2 এর আগে break

Question

নিম্নোক্ত কাঠামোর সাথে আমি একটি শব্দ নথি পেয়েছি:

Title
Heading 1
  Heading 2
    Text
  Heading 2
    Text
Heading 1
  Heading 2
    Text
...

আমি সব ও H2 শিরোনাম সামনে পৃষ্ঠা বিরতি চাই, ব্যতীত বেশী সরাসরি এইচ 1 শিরোনামে পর যখন আমি পছন্দ দুই শিরোনামে একই পৃষ্ঠায় যাবে।

আমি জানি যে শিরোনাম 2 এর শৈলীতে আমি স্বয়ংক্রিয়ভাবে "পৃষ্ঠা বিরতি" সেট করতে পারি, তবে সমস্ত পৃষ্ঠা ব্রেক নিজেই যুক্ত না করেই "সরাসরি শিরোনাম 1 বাদে" বিকল্প সেট করার কোনও উপায় আছে কি?

অন্য কথায়, আমি বিরতিগুলি নিম্নলিখিত হিসাবে চাই:

Title
-- Page Break --
Heading 1
  Heading 2
    Text
-- Page Break --
  Heading 2
    Text
-- Page Break --
Heading 1
  Heading 2
    Text
-- Page Break --
  Heading 2
    Text
...

Answer 1

একটি নতুন শৈলী তৈরি করা আপনার যা ইচ্ছা তা পূর্ণ করবে। এই পদ্ধতিটি ব্যবহার করে দেখুন:

1. সমস্ত শিরোনাম 2 পাঠ্যের আগে একটি পৃষ্ঠা বিরতি সন্নিবেশ করানোর জন্য অনুচ্ছেদ ডায়ালগ বক্স ব্যবহার করুন ।Word
2. একটি নতুন শৈলী তৈরি করুন, "শিরোনাম 2 প্রধানমন্ত্রী" , হুবহু শিরোনাম 2 এর মতো , তবে "পৃষ্ঠা বিরতি আগে" বিকল্পটি চেক করুন। নিশ্চিত হয়ে নিন যে আপনি এখানে লিখিত হ'ল "শিরোনাম 2 প্রধানমন্ত্রী" বানান ।
3. ওপেন করতে Alt+ টিপুন , তারপরে প্রোগ্রামগুলিতে প্রবেশের জন্য একটি নতুন উইন্ডো খুলতে "সন্নিবেশ> মডিউল" ক্লিক করুন ।F11VBA development environment
4. নিম্নলিখিত বিবৃতি উইন্ডোতে আটকান। এই বিবৃতিগুলি শিরোনাম 2 প্রধান অনুচ্ছেদের সাথে শিরোনাম 1 অনুচ্ছেদের পরে সমস্ত শিরোনাম 2 অনুচ্ছেদ প্রতিস্থাপন করবে ।

পেস্ট করার কোড:

'''''''''''''''''''''''''''''''''''''''''''
Sub replace_Heading2_with_Heading2Prime()

Dim i As Integer
Dim s As String
Dim h As String

'''''''''''''''''''''''''''''''''''''
'loop through all pgp and report heading 2

For i = 1 To ActiveDocument.Paragraphs.Count

s = ActiveDocument.Paragraphs(i).Style

If (s = "Heading 2") Then
 h = findPriorHeading(i - 1)
 If (h = "Heading 1") Then
 ActiveDocument.Paragraphs(i).Style = "Heading 2 Prime"
 End If
End If

Next i

Exit Sub

End Sub

Function findPriorHeading(iPgp As Integer) As Variant
Dim i As Integer
Dim blnFoundHeading As Boolean
'walk backwards until any heading is found
 With ActiveDocument
 i = iPgp
 blnFoundHeading = False
 Do Until (i < 1 Or blnFoundHeading)
 s = .Paragraphs(i).Style
 If (InStr(s, "Heading") > 0) Then
 blnFoundHeading = True
 findPriorHeading = s
 Exit Function
 End If
 i = i - 1
 Loop
 End With
 findPriorHeading = ""

End Function
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

ফিরে আসতে Alt+ টিপুন , তারপরে ম্যাক্রোস ডায়ালগ বাক্সটি খুলতে + টিপুন । ম্যাক্রোটি চালানোর জন্য "প্রতিস্থাপন_ইডিং 2_উইহইডিং 2 প্রাইম" আইটেমটিতে ডাবল ক্লিক করুন ।F11WordAltF8

আশা করি এটা কাজে লাগবে.

Comments

আপনি কি আপনার উদাহরণ কোডটি পরিষ্কার করার চেষ্টা করতে পারেন? আমি চাইব তবে জিনিসগুলি কোথায় ভাঙতে হবে তা আমি বুঝতে পারি না। নমুনা কোড থেকে কোড ব্লক তৈরি করতে পাঠ্য বাক্সের শীর্ষে সম্পাদক বোতামগুলি ব্যবহার করার চেষ্টা করুন।

— slm

কুরুচিপূর্ণ কোড সম্পর্কে দুঃখিত। আমি বিন্যাসটি পরিষ্কার করেছি ed ধূসর ব্যাকগ্রাউন্ড সহ সমস্ত সামগ্রী, যা সমস্ত গা .় পাঠ্য, তা হ'ল কোড। সেগুলি এবং ঠিক তেমনটি নির্বাচন করুন এবং নির্দেশাবলী অনুসারে এটি ভিবিএ সম্পাদকটিতে আটকান।

— ড্যারিন কল্টো

আমি ঠিক যা আশা করছিলাম তা না হলেও এটি কাজ করে (এবং পরামর্শ দেয় যে এর জন্য কোনও সহজ চেকবক্স সমাধান নেই) সুতরাং +1।

— ব্রিস্টল

Answer 2

আমার সমাধানটি হ'ল:

1. এইচ 2 এর জন্য শৈলীর বৈশিষ্ট্যগুলিতে "পৃষ্ঠা বিরতিতে" বাক্সটি টিক দিন,
2. এইচ 1 এর প্রতিটি উদাহরণের জন্য, এর সাথে সম্পর্কিত "x.1" এ যান, অর্থাৎ এইচ 2 এর প্রথম উদাহরণ, অনুচ্ছেদ বৈশিষ্ট্য খুলুন এবং "পৃষ্ঠা বিরতিতে" এর আগে বাক্সটি ম্যানুয়ালি আনটিক করুন।

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

যদিও এটি কোনও অন্তর্নির্মিত বৈশিষ্ট্য নয় তবে আমি সত্যিই দেখতে পাচ্ছি না। আমি খুঁজে পরিচালিত করেছি এই এবং এই প্রমাণ করার uservoice অনুরোধের জন্য সরকারী চ্যানেল, কিন্তু এই মধ্যে আরও দেখুন সময় এটিএম হবে না।