word怎么把一大段内容复制到一行行的格子里将一格word内容复制到多格

如题所述

第1个回答  2024-05-06
1.先在尺标调整右缩进使文字宽度适当,文字设置为红色,然后运行此宏:Sub ins_enter()'by sylun excelhome'行末加硬回车for word2003Application.ScreenUpdating = FalseWith ActiveDocument.Content.Find.ClearFormatting.Font.Color = wdColorRed.Format = TrueDo While .Execute.Parent.SelectWith SelectionDo.MoveStart wdLine, wdExtendIf .Previous Like \"[!\" & Chr(11) & \"-\" & Chr(13) & \"]\" Then .InsertBefore Chr(13).Start = .Start + 1Loop Until .Type = wdSelectionIPEnd WithLoopEnd WithApplication.ScreenUpdating = TrueEnd Sub2.复制加过硬回车的段落,选择相应数量的表行,粘贴