![]() |
#19
|
|||
|
|||
![]()
I have added the code below which still showing me the same error
In the excel sheet there are 725 rows try for all the of the rows try to test fully on your end fully then Try to execute fully on your end If you can't solve the problem then tell me clearly don't blame me or rotate try to understand the problem. Simply assuming the problem and giving me a solution. First try to test on your end and then tell me If you are honestly testing you will get error Be prompt in your work donot simply guess and reply Sub RemoveShreeLipiDistortionUsingWildCards1() Application.ScreenUpdating = False Dim objExcel As Object, Counter As Long, i As Long, j As Long Dim StrFnd, StrRep As String Const StrEsc As String = "(){}[]<>-@\!?*" Dim iDataRow As Long Set objExcel = CreateObject("Excel.Application") Set exWb = objExcel.Workbooks.Open(ActiveDocument.path + "\List of ShreeLipi Distortion (1).xlsx") With exWb.Worksheets(1) Counter = .Cells(.Rows.Count, 1).End(-4162).Row 'Counter = .Range("A" & .Cells.SpecialCells(11).Row).End(-4162).Row ' 11 = xlCellTypeLastCell, -4162 = xlUp 'MsgBox Counter 'MsgBox iDataRow 'End For i = 2 To Counter StrFnd = Replace(.Range("A" & i), "^", "^^") StrRep = Replace(.Range("B" & i), "^", "^^") For j = 1 To Len(StrEsc) StrFnd = Replace(StrFnd, Mid(StrEsc, j, 1), "\" & Mid(StrEsc, j, 1)) StrRep = Replace(StrRep, Mid(StrEsc, j, 1), "\" & Mid(StrEsc, j, 1)) Next 'MsgBox StrRep StrFnd = Replace(StrFnd, "^", "^094") With ActiveDocument.Range.Find .ClearFormatting .Replacement.ClearFormatting .Forward = True .Format = False .MatchWildcards = True .Wrap = wdFindContinue .Text = "<" & StrFnd & ">" .Replacement.Text = StrRep .Execute Replace:=wdReplaceAll End With Next i 'exWb.Close False End With Set exWb = Nothing: Set objExcel = Nothing Application.ScreenUpdating = True End Sub |
|
![]() |
||||
Thread | Thread Starter | Forum | Replies | Last Post |
![]() |
BillM | Word | 2 | 03-14-2017 10:49 AM |
![]() |
BZee | Word | 9 | 02-16-2015 05:45 PM |
Replace each heading with a unique numeric value | amitkapoor | Word | 7 | 05-06-2013 03:29 AM |
![]() |
bthart | Word | 1 | 12-29-2011 12:45 AM |
![]() |
paulkaye | Word | 4 | 12-06-2011 11:05 PM |