You have disease: Red-light therapy or just go outside

Evidence is building that red light can help conditions as diverse as hair loss, macular degeneration and mouth ulcers. And there have been striking early results in animal models of psychiatric and neurological diseases. What’s still unclear is how it works. Some scientists suggest that it’s linked to the fact that people are exposed to less natural red light than ever before. “We’re literally being starved of something that, biologically, we’ve evolved to receive,” says dermatologist David Ozog. Evolutionary biologist Elke Buschbeck’s advice is: go outside.

https://www.nature.com/articles/d41586-026-00878-1

Why everyone is now single: mouse paradise experiment

Mouse paradise experiment: few mouses are isolated in a large cage with abundance of food. they are mating and reproducing until thousands. then, they are stop mating and reproducing and within four years, the mices are extinct.

Scientists interpretation: social interation overload, over stimulation, over competition. these leds them to lost interest in mating and making bonds or relationships to raise childern. Many beauty males are loosing interest in the females and competition, just eating and withdrawing from society. then, the females feels that too. then extinction happen.

And now, human race are facing social media which may be leading us to ...

Why everyone is now single: the mouse experiment

Replacing touchpad right-click with two finger tap, Lenovo Ideapad Windows 11

I want to replace right click touchpad with two finger tap in Lenovo Ideapad Windows 11, but the setting is not present everywhere. Here is the only solution worked for me.

1) Hit Win key + R to bring up RUN
2) Type regedit and hit Enter
3) Navigate to HKEY_CURRENT_USER\SOFTWARE\Elantech\SmartPad
4) Find Tap_Two_Finger and change the value to 1
5) Find Tap_Two_Finger_Enable and change the value to 1
6) Restart

I found the solution here:

Touchpad-two-finger-tap-right-click-not-working-Lenovo-S-145-14IKB - English Community - LENOVO COMMUNITY

What is the real cause of heart attack?

Plaques, made by cholesterol and calcium, in blood vessels is not bad, it is protective layer from burst. The plaques is not the cause of heart attack.

The REAL Cause of Heart Attacks & Strokes | Dr. Tom Cowan

Factory reset Samsung J3 Pro, macet di 'Google Asisten tidak tersedia'

Setelah reset pabrik Samsung J3 Pro, langkah Google setup macet di 'Google Asisten tidak tersedia'.

Walau ganti akun gmail, tetap sama.

Cara yang berhasil buat saya: kembali ke halaman setup awal, diskonek dari wifi, lalu Skip/Lewati saja.

Google akan mem-bypass Google Asisten.

https://www.youtube.com/shorts/sKrH0IQBVLg

Macro VBA script: Change format cross-reference with text pattern Example 6.X or 6.XX

Rule:

- Search only in text paragraphs.

- Match "Example 6.X" or "Example 6.XX".

- Change font → unbold + RGB blue.

- Skip if "Example 6.X" is the first word of the paragraph.

Sub ChangeCrossRefExampleFontColor()

    Dim para As Paragraph

    Dim rng As Range

    Dim firstWord As String

    

    For Each para In ActiveDocument.Paragraphs

        Set rng = para.Range

        

        ' Get the first word of the paragraph (without trailing space/punctuations)

        firstWord = Trim(Split(rng.Words(1).Text, " ")(0))

        

        With rng.Find

            .ClearFormatting

            .Replacement.ClearFormatting

            

            ' Pattern: Example 6.X or Example 6.XX

            .Text = "Example 6.[0-9]{1,2}"

            .MatchWildcards = True

            

            ' Formatting

            .Replacement.Font.Bold = False

            .Replacement.Font.Color = RGB(0, 0, 255)

            

            ' Replace one by one inside this paragraph

            Do While .Execute(Replace:=wdReplaceOne)

                ' Check if found text = first word ? skip formatting

                If Trim(rng.Text) = firstWord Then

                    rng.Font.Bold = True ' revert any change

                    rng.Font.Color = wdColorAutomatic

                End If

                rng.Collapse wdCollapseEnd

            Loop

        End With

    Next para

    

    MsgBox "Formatting complete (excluding first word of each paragraph)!", vbInformation

End Sub

Macro VBA Script: Change font color of pattern-text 'Figure 6.XX' and 'Figure 6.X', where X is number, and located in text-paragraph

Sub ChangeCrossRefFigureFontColor()

    Dim doc As Document

    Dim para As Paragraph

    Dim paraRange As Range

    

    Set doc = ActiveDocument

    

    ' Loop through each paragraph in the document

    For Each para In doc.Paragraphs

        Set paraRange = para.Range

        

        ' Only process paragraphs outside of tables

        If paraRange.Information(wdWithInTable) = False Then

            With paraRange.Find

                .ClearFormatting

                .Text = "Figure 6\.[0-9]{1,2}"

                .MatchWildcards = True

                .Replacement.ClearFormatting

                .Replacement.Font.Color = RGB(0, 0, 230) ' Light blue

                

                ' Loop until all matches in paragraph are handled

                Do While .Execute(Replace:=wdReplaceOne) = True

                    paraRange.Font.Color = RGB(0, 0, 230)

                    ' Move start to after last found item

                    paraRange.Collapse Direction:=wdCollapseEnd

                Loop

            End With

        End If

    Next para

End Sub

MSCI Indonesia Index, September-November 2025

18 stocks

BBCA, BBRI, BMRI, TLKM, ASII, BBNI, AMMN, AMRT, GOTO, TPIA, CPIN, INDF, KLBF, ICBP, BRPT, UNTR, DSSA, CUAN

Additions: CUAN, DSSA

Deletion: ADRO

Macro VBA Script: Add title text 'Figure 3.X' to all slides in PowerPoint

Sub AddFigureTitleToAllSlides()

    Dim sld As Slide

    Dim shp As Shape

    Dim slideIndex As Integer

    Dim titleSet As Boolean

    For Each sld In ActivePresentation.Slides

        slideIndex = sld.slideIndex

        titleSet = False

        ' Try to find and set the title placeholder if it exists

        For Each shp In sld.Shapes

            If shp.Type = msoPlaceholder Then

                If shp.PlaceholderFormat.Type = ppPlaceholderTitle Then

                    shp.TextFrame.TextRange.Text = "Figure 3." & slideIndex

                    titleSet = True

                    Exit For

                End If

            End If

        Next shp

        ' If no title placeholder, add a textbox at the top

        If Not titleSet Then

            Set shp = sld.Shapes.AddTextbox( _

                Orientation:=msoTextOrientationHorizontal, _

                Left:=50, Top:=20, Width:=600, Height:=50)

            With shp.TextFrame.TextRange

                .Text = "Figure " & slideIndex

                .Font.Size = 28

                .Font.Bold = True

            End With

        End If

    Next sld

    MsgBox "Titles 'Figure X' added to all slides.", vbInformation

End Sub

MSCI Indonesia Index, June-August 2025

17 stocks

BBCA, BBRI, BMRI, TLKM, ASII, BBNI, AMMN, ADRO, AMRT, GOTO, TPIA, CPIN, INDF, KLBF, ICBP, BRPT, UNTR

Rebalancing MSCI Edisi 2025 : Ini Deretan Siapa Masuk & Keluar!