Original message moved by ebgreen Reason : Moved to proper forum Hallo, I have a code belowe. I want first line of text in word (which is always the same) to be read into inputbox.
Sub FindChange() Dim myStoryRange As Range Dim p As Paragraphs Message = "Display text:" Title = "Text" Message_1 = "Display text:" strText = InputBox(Message, Title) repText = InputBox(Message_1, Title)
With Selection.Find .Text = strText .Replacement.Text = repText .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False .Execute Replace:=wdReplaceAll End With End Sub