Alternate styling in word [With Macro]

Call me lazy,

I would rather write a script to do alternate bold and not bold of paragraphs than do it manually.

So, here is the script

sub i_am_not_lazy()

Dim para As Paragraph
Dim i As Integer
i = 1
For Each para In Selection.Paragraphs
If i Mod 2 = 0 Then
para.Range.Font.Bold = True
Else
para.Range.Font.Bold = False
End If
i = i + 1
Next

end sub



here is the result...



Dear aaa,

I am not trying to be lazy but I have some 50 plus questions

and

 I have to insert answers in between them in BOLD.

I am trying to find out if we have some smart idea to do.

Thank you for your post. I really was not looking for using CTRL B button because I have to press it everytime I enter answers.

Your response for putting macros seemed useful, but I still did not get how to use it.

Can you please guide me through the steps?

Thank you so much

aaa!!

find and replace in batch in excel

Sub ReplaceText()
 'value to replace in D, value to be replaced by in E
For Each vCell In Range("d1:d49").Cells 'range to replace b
Columns("b:b").Cells.Replace What:=vCell, Replacement:=vCell.Offset(0, 1).Value, LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False Next vCell
End Sub

Move multiple rows to Coulmns

Problem:

I took data from field which are like this

18-11	16-11	4-11	31-13	1-6	7-10	34-11	5-16
3	_	3	_	3	3	1	2
26-16	4-14	26-1	18-9	27-15	15-7	28-13	26-14
3	3	3	5	7	1	5	1

but I want convert it to

18-11	3
16-11	_
4-11	3
31-13	_
1-6	3
7-10	3
34-11	1
5-16	2
26-16	3
4-14	3
26-1	3
18-9	5
27-15	7
15-7	1
28-13	5
26-14	1

 

So, here is the macro

Sub alternateRowsToCol()
    Application.ScreenUpdating = False
    Dim row, col As Integer
    row = Sheets("Sheet3").UsedRange.Rows.Count
    col = Sheets("Sheet3").UsedRange.Columns.Count
    
    
    For i = 1 To row Step 2
    Sheets("Sheet3").Activate
  
    Sheets("Sheet3").Range("A" & CStr(i) & ":X" & CStr(i + 1)).Select
    ' X here is because I have 24 rows but in example just 8
    Selection.Copy
    Sheets("Sheet4").Activate
  
    Sheets("sheet4").Range("A" & CStr(24 * ((i - 1) / 2) + 1)).Select
    ' 24 here is because I have 24 rows but in example just 8
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
  
    Next i
    Application.ScreenUpdating = True
   
End Sub

Insert n rows after each row in EXCEL

Sub InsertRows()
Application.ScreenUpdating = False
Dim numRows As Integer
Dim r As Long
r = Cells(Rows.Count, "A").End(xlUp).Row
numRows = 2
For r = r To 1 Step -1
Worksheets(4).Rows(r + 1).Resize(numRows).Insert
Next r
Application.ScreenUpdating = True
End Sub

split a word with

Have you ever needed to split a word with certain character, yes I do, Mostly with _ or -

here you go, an excel macro

Function split1(text) 

split1 = Split(text, "_")(0) 

End Function 

Function split2(text) 

split1 = Split(text, "_")(1) 

End Function

INDEX and MATCH in EXCEL

So, I needed to replace a number and its related value. So easy, the formula is

=INDEX($I$2:$I$7,MATCH(B2,$H$2:$H$7,0))