এমএস ওয়ার্ড: কেন্দ্র কেবলমাত্র তালিকায় একত্রিত হয়

Question

আমি ওয়ার্ড 2010 এ একটি সংখ্যাযুক্ত তালিকা তৈরি করেছি Each প্রতিটি তালিকার প্রবেশের পাশাপাশি একটি চিত্র রয়েছে has আমি সমস্ত চিত্র কেন্দ্রীয়ভাবে প্রান্তিককরণ করতে চাই, তবে যখন আমি একটি চিত্রকে সারিবদ্ধ করার চেষ্টা করি, উপরের পাঠ্যটিও কেন্দ্রিক হয়ে যায়।

উপরে এবং নীচের পাঠ্যটিকে কেন্দ্র করেই কীভাবে আমি তালিকায় চিত্রগুলি সারিবদ্ধ করতে পারি।

Answer 1

ঠিক আছে, আপনি যা করেন তা এখানে:

1. চিত্রটিতে ডান ক্লিক করুন এবং 'আকার এবং অবস্থান ...' নির্বাচন করুন
2. 'পাঠ্য মোড়ানো' ট্যাবটি নির্বাচন করুন
3. 'শীর্ষ ও নীচে' নির্বাচন করুন
4. 'অবস্থান' ট্যাবটি নির্বাচন করুন
5. 'অনুভূমিক' বিভাগের অধীনে, 'প্রান্তিককরণ' নির্বাচন করুন এবং তারপরে 'কলামের' তুলনায় 'কেন্দ্রিক' নির্বাচন করুন

দুর্ভাগ্যক্রমে, একাধিক চিত্রের জন্য এটি করা সমস্যাযুক্ত। ফর্ম্যাট চিত্রকর কাজ করবে না। এছাড়াও, চিত্রটি নির্বাচন করার চেষ্টা করার সময় কেবল ম্যাক্রো রেকর্ডার ব্যবহার করা সমস্যার কারণ হতে পারে।

সুতরাং, একটি ভিবিএ ম্যাক্রো তৈরি করা এবং এটি একটি কী-তে বাঁধাই এই সুপার-দক্ষ করে তোলার একমাত্র উপায় বলে মনে হয়। এই বিষয়ে দুটি সহায়ক পোস্ট এখানে দেওয়া হয়েছে:

• https://groups.google.com/forum/?fromgroups=#!topic/microsoft.public.word.vba.general/j4ZaBiOYKDU
• https://stackoverflow.com/questions/9809475/insert-resize-and-relocate-image-using-a-microsoft-word-macro

এই রেফারেন্সগুলির প্রথম থেকে, আমি নিম্নলিখিত ভিবিএ ম্যাক্রোটি পরীক্ষা করেছি। মনে হচ্ছে ঠিকঠাক কাজ!

Sub FormatMyPicture()  
   Dim myShape As Shape

   If Selection.InlineShapes.Count > 0 Then
       Set myShape = Selection.InlineShapes(1).ConvertToShape
   ElseIf Selection.ShapeRange.Count > 0 Then
       Set myShape = Selection.ShapeRange(1)
   Else
       MsgBox "Please select a picture first."
       Exit Sub
   End If

   With myShape
       .WrapFormat.Type = wdWrapTopBottom
       .WrapFormat.DistanceTop = InchesToPoints(0.2)
       .WrapFormat.DistanceBottom = InchesToPoints(0.2)
       .RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
       .Left = wdShapeCenter
   End With
End Sub

Comments

আরও বেশি, অন্য সমস্ত চিত্রগুলি সহজেই কীভাবে করব? ফর্ম্যাট চিত্রকর এখানে কাজ করছে না :(

— LifeH2O

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

— হারুনাহী

আমি কেবল একটি ম্যাক্রো রেকর্ড করার চেষ্টা করেছি, এটি করতেও পারি না। ম্যাক্রো রেকর্ডিংয়ের সময় আমাকে কোনও চিত্র নির্বাচন করার অনুমতি নেই, সুতরাং এর বৈশিষ্ট্যগুলি পরিবর্তন করার কোনও উপায় নেই।

— LifeH2O

কিছুটা দ্রুততর উপায়। একটি চিত্র নির্বাচন করুন তারপরে টিপুন Alt,J,P,T,W,O,Alt,J,P,A,A,C: - |

— LifeH2O

ম্যাক্রো তৈরি করতে বিশদ যুক্ত করা হয়েছে

— হারুনাহী

Answer 2

এমএস ওয়ার্ডে সমস্ত ইনলাইন চিত্রকে কেন্দ্ররেখাতে:

পদক্ষেপ 1 : ভিবিএ সম্পাদক খোলার জন্য Alt+ টিপুনF11

পদক্ষেপ 2 : Insertতারপর যানModule

পদক্ষেপ 3 : ভিবিএ সম্পাদকের মধ্যে নিম্নলিখিত কোড স্নিপেট টাইপ করুন

Sub centerPictures()
  Dim shpIn As InlineShape, shp As Shape
  For Each shpIn In ActiveDocument.InlineShapes
    shpIn.Select
    Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
  Next shpIn
  For Each shp In ActiveDocument.Shapes
    shp.Select
    Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
  Next shp
End Sub

পদক্ষেপ 4: এই পরিবর্তনটি প্রয়োগ করতে টিপুন F5বা টিপুনRun Sub

Answer 3

আশা করি এই বিশেষ কেউ বিশেষ সাহায্য করবে

Sub rezize_center_newline()

Dim i As Long
Dim shpIn As InlineShape, shp As Shape

With ActiveDocument
    For i = 1 To .InlineShapes.Count
        With .InlineShapes(i)
            .Height = InchesToPoints(4)
            .Width = InchesToPoints(5.32)
            .Range.InsertAfter Chr(13)
        End With
    Next i
    For Each shpIn In ActiveDocument.InlineShapes
        shpIn.Select
        Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
    Next shpIn
    For Each shp In ActiveDocument.Shapes
        shp.Select
        Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
    Next shp
End With
End Sub