偶看新闻针灸脑梗塞:Matlab读取Word文本
来源：百度文库 编辑：偶看新闻 时间：2024/05/08 07:35:11
clc
clear
f = [pwd '\测试.doc'];
try
Word = actxGetRunningServer('Word.Application'); %启动word引擎
catch
Word = actxserver('Word.Application');
end;
Word.Visible = 1; % 或set(Word, 'Visible', 1); %设置可见
if exist(f,'file'); %测试文件存在的话
Document = Word.Documents.Open(f); %获得文档的对象Document
else %不存在则创建添加
Document = Word.Documents.Add;
Document.SaveAs(f); %保存文档
end
Selection = Word.Selection; %光标所在处
Selection.Start=0;
a=[];
num=Document.Range.end;
ii=0;
while ii<=num
ii=ii+1;
a=[a,Selection.text];
Selection.MoveRight; %光标向右移动一格
end
a=a(1:num) %取文本有内容的部分，也许由于汉字占有两个字节，所以一般读取后a的长度都是文本长度的两倍左右。
clear
f = [pwd '\测试.doc'];
try
Word = actxGetRunningServer('Word.Application'); %启动word引擎
catch
Word = actxserver('Word.Application');
end;
Word.Visible = 1; % 或set(Word, 'Visible', 1); %设置可见
if exist(f,'file'); %测试文件存在的话
Document = Word.Documents.Open(f); %获得文档的对象Document
else %不存在则创建添加
Document = Word.Documents.Add;
Document.SaveAs(f); %保存文档
end
Selection = Word.Selection; %光标所在处
Selection.Start=0;
a=[];
num=Document.Range.end;
ii=0;
while ii<=num
ii=ii+1;
a=[a,Selection.text];
Selection.MoveRight; %光标向右移动一格
end
a=a(1:num) %取文本有内容的部分，也许由于汉字占有两个字节，所以一般读取后a的长度都是文本长度的两倍左右。
matlab 读取dat文件
vb6 读取文本
读取文本 数据库 乱码
如何用matlab读取视频
怎么一行一行读取文本内容,
word文本的使用
word文本设置问题
PDF文本转换Word
公式 文本 低半行 word
不能读取word文件是怎么回事？
Word文本在那下载
word文本如何平均分栏
wps怎么打开word文本？
WORD文本批量转EXECEL
如何进行word文本操作
word中数字变文本
怎样用word文本制作文章
怎么通过matlab程序读取数据库中的内容呢？
问个关于matlab得mat数据读取问题
word文本中如何插入excel文本格式
MOTO TXT 如何读取TF卡上的文本？
怎样用asp实现从数据库读取文本的分段
txt文本读取软件有什么比较好的，介绍
为什么MP3的文本文档里的文字不能读取？