Developer technologies Visual Basic for Applications

1 answer

Word Find second occurrence

Hello from Steve I have two "Word Files: opened Window 1 and Window 2 Objective please is to find second occurrence and selecting the text to copy using the below script Window 1 7 PLATINUM NORWAY Now find using the below script to find it in Window…

asked

SteveD 150

edited the question

simo-k 80,030 Volunteer Moderator

2 answers

Word How to loop

Hello from Steve How do I put in the below Script please Sub Scratched() Selection.Find.ClearFormatting With Selection.Find .Text = "Scratched" .Replacement.Text = "" .Forward = True .Wrap = wdFindStop …

asked

SteveD 150

edited the question

simo-k 80,030 Volunteer Moderator

1 answer

Excel Row Height

Hello from Steve I would like please only Row 1 to Row 300 to have row height adjusted. Sub RowHeight() Cells.Select Selection.RowHeight = 20.25 End Sub Mod moved from : Microsoft 365 and Office | Excel | For home | Windows

asked

SteveD 150

edited the question

simo-k 80,030 Volunteer Moderator

2 answers

Word dollar blue no hightlight

Hello from Steve I need the below please dollar blue no hightlight Sub Dollar_Dollar_Blue_No_Highlight2() Selection.Find.ClearFormatting Selection.Find.Font.Size = 12 With Selection.Find .Text = "$" .Replacement.Text =…

asked

SteveD 150

commented

SteveD 150

2 answers

Rename Module

I want to rename a module in my VB project in Excel

asked

Donnie Urbano 0

answered

Nancy Vo (WICLOUD CORPORATION) 2,900 Microsoft External Staff Moderator

2 answers

Using VBA to select text.

Hello from Steve Is this possible please to select text 5PBPX using VBA Mod moved from : Microsoft 365 and Office | Word | For home | Windows

asked

SteveD 150

commented

SteveD 150

2 answers

Word Color Red and Highlight Yellow

Hello from Steve I would like to please have the below script Color Red and Highlight Yellow Sub Dollar_Colour_Red_Bold() Options.DefaultHighlightColorIndex = wdYellow With Selection.Find .ClearFormatting .Font.Size = 12 .Text =…

asked

SteveD 150

commented

SteveD 150

2 answers

Worksheet protection for users

I want to protect worksheets for users and grand vba all rights to adjust cells and add and delete listrows on tables

asked

Carlusha99 0

answered

Jack Dang (WICLOUD CORPORATION) 16,925 Microsoft External Staff Moderator

2 answers

vba: Find and replace only one.

Hello from Steve Find and replace on a single find. VBA Sub AddZeroBeforeThreeDigits() With Selection.Find .ClearFormatting .Replacement.ClearFormatting ' Find any 3-digit number as a group .Text =…

asked

SteveD 150

commented

Taki Ly (WICLOUD CORPORATION) 925 Microsoft External Staff Moderator

2 answers

trying to open a document in Word VBA using Document.Open command, command failed

got runtime error 4198, command failed; filename and path much less that 219 character limit

asked

Edward Evans 40

commented

Leon Tran (WICLOUD CORPORATION) 1,740 Microsoft External Staff Moderator

2 answers

vba: I would like to add bold attribute to certain words (names) in an array

