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!

What makes bitcoin enter bear market, according history

2011: Bitcoin plunged from $32 to $2, a staggering 94% decline. This crash was fueled by early-stage market speculation, security flaws in exchanges, and Bitcoin’s status as a relatively unknown asset.

2014-2015: The collapse of Mt. Gox, once the world’s largest Bitcoin exchange, resulted in the loss of approximately 850,000 BTC. Trader confidence took a massive hit, causing Bitcoin’s price to drop from $1,100 to under $200, an 82% decline. This event raised serious concerns about exchange security and the need for stronger regulatory oversight.

2018: The ICO boom of 2017 brought an influx of speculative projects, many of which lacked substance. As regulatory crackdowns increased and fraudulent projects were exposed, market confidence crumbled. Bitcoin tumbled from $20,000 to nearly $3,000, losing 85% of its value.

2022: A series of major industry failures, including the collapse of Terra (LUNA), the depegging of UST, and the bankruptcy of FTX, led to a widespread market meltdown. Bitcoin dropped from its all-time high of $69,000 to around $16,000, a 77% decline. This downturn was further exacerbated by rising interest rates, institutional sell-offs, and regulatory pressures.

Each bear market has had different triggers, from exchange failures and speculation to regulatory shifts and economic downturns.

Flipster Blog | Bitcoin's Bear Market: Understanding the Recent Decline

[Laptop] Screen brightness auto decrease when displaying dark color

Lenovo. Windows 10. Intel HD Graphics.

How to non-active that setting?

Launch Intel HD Graphics setting.

Choose: System > Power.

Display Power Saving, choose OFF.

Macro VBA script: Change 1st column width for all table

 Sub SetFirstColumnWidthInPicas()

    Dim tbl As Table

    Dim r As Long

    Dim desiredWidthPicas As Single

    Dim desiredWidthPoints As Single

    ' Set desired width in picas

    desiredWidthPicas = 30 ' ? Change this as needed

    desiredWidthPoints = desiredWidthPicas * 12 ' Convert picas to points

    For Each tbl In ActiveDocument.Tables

        With tbl

            For r = 1 To .Rows.Count

                On Error Resume Next ' In case cell doesn't exist (e.g. merged)

                With .cell(r, 1)

                    .Width = desiredWidthPoints

                End With

                On Error GoTo 0

            Next r

        End With

    Next tbl

    MsgBox "First column width updated to " & desiredWidthPicas & " picas.", vbInformation

End Sub