使用perl脚本获取ms-word文件中的所有普通样式
Perl脚本是一种通用的脚本编程语言，它具有强大的文本处理能力和广泛的模块库支持。使用Perl脚本获取MS Word文件中的所有普通样式可以通过以下步骤实现：
- 安装Perl环境：在使用Perl脚本之前，需要先安装Perl解释器。可以从Perl官方网站（https://www.perl.org/）下载适合自己操作系统的Perl版本，并按照安装指南进行安装。
- 安装相关模块：为了处理MS Word文件，需要安装一些Perl模块。可以使用CPAN（Comprehensive Perl Archive Network）来安装这些模块。打开终端或命令提示符，输入以下命令安装所需模块：
- 安装相关模块：为了处理MS Word文件，需要安装一些Perl模块。可以使用CPAN（Comprehensive Perl Archive Network）来安装这些模块。打开终端或命令提示符，输入以下命令安装所需模块：
- 这些模块将提供与MS Word文件交互的功能。
- 编写Perl脚本：创建一个新的文本文件，将其命名为
get_word_styles.pl，并使用文本编辑器打开。然后，将以下代码复制到文件中： - 编写Perl脚本：创建一个新的文本文件，将其命名为
get_word_styles.pl，并使用文本编辑器打开。然后，将以下代码复制到文件中： - 请将
path/to/your/document.docx替换为实际的MS Word文档路径。 - 运行Perl脚本：保存并关闭
get_word_styles.pl文件后，在终端或命令提示符中导航到该文件所在的目录，并运行以下命令： - 运行Perl脚本：保存并关闭
get_word_styles.pl文件后，在终端或命令提示符中导航到该文件所在的目录，并运行以下命令： - 脚本将打开指定的MS Word文档，并输出所有普通样式的名称。
这样，你就可以使用Perl脚本获取MS Word文件中的所有普通样式了。
对于这个问题，腾讯云没有直接相关的产品或服务。但是，腾讯云提供了云计算基础设施、人工智能、大数据等一系列服务，可以帮助用户构建和部署各种应用。如果你有其他关于云计算、IT互联网领域的问题，欢迎继续提问。
相关·内容
3回答
使用win32:ole perl逐行读取MS Word表格数据
perl、ms-word、perl-module、win32ole
我是第一次接触Win32: perl中的ole模块。我正尝试在命令提示符上按行打印MS word表格数据。但是我只能打印表的最后一行。你能帮我解决这个问题吗？提前谢谢。
下面是我的代码：
#!/usr/bin/perl
use strict;
use warnings;
use File::Spec::Functions qw( catfile );
use Win32::OLE qw(in);
use Win32::OLE::Const 'Microsoft Word';
$Win32::OLE::Warn = 3;
my $word = get_word();
浏览 3提问于2012-11-02得票数 6
我正在尝试将两个文档合并到新的文档文件中，但是在下面的代码中出现了错误。
use strict;
use Win32::OLE;
use Win32::OLE::Const 'Microsoft Word';
$meta_file_path = "D:\\copyfrom.doc";
$main_file_path = "D:\\copyto.doc";
my $x = Win32::OLE->GetActiveObject('Word.Application') ;
浏览 3提问于2015-02-24得票数 0
回答已采纳
1回答
我试图使用以下代码打开一个.docx文件：
require Win32::OLE;
my $docfile = "C:/Users/me/Documents/file.docx";
my $Word = Win32::OLE->GetActiveObject('Word.Application');
unless ($Word) { $Word = Win32::OLE->new('Word.Application', sub {$_[0]->Quit;}) or die "oops\n"; }
$Word-&g
浏览 1提问于2016-11-17得票数 1
回答已采纳
2回答
如何从MS Word中提取文本？
perl、ole、win32ole
我试图打开一个word文档，只需提取文档中的所有文本，并使用将其显示给用户
#usr/bin/perl
#OLEWord.pl
#Use string and print warnings
use strict;use warnings;
#Using OLE + OLE constants for Variants and OLE enumeration for Enumerations
use Win32::OLE;
use Win32::OLE::Const 'Microsoft Word';
$Win32::OLE::Warn = 3;
#set the file
浏览 0提问于2011-07-15得票数 3
回答已采纳
1回答
发布于Win32 32：：OLE的Perl与MS Office 2013 (32位)
perl、winapi、ms-word、ole
我有一个使用Win32 32：：OLE访问MS文件的Perl脚本。它在MS 2010中运行得很好，但在我更新到MS 2013 32位之后就没有了。
然后，我尝试使用最新版本的ActivePerl，包括32位和64位。我使用的是Windows7 SP1 64位。
当关闭MS和调用Win32::OLE->new('Word.Application', 'Quit')时，错误出现在下面的行中：
my $Word = Win32::OLE->GetActiveObject('Word.Application') || Win32::OLE-
浏览 3提问于2015-08-12得票数 0
回答已采纳
1回答
使用PERL和Win32::OLE在命令行上操作Word文档，但不能从BuildForge步骤操作
perl、win32ole、buildforge
我有功能的PERL脚本，用于更新Word文档。PERL脚本编码为可与MS Office 2003或2007一起使用。我尝试通过BF进行更新的计算机上安装了Office 2003，安装了适当的模板，宏安全性设置也已更新。
当我在命令行上运行我希望BF使用的确切命令时，它可以正常工作。当我通过BF步骤运行它时，我得到“* Unable to open doc at Perl line 94”(行号是\servername\projectname\bin\updateVer.pl脚本中的croak )。
脚本看起来就像这样：
# enable Sanity checking and make the
浏览 14提问于2016-07-23得票数 0
2回答
如何使用Perl中的Win32 32：：Ole对docx文件中的特定单词应用格式设置？
perl、formatting、win32ole
例如，我的docx文件包含以下句子：
这是一个Perl示例。
这是一个Python示例
这是另一个Perl示例。
我想将粗体样式应用于所有出现的单词"Perl“，如下所示：
这是一个Perl示例。
这是一个Python示例
这是另一个Perl示例。
到目前为止，我已经想出了以下脚本：
use strict; use warnings;
use Win32::OLE::Const 'Microsoft Word';
my $file = 'E:\test.docx';
my $Word = Win32::OLE->new('Word.Ap
浏览 3提问于2010-09-23得票数 3
回答已采纳
使用Win32::OLE我能够阅读word文档中的表格和段落。但是我想从word文档中读取图片/图像，有没有获取图片的功能？
下面是阅读表格和段落的代码。
$Word = Win32::OLE->GetActiveObject('Word.Application') || Win32::OLE->new('Word.Application');
$Word->{'Visible'} = 0;
$Word->{DisplayAlerts} = 0;
my $document = $Word->Document
浏览 4提问于2013-05-02得票数 0
回答已采纳
1回答
Perl匹配括号内的任何内容，将每个实例分组。
regex、perl
我正试图从内括号中抓取任何东西(确保只匹配第一个结束括号])。
我在用
$text=~ /\[(\w+)]/gmi
若要在此文件中查找所有7个匹配项，请执行以下操作。
Testing Testing Testing
[Test]
[Test][TestTest][PPPP]
[Test] [TestTest] [PPPP]
Test]
它只在每一行中获取Test的第一个实例，即使多行匹配设置为/m。
我试图返回括号内的每个字符串，没有其他任何内容(例如，没有选择Test])。
我在RegEx解析器中尝试了这个表达式。这意味着它应该返回所有7场比赛。
use strict;
use warnin
浏览 2提问于2015-02-18得票数 1
回答已采纳
1回答
Win32:对Word的OLE调用不适用于visible=0，通过SSHD执行远程脚本
perl、ssh、ole、win32ole
使用ssh远程访问Windows 2008 R2 / perl 5.14.1 x64 /Word 2010管理员帐户在Windows服务器上运行的WinSSHD。这个perl脚本在(local，Admin)命令行中运行良好：
use warnings;
use strict;
use Win32::OLE;
use Win32::OLE::Const 'Microsoft.Word'; # wd constants
use Win32::OLE::Const 'Microsoft Office 14.0 Object Library'; # mso c
浏览 5提问于2011-07-28得票数 1
1回答
使用perl脚本获取ms-word文件中的所有普通样式
perl、ms-word
我有Ms-Word文档文件(可能也是*DOCX )，我需要使用perl脚本获取文档中使用的所有样式。 我已经尝试了搜索引擎中的一些代码，但我失败了。 use Win32::OLE;
use Win32::OLE::Enum;
use File::Copy;
#use strict;
my $fileName = "d:\\test.doc";
my $document = Win32::OLE -> GetObject($fileName);
#Creating a new excel sheet
#my $xl_app=Win32::OLE->new('
浏览 13提问于2020-11-25得票数 1
回答已采纳
1回答
在Perl中关闭文档时获取OLE异常
perl、ms-word、win32ole
我在perl中得到了下面的异常。另外，我现在要学习perl技术。例外是：
Win32::OLE<0.1709> error 0x800a1423
in METHOD/PROPERTYGET "Close" at getWordComments.pl line no 350
下面是getWordComments.pl的示例代码，其中异常正在开始。
( A)打开文档的代码如下
#Open the document in MS Word
use Win32::OLE;
{
no warnings;
use Win32::OLE::Const
浏览 0提问于2012-04-17得票数 0
1回答
Perl ole选择属性迭代
perl、ms-word、selection、ole
我搜索了答案，但没有找到答案，所以我在stackowerflow注册。我正在尝试使用perl编写简单的win32脚本，它将遍历所有M$ word段落(任何以硬返回结尾的文本)，并只打印那些符合指定条件的段落。问题是我需要访问字体大小属性。在我看来，这个属性在第一段中只设置了一次，以后就不会更新了。请参考以下代码：
#!/usr/bin/perl
use strict;
use warnings;
use Win32::OLE::Const 'Microsoft Word';
#$Win32::OLE::CP = CP_UTF8;
binmode STDOUT, 'enc
浏览 3提问于2012-08-22得票数 2
4回答
从Word表格中提取原始数据？使用Perl
perl、ms-word、automation、win32ole
我试图从Word文档中的多个表中提取数据。当试图将表中的数据转换为文本时，我会得到一个错误。ConvertToText方法有两个可选参数(如何分离数据，以及布尔值).Here是我当前的代码：
#usr/bin/perl
#OLEWord.pl
#Use string and print warnings
use strict;use warnings;
#Using OLE + OLE constants for Variants and OLE enumeration for Enumerations
use Win32::OLE qw(in);
use Win32::OLE::Const
浏览 8提问于2011-07-19得票数 1
回答已采纳
1回答
Perl使用Word OLE抑制另存为对话框
perl、dialog、ole
我有一个我正在运行的perl脚本，它使用Microsoft Word OLE并对我传递给它的内容运行拼写检查。我遇到了一个问题，因为我没有保存文件或文档，所以当我尝试退出word时，它会要求我保存一些内容(提示另存为)。
我需要能够抑制此消息或欺骗文档，使其认为它已经保存。这是可能的吗?或者你能想出另一个解决方案吗？
我尝试了DisplayAlerts =0，但似乎也没有帮助。
sub LaunchSpellcheck
{
#Check the version to see if there are updates.
checkVersion();
#Open up MS Word and
浏览 0提问于2013-10-28得票数 2
2回答
在Perl中将闭包作为句柄打开
perl、closures、handles
所以我有了这个疯狂的想法。现在，我正在使用Text::CSV_XS在Word中生成一个表，如下所示：
use Win32::OLE;
use Win32::OLE::Const 'Microsoft Word';
use Text::CSV_XS;
# instantiation of word and Text::CSV_XS omitted for clarity
my $select = $word->Selection;
foreach my $row (@rows) { # @rows is an array of arrayrefs
$csv->
浏览 3提问于2013-02-02得票数 3
1回答
如何使用WIN32::OLE perl包导航Word表？
perl、cpan
我有一个包含数百个word文档的目录，每个文档都包含一组标准化的表格。我需要解析这些表并提取其中的数据。我开发了输出整个表的脚本。
#!/usr/bin/perl;
use strict;
use warnings;
use Carp qw( croak );
use Cwd qw( abs_path );
use Path::Class;
use Win32::OLE qw(in);
use Win32::OLE::Const 'Microsoft Word';
$Win32::OLE::Warn = 3;
=d
my $datasheet_dir = "./pat
浏览 0提问于2016-12-22得票数 1
2回答
如何安装.pm以运行perl脚本
windows、perl、scripting、strawberry-perl
我不是perl程序员。我刚刚安装了perl，并试图使用它运行PERL脚本，它在调试模式下给出了以下错误：
Win32 32：：OLE在调试模式下运行: C:/strawberry/perl/vendor/lib/Win32/OLE/Lite.pm第30行的_Unique => 1。需要main 32/OLE/Lite.pm调用在C:/草莓/perl/供应商/lib/main 32/OLE.pm第48行需要在C:\Users\c_desaik\Desktop\pwrdb\offtarget\pwrdb.pl第37行调用main 32/OLE.pmOLE/Lite.pm 0行main::(
浏览 1提问于2013-12-19得票数 2
回答已采纳
2回答
如何使用perl检索文本文件的自定义属性
perl、attributes、text-files
我有一个文本文件，我正在通过Java向它添加一个自定义属性"email“。
现在，我想从perl脚本中提取该属性。
在因特网上搜索之后，我看到了以下代码，它检索文件的所属用户
use Win32::OLE;
my $objShell = Win32::OLE->CreateObject("Shell.Application");
my $objFolder=$objShell->Namespace("c:\\temp") or die "$!" ;
my $a = $objFolder->ParseNa
浏览 5提问于2015-11-24得票数 2
回答已采纳
0回答
使用Python接受MS Word文档中的所有更改
python、docx、python-docx
我希望能够接受来自Python (.docx)文档的所有更改，最好是使用python-docx模块。
我知道如何在Perl中做到这一点(参见下面的参考)，但我希望在我的Python程序中有本机代码来做同样的事情。Ide
有什么想法吗？
use strict;
use Win32::OLE qw(in with valof OVERLOAD);
use Win32::OLE::Const 'Microsoft.Word'; # wd constants
use Win32::OLE::Variant;
$Win32::OLE::Warn = 3;
my $true =
浏览 3提问于2017-12-06得票数 5
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
实时音视频
即时通信 IM
对象存储活动推荐
腾讯云开发者