Hello from Steve I would like to please add bold text Sub Rename_Trainers() Dim FindArray As Variant Dim ReplArray As Variant Dim i As Long FindArray = Array("RICHARDSON NORV", "D & B WEATHERLE", "THURLOW O'MALLE",…

asked

SteveD 150

edited the question

simo-k 80,030 Volunteer Moderator

1 answer

Word if not found then

Hello from Steve Objective if not found then move to next Sub Moving_Numerals() Application.ScreenUpdating = False Do Selection.Find.ClearFormatting Selection.Find.Font.Size = 12 With Selection.Find .Text = "|" .Replacement.Text =…

asked

SteveD 150

commented

Surya Amrutha Vaishnavi Lanka (INFOSYS LIMITED) 2,035 Microsoft External Staff

2 answers

Listened to Co Pilot

Hello from Steve Now all I need please is to open Sub OpenForm2() Const strFolder As String = "C:\Tab Form\Input Stakes" Dim doc As Document With Application.FileDialog(FileDialogType:=1) ' 1 = msoFileDialogOpen .Filters.Clear …

asked

SteveD 150

commented

Nancy Vo (WICLOUD CORPORATION) 2,900 Microsoft External Staff Moderator

2 answers

Word script is not functioning.

Hell from Steve The below script is not functioning, What is required please Sub Rename_Trainers() Dim FindWords As Variant, ReplaceWords As Variant Dim i As Integer FindWords = Array("MCKAY HARRINGTO", "WALKER BERGERSO",…

asked

SteveD 150

commented

SteveD 150

4 answers

Excel Delete the numerals

Hello from Steve The below works perfectly I would like please to take it to another step. At this time It has moved X0312 to the left cell Can it now delete X0312 Leaving Hephaestus Sub CopyNumbersOnly() Dim cell As Range, num As String, ch As String,…

asked

SteveD 150

commented

Surya Amrutha Vaishnavi Lanka (INFOSYS LIMITED) 2,035 Microsoft External Staff

1 answer

Word find only Font 12

Hello from Steve How do I please only find font 12 Sub ReplaceMultipleNames() Dim FindWords As Variant, ReplaceWords As Variant Dim i As Integer FindWords = Array("WALKER BERGERSO", "Orange", "Banana") ReplaceWords =…

asked

SteveD 150

commented

Varsha Dundigalla(INFOSYS LIMITED) 4,865 Microsoft External Staff

2 answers

vba: Find/Replace digits and formatting That replacement text contains a group number that's out of range

Hello from Steve Objective is when three digits found put a zero in at the beginning. That replacement text contains a group number that's out of range Sub AddZeroBeforeThreeDigits() With Selection.Find .ClearFormatting …

asked

SteveD 150

commented

Nancy Vo (WICLOUD CORPORATION) 2,900 Microsoft External Staff Moderator

1 answer

In word if four numerals located add a zero at the beginning.

Hello from Steve How do I do in VBA the below please. In word if four numerals found add a zero at the beginning.

asked

SteveD 150

commented

SteveD 150

2 answers

Find font 12

Hello from Steve Objectives replace with font 12 Sub AddZeroBeforeThreeDigits() With Selection.Find .ClearFormatting .Replacement.ClearFormatting .Text = "([0-9]{2})" .Replacement.Text = "000\1" .Forward =…

asked

SteveD 150

commented

SteveD 150

2 answers

vba: Compile Error: Expected variable or procedure, not module

Hello from Steve Compile error: Expected variable or procedure, not module Sub AddZeroBeforeThreeDigits() With Selection.Find .ClearFormatting .Replacement.ClearFormatting ' Find any 3-digit number as a group .Text =…

asked

SteveD 150

commented

SteveD 150

Developer technologies | Visual Basic for Applications

Filter

Content

1,624 questions with Developer technologies | Visual Basic for Applications tags

Word Find second occurrence

Word How to loop

Excel Row Height

Word dollar blue no hightlight

Rename Module

Using VBA to select text.

Word Color Red and Highlight Yellow

Worksheet protection for users

vba: Find and replace only one.

trying to open a document in Word VBA using Document.Open command, command failed

vba: I would like to add bold attribute to certain words (names) in an array

Word if not found then

Listened to Co Pilot

Word script is not functioning.

Excel Delete the numerals

Word find only Font 12

vba: Find/Replace digits and formatting That replacement text contains a group number that's out of range

In word if four numerals located add a zero at the beginning.

Find font 12

vba: Compile Error: Expected variable or procedure, not module