精华内容
下载资源
问答
  • 插入题注
    2022-07-04 11:44:05

    菜单——引用——插入题注——自动插入题注——选择“microsoft word 表格”。

    更多相关内容
  • 所以今天来解决这个问题,一劳永逸~~(1)图片下方另起一行,使光标停留在图片下方(2)点击“引用”->“题注”->“插入题注”(3)点击“选项”->“标签”,下拉框中选择图1.,在"题注"中输入图片的名字,点击确定...

    1. 问题描述

    在撰写论文和材料的时候,对图片的处理尤为重要。每一张图片都需要有图注,图注也需要特定格式,编有序号,可能还需要带有图片所在章节,并且在原文里要相应引用。
    一旦插入或者减少某张图片,对于纯手动编辑的作者来说,将是巨大的工作量。所以今天来解决这个问题,一劳永逸~~

    2. 添加图注

    (1)图片下方另起一行,使光标停留在图片下方

    (2)点击“引用”->“题注”->“插入题注”

    (3)点击“选项”->“标签”,下拉框中选择图1.,在"题注"中输入图片的名字,点击确定

    (4)上图中可以选择“编号”,当勾选“包含章节号”时,图题会包含所在章节的章节号。这里我们就不勾选了。

    (5)点击确定就完成啦。

    3. 设置图注样式

    但是,这样生成的题注的格式往往不是我们想要的格式。我想设置的是居中 + 宋体 + 五号字体,所以我们来更改啦。
    (1)把图注调成自己想要的格式。我这里设置的是居中、宋体、五号。

    (2)点击“开始”->"样式"的右下角下的小箭头

    (3)找到"样式"中的"题注",右键。点击“更新题注以匹配所选内容”,即可完成题注的样式设置

    (4)此后,我们加题注,就会是这种格式了。

    4. 引用题注

    (1)在想要引用的部分点一下,让光标停在那儿。

    (2)点击“引用”->“题注”->“交叉引用”

    (3)“引用类型”选择图1.,“引用内容”我这里选的是"仅标签和编号",一般都不会包含图片的名称的。

    (4)点击插入的最后效果,这样以后就可以自动更新了

    5. 设置插入图注快捷键

    一个一个图这样点也太不方便啦,于是干脆设置一个快捷键吧。
    (1)点击"文件"->“更多”->“选项”

    (2)选择"自定义功能区"->键盘快捷方式->“自定义”

    (3)找到类别中的"引用选项卡"和命令"InsertCaption",设置快捷键就完成咯。

    6. 批量设置图注

    我目前知道两种方法,一种是反复用快捷键,第二种是直接复制已有的图注,并且更新域。但后者比较卡,尤其当文档较大时,容易卡死

    7. 关于生成的图1.1多了一个空格的问题

    可以使用查找与替换功能,把中间的空格替换掉。
    (1)点击"开始"->“替换”

    (2)查找内容输入"图1. “要多输入一个空格,替换为输入"图1.”,并点击全部替换即可~~

    展开全文
  • Word2021插入题注技巧之图片题注.docx
  • vba word 自动插入题注

    2013-01-08 22:41:53
    vba word 自动插入题注 简单测试
  • 撰写论文时为了修改方便,通常以插入题注和交叉引用的方式来给图片标号,这样修改图片和图号后可以方便、自动地更新。 然而,Word在插入题注上从03到13一直没有针对中国用户优化。 插入题注的标签与编号间有一个...

    问题引入

    撰写论文时为了修改方便,通常以插入题注和交叉引用的方式来给图片标号,这样修改图片和图号后可以方便、自动地更新。

    然而,Word在插入题注上从03到13一直没有针对中国用户优化。

    1. 插入题注的标签与编号间有一个空格,当标签是中文时需要用户手动删除
    2. 标签后竟然不插入空格!

    新浪微博大神Endlesswx通过宏编程很好地解决了这个问题,具体请看新浪博客

    Word插入题注时自动删除标签与编号前的空格,编号后添加空格

    • 例如,我们给图片A添加题注:图1+空格符+图片A
    • Word自带的添加题注功能添加后为:图+空格符+1
    • 而我们想要的效果是:图1+空格符

    问题分析

    当你在Word2019中对Visio对象的图片(Visio中画的图直接组合复制到word中)通过上面这个宏去操作的时候,会出现问题,经过调试发现,问题在这儿

     Selection.Fields.ToggleShowCodes  '切换域代码,这样才能用^d查找域
    

    这句代码的主要思路是:将题注的标签和编号一起选中,即将图1切换为域代码,然后通过^d查找域的方法(具体不太懂,但没关系)来找关键字,然后进行替换,达成我们想要的目的。

    '选定整个插入的题注内容,将域代码切换回来
     endPt = endPt + 1 '增加空格后,末位加1
     With Selection
        .Start = startPt
        .End = endPt
        .Fields.ToggleShowCodes   '切换域代码(切换回来)
     End With
    

    这段代码的功能是:将修改后的图+标签+编号一起选中,然后从域代码切换回来。需要注意的地方是这段代码会将图片也选中,当图片是普通的图片时,当然没有任何问题;但当图片是Visio对象图片时,问题就来了,这段代码会将Visio对象图片切换为一串代码。

    问题解决

    究其原因就是切换回来的时候连图片也选中了,那么就好办了,我们让它切换的时候还是只选中标签+编号,然后再执行切换代码即可(当然你也可以在Word中手动再切换回来)。

    经过调试,更改这段代码,将标签的位置设置为起始位置即可

    更改前:

    '删除标签与编号间的空格(英文后的保留)
     With Selection.Find
        .Text = Lab & " "
        .Forward = True   'False=向上查找,(True=向下查找)
        .MatchWildcards = False '不使用通配符
        If Lab Like "*[0-9a-zA-Z.]" Then  '此处判断标签的最后一个字符是否为英文或数字,是则不删除空格
        Else
           .Replacement.Text = Lab
           .Execute Replace:=wdReplaceOne  '替换找到的第一个,此处用作删除空格
           endPt = endPt - 1 '删除空格后,末位减1
           Selection.End = endPt
        End If
     End With
    

    更改后:

    '删除标签与编号间的空格(英文后的保留)
    With Selection.Find
       .Text = Lab & " " '图+空格
       .Forward = True   'False=向上查找,(True=向下查找)
       .MatchWildcards = False '不使用通配符
       If Lab Like "*[0-9a-zA-Z.]" Then  '此处判断标签的最后一个字符是否为英文或数字,是则不删除空格
       Else
          .Replacement.Text = Lab
          .Execute Replace:=wdReplaceOne  '替换找到的第一个,此处用作删除空格
          endPt = endPt - 1 '删除空格后,末位减1
          startPt = Selection.Start '更改的代码
          Selection.End = endPt
       End If
    End With
    

    倒数第4行为新加入的代码,这样就不会修改Visio对象图片了,完美解决。

    完整宏代码

    Sub InsertCaption()  '修改系统插入“题注”命令
    
       '功能:自动删除标签与编号间的空格(英文除外),并在题注数字后添加一个空格;适用于:Word 2003 - 2013,不兼容WPS文字!
      '真正从原理上协同系统插入题注,无任何前提条件;用户照常插入题注即可,甚至感觉不到程序的存在!
       'Endlesswx于2015年8月4日
       
      '另,如果插入的始终未域代码而不是数字,非程序问题,Alt+F9一次即可
       
       Dim Lab As String, startPt As Long, endPt As Long, myrang As Range
       'On Error Resume Next  '发生错误时让程序继续执行下一句代码
    '    Application.ScreenUpdating = False     '关闭屏幕更新,2013在此处关闭更新会导致输入框灰色不可选,故修正在调出对话框之后
       
       startPt = Selection.Start  'startPt标注起始点
          
       '***将if条件隐藏隐藏即可实现----手动替换题注空格***
       If Application.Dialogs(357).Show = -1 Then '插入“题注”对话框秀出来,如果按确定结束时执行以下程序,避免按取消后的空格,357也可换成wdDialogInsertCaption
          
          Application.ScreenUpdating = False     '关闭屏幕更新
          
           Lab = Dialogs(357).Label
           endPt = Selection.Start  'endPt标记插入的题注部分终点
          Selection.Start = startPt  '选定插入的整个题注
          
          '删除标签与编号间的空格(英文后的保留)
           With Selection.Find
              .Text = Lab & " " '图+空格
              .Forward = True   'False=向上查找,(True=向下查找)
              .MatchWildcards = False '不使用通配符
              If Lab Like "*[0-9a-zA-Z.]" Then  '此处判断标签的最后一个字符是否为英文或数字,是则不删除空格
              Else
                 .Replacement.Text = Lab
                 .Execute Replace:=wdReplaceOne  '替换找到的第一个,此处用作删除空格
                 endPt = endPt - 1 '删除空格后,末位减1
                 startPt = Selection.Start
                 Selection.End = endPt
              End If
           End With
          
          '在题注数字后添加一个空格
          Selection.Fields.ToggleShowCodes  '切换域代码,这样才能用^d查找域
           With Selection.Find
              .Text = "^d"
              .Replacement.Text = "^& "
              .Forward = False   'False=向上查找,(True=向下查找)
              .MatchWildcards = False '不使用通配符
              .Execute Replace:=wdReplaceOne  '替换找到的第一个,此处用作添加空格
           End With
          
          '选定整个插入的题注内容,将域代码切换回来
           endPt = endPt + 1 '增加空格后,末位加1
           With Selection
              .Start = startPt
              .End = endPt
              .Fields.ToggleShowCodes   '切换域代码(切换回来)
           End With
          
          '将光标定位至题注所在段尾处
    '       Selection.MoveRight Unit:=wdCharacter, Count:=1  '此句光标返回插入题注前的原始位置,对于已经输好标题的情况并不合适
          '选择段尾回车符
           With Selection.Find
              .Text = "^13"
              .Forward = True   'False=向上查找,(True=向下查找)
              .MatchWildcards = False  '不使用通配符
              .Wrap = wdFindContinue '继续查找
              .Execute
           End With
          Selection.MoveLeft Unit:=wdCharacter, Count:=1  '定位到段尾回车前
    
       End If
       Application.ScreenUpdating = True          '恢复屏幕更新
       
    End Sub
    

    感悟

    程序猿就是好啊,自己动手,丰衣足食,哈哈哈!!!

    欢迎关注,不断更新中……

    在这里插入图片描述

    展开全文
  • 一、如何给公式自动编号插入题注交叉引用时不出现公式本身 1.选中公式,插入题注。 2.新建标签。公式的话一般是第几章.第几个,如5.1,写入形式为(5. 确认之后,出现如图: 补全又括号,确定: 3.删除编号中的...

    一、如何给公式自动编号插入题注交叉引用时不出现公式本身

    1.选中公式,插入题注。

    在这里插入图片描述

    2.新建标签。公式的话一般是第几章.第几个,如5.1,写入形式为(5.

    在这里插入图片描述
    确认之后,出现如图:
    在这里插入图片描述
    补全又括号,确定:
    在这里插入图片描述

    3.删除编号中的空格

    在这里插入图片描述
    在这里插入图片描述

    4.Enter键将编号回车到下一行,

    在上一行的末尾

    crtl+alt+enter

    一起按,如图:
    在这里插入图片描述
    这样就可以保证在文中交叉引用时,不会出现公式内容和编号一起引入,而是只引用编号和标签。

    5.文中交叉引用

    在这里插入图片描述

    在这里插入图片描述

    二、插入公式后行距变大怎么办?

    1.首先解释变量参数含义时,应当使用Word自带插入公式的工具键入。

    在这里插入图片描述

    2.插入后,设置该段段落取消自定义格式网络。

    通过以上两步就可以完成行距的正常显示,有用的话点个关注+收藏!

    展开全文
  • 提前定义好题注得样式,一般为图-章节编号-序号 题注标题。 将鼠标焦点选中到在某一个章节内容的第一段,然后执行以下宏脚本,即可自动批量生成图片的题注题注的标题自动为该章节的标题,并根据图片的顺序在标题...
  • word中如何对公式插入题注和引用

    千次阅读 2022-03-18 15:24:30
    插入题注 1、在公式前按一次“Tab”键,公式后编号前再按一次“Tab”键 2、将光标放在公式的最右边,按下 Ctrl+Alt+Enter,出现新的回车键 3、我需要设置的题注格式类似于 (4-2) 这种,括号需要自己先打出来 4、...
  • Word 排版:插入题注和引用题注

    万次阅读 2019-01-02 11:49:41
    为了节省排版时间,最好的方法就是将文档中的图片和表格同一插入题注并引用,这样子在删除和修改某个表格或者图标之后,只需要 更新域 就可以了。 1. 插入题注 step1: 选中图片或者表格,然后点击引用->...
  • Word的”交叉引用“和”插入题注“快捷键设置 在MSWord2019中,可以自定义设置快捷键。方法如下:文件-选项-自定义功能区-键盘快捷方式(自定义)。具体过程如图所示。 最后,按照上述流程将插入题注...
  • word2016如何插入题注并交叉引用

    千次阅读 2021-09-05 15:40:27
    word2016如何插入题注并交叉引用## 标题 在毕业论文、科研论文等写作时,为方便读者阅读,常对文中图表进行交叉引用,以便读者在阅读到“图1-2”或“表1.1”时可以尽快找到相应图表位置。 (1)常见做法:点击引用中...
  • 首先,你的文档要包含标题样式,然后排好多级列表与编号。 其次,也是重点:你标题运用的样式的名称需要与插入题注时勾选的编号、章节号名称要一致! ...
  • 一.... 实际问题举例:在下面两张图片中间插入一张图片 还是用以上插入题注,交叉引用的方法插入图片后我们发现,题注自动变化了,但交叉引用没有变化: 这时我们全选文档,然后右键选择更新域即可:
  • word插入题注以及将编号由一.1改为1.1 如何插入题注[如果会插入题注的可以略过] 题注其实就是给图片/表格/公式 取一个编号,这样你后期可以在论文中用这个编号引用,并且如果多个图片的顺序变了,那么这个编号也会...
  • 一 如何给图片插入题注 在菜单栏找到”引用“-”插入题注“ 在标签栏选择需要的标签,会出现在题注栏,可以在题主栏中填写对图片的描述,点击‘确定” 就可以在图片下方看到描述的文字了 二 如何在文中交叉...
  • Sub InsertCaption()'...'真正从原理上协同系统插入题注,无任何前提条件;用户照常插入题注即可,甚至感觉不到程序的存在!'Endlesswx于2015年8月4日'另,如果插入的始终未域代码而不是数字,非程序问题,Alt+F9一...
  • office 2010的Word文档,在表格上插入题注后,页面被消失,然后就无法编辑了,页面视图见不到文件,只是显示背景,文字,图表均不见了,点击撤销键后,回复原有文件,但是也不能进行编辑了。这种情况应该如何处理呢?...
  • 文章目录项目说明步骤一:插入题注点击引用--插入题注新建标签将新建的标签插入补充图片标题...步骤一:插入题注 首先要先点到需要插入标签的地方,如下图: 点击引用–插入题注 新建标签 如果在现有标签中找不到需要
  • 本文介绍word中多级标题的设置,以及如何插入含章节号的题注(Word2016) 1. 初始状态 ... 下面我们介绍如何对其设置多级标题,以及为图片插入题注。 2. 多级标题 2.1 设置标题样式  在开始栏...
  • Word2010为图片批量插入题注

    千次阅读 2020-05-08 13:50:59
    Word2010为图片批量插入题注 最近在帮别人写论文,发现他的图片都没有题注,修改各方面都比较麻烦。就希望可以自动插入题注。于是经查阅资料,最终得到了批量为图片插入题注的方式。此方法可以扩展使用到所有需要...
  • Word一行排列多个图片并插入题注

    千次阅读 2020-11-09 10:54:56
    Word中一行排列多个图片并插入题注1. 首先根据图片要排列成样式,插入表格。2. 然后将图片放入表格中。3. 对图片插入题注4. 取消表格边框5. 其他地方引用 1. 首先根据图片要排列成样式,插入表格。 2. 然后将图片放...
  • 在 “引用” 选项卡选择 “插入题注”,打开后如下,选择需要的标签“图”或者“表”,没有的话点击**“新建标签”,自己根据需要新建标签。位置的话,一般表**选择“所选项目上方”,图选择“所选项目下方”;点击...
  • [Word基础教程合集一]自动插入题注.docx
  • [Setting]设置Word插入题注快捷键

    千次阅读 2019-11-06 17:28:44
    批量插入题注的时候真的很烦,尤其是这个还没有方便的快捷键,所以就自定义快捷键,有了此教程。 方法1 word原始快捷方式 依次按:Alt-S-P 方法2 设置自定义快捷键 打开键盘快捷键定义对话框: 文件 选项 ...
  • Word基础(三十七)自动插入题注

    千次阅读 2019-01-22 22:25:40
    在Word中,如何自动插入题注呢? 方法: 点击引用选项卡,题注分类中点击插入题注 在弹出的题注对话框中,点击自动插入题注(A)… 在弹出的自动插入题注对话框中勾选类型 点击插入表格后,就会自动插入题注 注:若...
  • word 2016图表插入题注及交叉引用

    万次阅读 多人点赞 2018-12-18 00:11:28
    前言  在使用word时,会插入图片或者表格,在文中也会使用该题注,但是当删除某个图片或者新添加某个图片时,也需要相应... 一、插入题注  1、将光标停留在需要添加题注的地方,此处为图像下方;  2、点击菜...
  • 我们可以通过Tab+回车+插入题注+Ctrl+Alt+Enter+交叉引用 1.在公式后tab到一个适合插入公式编号的位置后回车。 2.在新行用“插入”->“引用”->“题注”插入公式编号。这时公式编号行是“题注”样式.
  • word中插入题注 表1 图1

    千次阅读 2019-01-20 12:20:32
    word中插入题注 表1 图1
  • Word插入题注快捷键

    2021-10-11 14:51:07
    https://www.pianshen.com/article/82781111147/
  • 采用交叉引用方式进行公式编号引用时,公式本身被作为题注的一部分,的处理策略

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 31,735
精华内容 12,694
关键字:

插入题注