Showing posts with label TIK. Show all posts
Showing posts with label TIK. Show all posts

Sunday, September 7, 2025

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

Saturday, August 16, 2025

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

Monday, August 11, 2025

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

Tuesday, August 5, 2025

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

Wednesday, July 16, 2025

[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.


Wednesday, June 25, 2025

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

Macro VBA script: Change Font name and size in the 2nd column for all table

 Sub ChangeFontInSecondColumn()

    Dim tbl As Table

    Dim r As Long, c As Long

    Dim cell As cell

    Dim targetCol As Long

    Dim rng As Range

    

    targetCol = 2 ' Second column


    For Each tbl In ActiveDocument.Tables

        With tbl

            For r = 1 To .Rows.Count

                On Error Resume Next ' In case cell(2) doesn't exist in a row

                Set cell = .cell(r, targetCol)

                If Not cell Is Nothing Then

                    Set rng = cell.Range

                    rng.End = rng.End - 1 ' Exclude end-of-cell marker

                    With rng.Font

                        .Name = "STIX Two Text"

                        .Size = 10

                    End With

                End If

                Set cell = Nothing

                Set rng = Nothing

                On Error GoTo 0

            Next r

        End With

    Next tbl


    MsgBox "Font updated in second column of all tables.", vbInformation

End Sub

Monday, May 19, 2025

Word save to pdf, downloaded font not bold

I write a Word file using STIX Two Text, downloaded somewhere. After saving to PDF, the bold formatting is not saved in PDF version.

Solution: 

Try to save pdf using Print, choose Microsoft Print to PDF.

Tuesday, February 18, 2025

Word: How to prevent Update Fields when saving

Follow these steps:
1. Save your document.
2. Press Ctrl+A. This selects your entire document.
3. Press Ctrl+F11. This "locks" all fields, so they are not updated.
4. Print your document or convert it to a PDF file.
5. Close the document without saving

Note: To 'unclocks', press Ctrl+Shift+F11.

Sunday, January 26, 2025

Saya mengalami 'Word found unreadable content ...'

Ada file Microsoft Word tiba-tiba crash saat saya mengedit equation. Saya coba buka lagi, tidak bisa, dengnan pesan error "Word found unreadable content...."

Saya coba fitur 'Open and repair' tidak berhasil. Saya coba Open pakai 'Recover from any file' juga tidak berhasil. Saya coba ganti ekstensi ke .rtf juga tidak berhasil.

Setelah iseng saya buka pakai Google Drive document, ternyata berhasil terbuka. Saya edit sedikit lalu saya download lagi sebagai .docx.

[PROBLEM SOLVED]

Saturday, August 12, 2023

wuauserv cannot be started

My case: 

Windows update service (wuauserv) is not started automatically. When I start manually, few second later, it will stop. Windows 10 Home Edition.

Solution:

There is a running service which prevent Windows update, Stop it.

Run > services.msc

Find "StopUpdates10 Guard", then Stop.

Windows Update Service Keeps Turning Off , Although Set to Automatic (thegeekpage.com)

Thursday, July 29, 2021

Judul bab angka Romawi, Caption gambar/tabel angka Arab, how?

Number the chapter headers with Arabic numerals and then use hidden formatting (ctrl+shift+h) to hide the number and manually write "Chapter I", "Chapter II", etc. It's not the prettiest solution, but I think it's the easiest. ToC should use whatever you've written there so you can manually change that too if you need to.

Wednesday, October 21, 2020

Driver gamepad merk e-Smile

Saya ada gamepad e-Smile, satu port USB dua gamepad.

Menggunakan driver dari Windows sudah bisa dipakai namun tanpa vibration.

Supaya vibration aktif perlu install driver. Ini link unduhnya:

DOWNLOAD

Sukses dicoba di Windows 8.1.

Saturday, October 17, 2020

Merekam layar dan suara sistem dengan PowerPoint 2016

By default, fitur Record Screen di PowerPoint 2016 merekam layar dan suara dari mikrofon.

Kali ini, Saya ingin merekam video streaming dengan fitur Record Screen di PowerPoint. Jadi, sumber suara bukan dari mikrofon tetapi dari video tersebut.

Caranya: Fitur Record Screen menggunakan perekam suara yang dipilih di Control Panel > Sound. By default, perekam adalah Microphone, jadi ubahlah ke Stereo Mix.

Setelah mengubah setting di atas. Cobalah gunakan fitur Record Screen. Seharusnya, layar dan suaranya dapat terekam.

Tuesday, March 10, 2020

Cara menjaga mata tetap adem depan Laptop

Mata saya cepat panas di depan layar laptop/hanfon, padahal sebagian besar kerjaan saya membutuhkan laptop. Beberapa cara pernah saya coba untuk problem ini. Misalnya, install software Eye-Saver untuk mengingatkan supaya istirahat dan senam mata tiap satu jam, lalu install software f.lux untuk memfilter warna biru di layar. Cara pertama agak mengganggu konsentrasi kerja, cara ke dua kurang signifikan.

Kira-kira setahun ini saya coba cara ke tiga, menurut saya suaaangat signifikan, bahkan tidak perlu install software apapun karena sudah ada di Windows. Caranya adalah menggunakan high contrast theme, seperti gambar di bawah ini.



Cara cepat untuk beralih ke theme ini adalah: ALT + SHIFT (kiri) + Print Screen. Warna font juga bisa diatur di Personalization.

Penyebab mata panas adalah banyaknya sinar yang masuk ke mata, terutama sinar-sinar dengan frekuensi tinggi (seperti warna biru). Dengan mode gelap, mata kita terhindar dari banyak warna, sehingga lebih adem dan tahan lama.

Awalnya, saya kurang nyaman dengan tampilan hitam, namun memang perlu waktu bagi otak untuk menerimanya. Bila perlu tampilan normal, misalnya edit gambar, tinggal ALT + SHIFT (kiri) + Print Screen. Dibanding dengan kelemahannya, menurut saya, manfaat High Contrast theme sangat jauh terasa. Cobalah... sayangi mata anda, karena ia adalah anugerah Allah yang luar biasa.

Monday, March 9, 2020

Cara cepat untuk Paste as Picture di Word

Saya punya file Word yang memuat banyak gambar grafik dengan format Windows metafile yang diekspor dari MATLAB. Grafik-grafik ini umunnya berukuran besar karena menyimpan data grafiknya. Saya hanya perlu tampilan grafik sekedarnya, format jpg saja, sehingga ukuran file Word tidak terlalu besar.

Cara manual:
Klik gambar pertama > Cut (Ctrl+X) > Paste (Ctrl+V) > Pilih opsi Paste as Picture.
Klik gambar ke dua > Cut (Ctrl+X) > Paste (Ctrl+V) > Pilih opsi Paste as Picture.
dst... hingga gambar terakhir.

Cara ini cukup melelahkan, terutama ketika Pilih opsi Paste as Picture.

Setelah saya konsul Prof. Google, ternyata opsi Paste as Picture bisa dibuat shortcut keyboard-nya:
Pilih tab File > Options > Costumize Ribbon > klik tombol Customize, lalu muncul kotak di bawah ini.


Seperti gambar di atas, definisikan Ctrl+. sebagai shortcut keyboard untuk Paste as Picture > Tekan Close.

Setelah mendefinisikan shortcut untuk Paste as Picture, caranya menjadi:
Klik gambar pertama > Cut (Ctrl+X) > Paste as Picture (Ctrl+.)
Klik gambar ke dua > Cut (Ctrl+X) > Paste as Picture (Ctrl+.)
dst... hingga gambar terakhir.

Trik ini sangat menghemat energi saya melakukan editing. Alhamdulillah.

Sumber:
https://superuser.com/questions/1330585/shortcut-key-for-pasting-image-as-object

Cara cepat ubah ukuran semua gambar dalam satu file Word

Saya punya file Word yang berisi banyak gambar dengan ukuran width (lebar) dan height (tinggi) yang beragam dan saya ingin menyeragamkan ukuran width untuk semua gambar supaya dokumen nampak rapi.

Cara manual:
Klik gambar pertama > pilih tab Format > ketik ukuran lebar yang diinginkan > Enter
Klik gambar ke dua > pilih tab Format > ketik ukuran lebar yang diinginkan > Enter
dst... sampai gambar terakhir.

Cara ini cukup habiskan waktu, terutama karena mengetik ukuran lebar berkali-kali.

Setelah browsing di Google, saya temukan trik yang cukup efisien:
Klik gambar pertama > pilih tab Format > ketik ukuran lebar yang diinginkan > Enter
Klik gambar ke dua > tekan F4
Klik gambar ke tiga > tekan F4
dst...

Tombol F4 berguna untuk mengulang setting terakhir, dan bisa diterapkan untuk setting yang lain termasuk ubah warna, font, dll. Alhamdulillah, saya bisa menghemat energi banyak sekali.

Sumber:
https://superuser.com/questions/940771/how-can-i-resize-multiple-images-in-a-ms-word-document

Monday, August 19, 2019

Membuka SumatraPDF dengan warna terbalik (invert-colors)

SumatraPDF itu program yang ringan sekali untuk membaca pdf, djvu, epub, dll. Saya suka menggunakan warna terbalik untuk meringankan panas dan lelah di mata.

Caranya menambahkan 'invert-colors' di shortcut SumatraPDF, seperti ini.


Membaca dengan mode ini, tulisan berwarna putih dengan backgroung hitam. That's all.

Friday, August 16, 2019

Menggunakan System File Checker untuk memerbaiki file sistem yang hilang atau rusak


Untuk: Windows 8.1, Windows 8.1 Enterprise, Windows 8.1 Pro

Bila beberapa fitur Windows tidak bekerja dengan baik atau Windows mengalami crash, gunakan System File Checker untuk scan Windows dan mengembalikan file sistem.

Langkah-langkah:
(1) Buka command prompt sebagai administrator
(2) Ketik: DISM.exe /Online /Cleanup-image /Restorehealth
(3) Bila langkah 2 tidak bisa, masukkan DVD instalasi Windows, misalnya di G:\
(4) Lalu ketik: DISM.exe /Online /Cleanup-image /Restorehealth /Source:G:\ /LimitAccess
(5) Tunggu beberapa puluh menit
(6) Ketik: sfc /scannow, tunggu lagi

Langkah (6) mengintruksikan scan pada semua file sistem dan mengganti file-file rusak dengan salinan file dari (2) atau (4) yang disimpan di C:\Windows\System32\dllcache. Jangan tutup Command Prompt sebelum verifikasi 100%.

Hasilnya adalah salah satu dari ini:
(a) Windows Resource Protection did not find any integrity violations.
    (Tidak ada file yang rusak/hilang)
(b) Windows Resource Protection could not perform the requested operation.
    (Scan tidak dapat dilakukan)
(c) Windows Resource Protection found corrupt files and successfully repaired them.
    (File-file yang rusak/hilang berhasil diperbaiki)
(d) Windows Resource Protection found corrupt files but was unable to fix some of them.
    (File-file yang rusak/hilang ditemukan tapi tidak bisa diperbaiki semuanya)

Sumber:
https://support.microsoft.com/en-us/help/929833/use-the-system-file-checker-tool-to-repair-missing-or-corrupted-system

Monday, January 15, 2018

Mengubah Tanggal Laptop dalam 2 Langkah

lisensi MATLAB saya suda habis pada 11 Nop 2017. tapi saya bersyukur masih bisa menggunakannya dengan mengubah tanggal laptop sebelum 11 Nop. MATLAB ini intens sekali saya pakai dalam kerjaan harian, jadi entah berapa kali sehari saya ubah2 tanggal. kalau cara setting biasa, ribet banget rasanya. alhamdulillah ketemu cara cepetnya, begini:
  1. tekan Window + X, lalu tekan A (Command Prompt Admin)
  2. ketik "date 11/1/2017" lalu Enter (Bulan/Tgl/Tahun)
sudah deh... untuk mengembalikannya, langsung ke langkah 2, sesuai tanggal hari ini.
saya menggunakan windows 8.1. sepertinya cara ini bisa untuk windows 8, 8.1, 10. untuk windows 7 dan sebelumnya, wallahu a'lam.

referensi: maaf lupa, dari google