WD2000: 如何插入一个右对齐标题下一步,一个公式

注意:这篇文章是由无人工介入的微软自动的机器翻译软件翻译完成。微软很高兴能同时提供给您由人工翻译的和由机器翻译的文章, 以使您能使用您的语言访问所有的知识库文章。然而由机器翻译的文章并不总是完美的。它可能存在词汇,语法或文法的问题,就像是一个外国人在说中文时总是可能犯这样的错误。虽然我们经常升级机器翻译软件以提高翻译质量,但是我们不保证机器翻译的正确度,也不对由于内容的误译或者客户对它的错误使用所引起的任何直接的, 或间接的可能的问题负责。

点击这里察看该文章的英文版: 212381
本文已归档。它按“原样”提供,并且不再更新。
概要
Microsoft Word 不会提供用于自动插入与文档的右边距右对齐的标题的内置方法。许多科学日志需要公式对象为以下格式之一:
  • 公式和题注都是右对齐

                                            y = mx + b ( 1 )						
    -或者-
  • 公式居中对齐和标题是右对齐

                          y = mx + b                   ( 1 )						
    -或者-
  • 公式是左对齐,并将标题是右对齐。

     y = mx + b                                        ( 1 )						
在任何情况下题注编号将括在括号中,并为右对齐。

本文介绍了几种方法可用来设置这些样式之一中的公式对象的格式。

: 本文使用术语的 公式 中,但您可以使用此方法的任何对象 (如图或图片) 标题需要显示在该对象所在的行上的位置。
更多信息
请按照下列步骤来创建标题,如本文"概要"一节中所述:

步骤 1: 设置标题

若要创建带括号的题注标签,请按照下列步骤操作:
  1. 在 Microsoft Word 中的在 插入 菜单上单击 标题
  2. 单击 新建标签
  3. 标签 框中键入一个左括号。
  4. 单击 确定
  5. 标题 框右边的数字中,键入一个空格,然后键入一个右括号。
  6. 单击 确定
创建题注格式后,您可以插入其他标题。若要将更多标题,请按照下列步骤操作:
  1. 插入 菜单上单击 题注
  2. 标签 框改为左括号。
  3. 标题 框中的在现有的题注的右边键入一个空格,然后键入一个右括号。
  4. 单击 确定

步骤 2: 对齐在公式和标题

: 如果要将标题的交叉引用,使用方法 2、 方法 3 或方法 4。

方法 1: 如何设置右对齐的公式和标题编号

  1. 插入 菜单上单击 题注
  2. 标签 列表中选择左括号。在 标题 框中键入一个空格,键入一个右括号,然后单击 确定
  3. 在 Word 文档中将插入点移动到在行标题前的开始处。
  4. 在右边距设置为右对齐选项卡。例如对于如果右边距为从左边距的六个英寸,设置右对齐选项卡 6 英寸处通过执行下列:
    1. 格式 菜单上单击 制表符
    2. 制表位位置 框中键入 6
    3. 对齐,下单击 ,然后单击 确定
  5. 按 TAB 键将标题移动到页面的右边缘。
  6. 插入文档中的公式。

方法 2: 如何设置左对齐的公式

  1. 在新的空白的行上插入公式。
  2. 在文档区域中的任何地方,即可退出公式编辑器。
  3. 按 TAB 键,然后插入题注。
  4. 选择整行包含公式和标题。在 表格 菜单上单击 文本转换成表格。所选内容将被转换为一个两列的表格。
  5. 通过执行以下删除表格的周围边框:
    1. 将插入点移动到表中的任意单元格。在 表格 菜单上指向 选择,然后单击 表格
    2. 格式 菜单上单击 边框和底纹
    3. 设置 中,单击
    4. 单击 确定
  6. 选择包含标题的表格单元格,然后单击 格式 工具栏上的 右对齐 按钮。

方法 3: 如何设置中心对齐的公式

  1. 在新的空白的行上按 TAB 键,然后再插入公式。
  2. 在文档区域中的任何地方,即可退出公式编辑器。
  3. TAB 键,然后插入题注。
  4. 选择整行包含公式和标题。在 表格 菜单上单击 文本转换成表格。所选内容将被转换为一个三列的表。
  5. 通过执行以下删除表格的周围边框:
    1. 将插入点移动到表中的任意单元格。在 表格 菜单上指向 选择,再单击 表格
    2. 格式 菜单上单击 边框和底纹
    3. 设置 中,单击
    4. 单击 确定
  6. 选择包含该的公式的表格单元格,然后单击 格式 工具栏上的 居中 按钮。
  7. 选择包含标题,表格单元格,然后单击 格式 工具栏上的 右对齐 按钮。

方法 4: 如何为应用程序的宏创建 Microsoft Visual Basic

