Sub PDM_csillagos()
Application.ScreenUpdating = False
With ActiveDocument.Range
    .PasteAndFormat (wdFormatPlainText)
    With .Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .Format = False
        .Forward = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
        .Wrap = wdFindContinue
        .Text = """"
        .Replacement.Text = ""
        .Execute Replace:=wdReplaceAll
        .Text = "?"
        .Replacement.Text = ""
        .Execute Replace:=wdReplaceAll
        .Text = "^p"
        .Replacement.Text = "*;"
        .Execute Replace:=wdReplaceAll
        .Text = "*;*"
        .Replacement.Text = "*;"
        .Execute Replace:=wdReplaceAll
        .Text = ";*;"
        .Replacement.Text = ";"
        .Execute Replace:=wdReplaceAll
    End With
    .Copy
End With
Application.ScreenUpdating = True
End Sub