【背景】

想对单元格内的换行符全部批量删除，参考CSDN和Word VBA的帮助文件，提到的关于tables(1)这种后面无法获取使用Delete和Select的点属性

【思路】

为了避免无法使用Delete的点属性，换做全文筛选换行符，判断换行符是否在表格内，若在表格内则删除，不在则继续判断

【代码】

ListID = strfind( Word.ActiveDocument.Content.Text , char(13) );

if ~isempty( ListID ) Word.Selection.Find.Forward = true; Word.Selection.Find.Wrap = 0; Word.Selection.Start =0;Word.Selection.End =0; for kk = length( ListID ):-1 : 1 a = Word.Selection.Find.Execute( char(13) ); if a~=1|| Word.Selection.Range.Information(12) ~= 1;continue;end CurrID_Start = Word.Selection.Start; CurrID_End = Word.Selection.End; % 获取换行符后面的字符 Word.Selection.Start=CurrID_Start+1; Word.Selection.End=CurrID_End; % 表格内不保留换行符 if app.CheckBox_20.Value == 1 && strcmp(app.CheckBox_20.Enable,'on')==1 if ~isempty(Word.Selection.Text)&&~strcmp(Word.Selection.Text,char(32)) && ... ~strcmp(Word.Selection.Text,char(13)) Word.Selection.Start=CurrID_Start; Word.Selection.End=CurrID_End; Word.Selection.Delete; end end end end

免责声明：本文系网络转载或改编，未找到原创作者，版权归原作者所有。如涉及版权，请联系删