因为Onenote定位的是笔记本,所以本身并不带有首行缩进功能。下面来介绍如何用其它辅助手段来实现这个功能。楼主现在用的是onenote2016,其它版本未测试过这个方法,不过应该是可行的。

首先下载和安装Onetastic这个插件,这个插件目前是免费的,分为32位和62位,在下载时要根据自己的实际情况进行选操。软件的官网地址是:onetastic下载。觉得英文看不习惯的,可以到我的网盘中下载:网盘地址

安装完成后就会发现Onenote开始栏的右边多了一些选项,如图1,选择“新建宏”。

Microsoft OneNote 如何快速实现首行缩进的功能

在弹出的窗口中选择“导入”,然后复制下面的代码:

<?xmlversion="1.0"encoding="utf-16"?>

<Macroname="选定部分首行缩进"category="排版"

description="将选定部分的段落首行缩进两个字符,

不用全部选中。如果想把整页都缩进,Ctrl+A全选即可(不能有图片,不然会报错)">

<ModifyVarname="BreakLine"op="set"value=""/>

<Foreach="Paragraph">

<ThathasProp="selection"op="eq"value="partial"/>

<ThathasProp="alignment"op="eq"value="left"/>

<Undera="Outline"/>

<Inserttype="Text"atIndex="0">

<ModifyPropname="value"op="add"var="BreakLine"/>

</Insert>

</For>

<Foreach="Paragraph">

<ThathasProp="selection"op="eq"value="all"/>

<ThathasProp="alignment"op="eq"value="left"/>

<Undera="Outline"/>

<Inserttype="Text"atIndex="0">

<ModifyPropname="value"op="add"var="BreakLine"/>

</Insert>

</For>

</Macro>

之后选择“确定”。选择想要首行缩进两个字符的段落,不用全部选中,如果想把整页都缩进,Ctrl+A全选即可。然后选择“开始”–“宏”–“排版”–“选定部分首行缩进”,就可达到效果。

这个宏的思路就是在每一段前面添加8个空格,楼主用的是“微软雅黑”,10.5号字体,8个空格正好相当于2个字节。如果是其它字体,修改第5行中的“value=""”就好,想要几个空格就改为几个空格。

如果在onenote中使用tab键进行分级了,那个这个代码就不太好使了。可以用下面的这个代码近似替代:

<?xmlversion="1.0"encoding="utf-16"?>

<Macroname="首行缩进_新"category="排版"description="将要缩进的部分选中,按两次Tab键。"version="10">

<ModifyVarname="BreakLine"op="set"value=""/>

<Foreach="Paragraph">

<ThathasProp="alignment"op="eq"value="left"/>

<Undera="Outline"/>

<IfPropname="indent"op="eq"value="2">

<Inserttype="Text"atIndex="0">

<ModifyPropname="value"op="add"var="BreakLine"/>

</Insert>

</IfProp>

</For>

<Foreach="Paragraph">

<ThathasProp="alignment"op="eq"value="left"/>

<Undera="Outline"/>

<IfPropname="indent"op="eq"value="2">

<ModifyPropname="indent"op="set"value="-1"/>

</IfProp>

</For>

</Macro>

按照上面的步骤导入后,将要进行首行缩进的段落选中,按两次tab键(目的是让其相对于其父级缩进两个tab键)。然后再运行宏“首行缩进_新“即可。

添加于:2016年2月10日20:28:00

第一个宏“选定部分首行缩进”,如果文本中包含图片,那么onetastic就会报错,至于为什么会报错,我也还没有弄清楚。所以,就又写了一个全部文本首行缩进的宏,这个在有图片时也能进行操作。

<?xmlversion="1.0"encoding="utf-16"?>

<Macroname="全部文本首行缩进"category="排版"description="全部文本首行缩进(含有图片不影响)"version="10">

<ModifyVarname="BreakLine"op="set"value=""/>

<Foreach="Paragraph">

<ThathasProp="text"op="not"value=""/>

<ThathasProp="alignment"op="eq"value="left"/>

<Undera="Outline"/>

<Inserttype="Text"atIndex="0">

<ModifyPropname="value"op="add"var="BreakLine"/>

</Insert>

</For>

</Macro>

发表评论

您的电子邮箱地址不会被公开。 必填项已用*标注