صحبت کردن با خود

Question

اگر شما هم مثل من هستید، وقتی می نویسید برای خودتان یادداشت می کنید تا قسمت هایی از دست نوشته را که ممکن است نیاز به کار بیشتری داشته باشد فراموش نکنید یا بتوانید حافظه خود را تند تند کنید. متن مخفی برای این منظور عالی است، زیرا می توانید خود را پنهان کنید. یادداشت ها را در هر زمان به طوری که دیگران آنها را بر روی صفحه نمایش یا در یک چاپ شده نبینند. متوجه شدم آنقدر یادداشت اضافه کردم که می‌خواهم یک ماکرو ایجاد کنم که یک پاراگراف را قبل از پاراگرافی که در آن کار می‌کنم درج کند و سپس پاراگراف را به عنوان متن پنهان قالب‌بندی کند تا بتوانم یادداشت خود را وارد کنم. نتیجه ماکرو AddNote است که یک پاراگراف مخفی با متن قرمز ایجاد می کند:

Sub AddNote()
    Selection.MoveDown Unit:=wdParagraph, Count:=1
    Selection.MoveUp Unit:=wdParagraph, Count:=1
    Selection.TypeParagraph
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
    Selection.Style = ActiveDocument.Styles("Normal")
    With Selection.Font
        .Name = "Arial"
        .Size = 11
        .Bold = True
        .Italic = False
        .Underline = wdUnderlineNone
        .StrikeThrough = False
        .DoubleStrikeThrough = False
        .Outline = False
        .Emboss = False
        .Shadow = False
        .Hidden = True
        .SmallCaps = False
        .AllCaps = False
        .ColorIndex = wdRed
        .Engrave = False
        .Superscript = False
        .Subscript = False
        .Spacing = 0
        .Scaling = 100
        .Position = 0
        .Kerning = 0
        .Animation = wdAnimationNone
    End With
    Selection.TypeText Text:="Note: "
End Sub

من این ماکرو را به یک کلید میانبر اختصاص می دهم که استفاده از آن را بسیار آسان می کند. در صورت تمایل می توانید آن را به نوار ابزار دسترسی سریع اختصاص دهید.