Microsoft 提供的编程示例只,用于说明不附带任何明示或暗示保证,其中包括但不是限于对适销性和/或针对特定用途的适用性的暗示的担保。本文假定您熟悉所演示的编程语言和工具用于创建和调试过程。Microsoft 支持专业人员可以帮助解释某个特定过程的功能,但他们不会修改这些示例以提供额外的功能或构建过程来满足您特定需要。
如果有限编程体验您可能需要联系 Microsoft 认证合作伙伴或 Microsoft 咨询服务。有关更多的信息请访问以下 Microsoft 网站:

Microsoft 认证合作伙伴-https://partner.microsoft.com/global/30000104

Microsoft 咨询服务-http://support.microsoft.com/gp/advisoryservice

有关可用的支持选项和有关如何与 Microsoft 联系的详细信息,请访问下面的 Microsoft 网站: http://support.microsoft.com/default.aspx?scid=fh;EN-US;CNTACTMS
有关如何使用本文中示例代码的详细信息单击下面文章编号,以查看 Microsoft 知识库中相应的文章:
212536OFF2000: 如何运行知识库文章中的示例代码
左对齐或居中对齐的方法 2 和方法 3 中所述,请创建一个宏,将允许您在之间进行选择。运行此宏后请在相应的位置插入您的公式。

Sub CaptionRight()   Dim Align As Integer   On Error GoTo Bye   ' If insertion point is in a table, show message and end macro.   If Selection.Information(wdWithInTable) Then      MsgBox "You are in a table. Please move outside of the " _         & "table to run this macro.", vbInformation      GoTo Bye   End If   ' Ask whether to center or left align equation.   Align = MsgBox("Would you like the Equation to be " & "centered? " _      & "(Selecting No will left-align the " & "Equation.)", vbYesNoCancel)   If Align > 2 Then      Selection.InsertParagraphAfter      Selection.Collapse Direction:=wdCollapseEnd      W = ActiveDocument.PageSetup.PageWidth      L = ActiveDocument.PageSetup.LeftMargin      R = ActiveDocument.PageSetup.RightMargin      RTMarg = W - R - L      CaptionLabels.Add Name:="("      If Align = 6 Then         tblT1 = Selection.Tables.Add(Selection.Range, 1, 3)      Else         tblT1 = Selection.Tables.Add(Selection.Range, 1, 2)      End If      tblT1.Select      With Selection         ' Do this if Center-align selected.         If Align = 6 Then            .Columns(1).Cells.Width = 50.4            .Columns(3).Cells.Width = 50.4            .Columns(2).Cells.Width = RTMarg - 100.8            'Represents 1.5" in Points         Else         ' Do this if Left-align selected.            .Columns(2).Cells.Width = 50.4            .Columns(1).Cells.Width = RTMarg - 50.4            'Represents .75" in Points         End If         .InsertCaption Label:="(", _            Position:=wdCaptionPositionBelow, Title:=" )"         .HomeKey unit:=wdLine, Extend:=wdExtend         .Cut         .MoveRight unit:=wdCharacter, Extend:=wdExtend         .Delete         .MoveLeft unit:=wdCharacter, Count:=2         .Paste         .Rows(1).Select        ' Set the table borders to None.         For Each x In Selection.Borders            x.LineStyle = wdLineStyleNone         Next x         .Borders.Shadow = False         .Cells(9 - Align).Select         .ParagraphFormat.Alignment = wdAlignParagraphRight         .Cells(1).VerticalAlignment = wdCellAlignVerticalCenter         .Font.Bold = True         .Rows(1).Select         If Align = 6 Then            .Cells(2).Select            .ParagraphFormat.Alignment = wdAlignParagraphCenter            .InlineShapes.AddOLEObject ClassType:="Equation.3", _               FileName:="", LinkToFile:=True, DisplayAsIcon:=False         Else            .Collapse            .InlineShapes.AddOLEObject ClassType:="Equation.3", _               FileName:="", LinkToFile:=True, DisplayAsIcon:=False         End If      End With   End IfBye:End Sub				
用于插入题注存在几种方法。自动插入题注插入一个题注上方或下方插入的对象 ; 手动插入的标题上方或下方当选对象时该对象或紧靠右侧时,放置插入点位于对象右侧。
参考
有关更多的信息请单击下面文章编号,以查看 Microsoft 知识库中相应的文章:
212623WD2000: 宏编程资源
226118OFF2000: 为应用程序的 Visual Basic 编程资源
公式题注右中心居中对齐的对齐位置定位的公式表图照片图片图片对象的对象图形图形

警告:本文已自动翻译

属性

文章 ID:212381 - 上次审阅时间:12/05/2015 12:02:11 - 修订版本: 1.3

Microsoft Word 2000 标准版

  • kbnosurvey kbarchive kbmt kbdtacode kbfield kbhowto kbinfo kblayout kbusage KB212381 KbMtzh
反馈