Hi,
The following code works properly in Word, but while I'm copying converted text by this code, from Word to Publisher in some reason tab position has changing. Second And third are on left position instead of right.
Thanks

    Dim oRng As Range
    Set oRng = ActiveDocument.Range
    With oRng.Find
    Do While .Execute(FindText:="RAMKA", MatchWholeWord:=True)
    oRng.End = ActiveDocument.Range.End
    If oRng.Paragraphs.Count > 1 Then
    oRng.Start = oRng.Paragraphs(2).Range.Start
    oRng.Select 


End If
              With oRng
                .Font.Name = "Arial Narrow"
                .Font.Size = 8
                With .ParagraphFormat
                    .LeftIndent = CentimetersToPoints(0)
                    .RightIndent = CentimetersToPoints(0)
                    .SpaceBefore = 0
                    .SpaceBeforeAuto = False
                    .SpaceAfter = 0
                    .SpaceAfterAuto = False
                    .LineSpacingRule = wdLineSpaceMultiple
                    .LineSpacing = LinesToPoints(0.9)
                    .Alignment = wdAlignParagraphJustify
                    .WidowControl = True
                    .KeepWithNext = False
                    .KeepTogether = False
                    .PageBreakBefore = False
                    .NoLineNumber = False
                    .Hyphenation = True
                    .FirstLineIndent = CentimetersToPoints(0)
                    .OutlineLevel = wdOutlineLevelBodyText
                    .CharacterUnitLeftIndent = 0
                    .CharacterUnitRightIndent = 0
                    .CharacterUnitFirstLineIndent = 0
                    .LineUnitBefore = 0
                    .LineUnitAfter = 0
                    .MirrorIndents = False
                    .TextboxTightWrap = wdTightNone
                    .TabStops.ClearAll
                    .TabStops.Add Position:=CentimetersToPoints(3), _
                    Alignment:=wdAlignTabRight, Leader:=wdTabLeaderSpaces
                    .TabStops.Add Position:=CentimetersToPoints(3.3), _
                    Alignment:=wdAlignTabRight, Leader:=wdTabLeaderSpaces
                    .TabStops.Add Position:=CentimetersToPoints(3.88), _
                    Alignment:=wdAlignTabRight, Leader:=wdTabLeaderSpaces
                End With
            End With
            Exit Do
        Loop
    End With
lbl_Exit:
    Set oRng = Nothing
End Sub