I tried several of the suggestions and they didn't work.
What eventually did work was this,
Thanks all for your assistance.Code:Dim strt As Integer = rng.Start rng.Text = _schn & Environment.NewLine & Environment.NewLine rng = docAChap.Range(Start:=DirectCast(strt, Object), End:=DirectCast(docAChap.Content.End, Object)) rng.Font.Bold = 1 rng.ParagraphFormat.Alignment = Word.WdParagraphAlignment.wdAlignParagraphCenter
Going to work on the file now...




Reply With Quote
