کاهش اندازه فضاها در انتخاب

Question

جورج مایل است فقط فضای بین کلمات را در متنی که در یک سند انتخاب می کند فشرده کند. او می تواند اندازه نقطه هر فضا را یکی یکی تغییر دهد. او همچنین می‌تواند این کار را با یافتن فضا و جایگزینی آن با فضایی که اندازه فونت کوچک‌تری دارد، انجام دهد. با این حال، او دوست دارد اندازه فضاها را مرحله به مرحله کاهش دهد. (به عنوان مثال، 0.1 امتیاز در هر مرحله.)

نمی توان دقیقاً همان چیزی را که جورج می خواهد انجام داد زیرا Word فقط به شما اجازه می دهد اندازه قلم را با افزایش نیم نقطه تنظیم کنید، نه با افزایش نقطه دهم. اگر کاهش نیم نقطه در هر زمان انجام شود، بهترین روش این است. برای استفاده از ماکرو:

Sub StepSpaceFontSize()
    Dim F As Double
    Dim C As Long

    For C = 1 To Len(Selection)
        If Asc(Mid(Selection, C, 1)) = 32 Then
            F = Selection.Range.Characters(C).Font.Size
            If F > 5 Then
                Selection.Range.Characters(C).Font.Size = (F - 0.5)
            End If
        End If
    Next C
End Sub

ماکرو در هر متنی که انتخاب می‌شود از هر کاراکتر عبور می‌کند و اگر کاراکتر یک فاصله باشد، اندازه نقطه همان فاصله را کاهش می‌دهد. ماکرو یک محدودیت پایین در اندازه فونت اعمال می کند، زیرا فقط به 5 نقطه کاهش می یابد.