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 If

Bye:

End Sub
				
用于插入题注存在几种方法。自动插入题注插入一个题注上方或下方插入的对象 ; 手动插入的标题上方或下方当选对象时该对象或紧靠右侧时,放置插入点位于对象右侧。

参考

有关更多的信息请单击下面文章编号,以查看 Microsoft 知识库中相应的文章:
212623WD2000: 宏编程资源
226118OFF2000: 为应用程序的 Visual Basic 编程资源

属性

文章编号: 212381 - 最后修改: 2006年11月23日 - 修订: 1.3
这篇文章中的信息适用于:
  • Microsoft Word 2000 标准版
关键字:?
kbmt kbdtacode kbfield kbhowto kbinfo kblayout kbusage KB212381 KbMtzh
机器翻译
注意:这篇文章是由无人工介入的微软自动的机器翻译软件翻译完成。微软很高兴能同时提供给您由人工翻译的和由机器翻译的文章, 以使您能使用您的语言访问所有的知识库文章。然而由机器翻译的文章并不总是完美的。它可能存在词汇,语法或文法的问题,就像是一个外国人在说中文时总是可能犯这样的错误。虽然我们经常升级机器翻译软件以提高翻译质量,但是我们不保证机器翻译的正确度,也不对由于内容的误译或者客户对它的错误使用所引起的任何直接的, 或间接的可能的问题负责。
点击这里察看该文章的英文版: 212381
Microsoft和/或其各供应商对于为任何目的而在本服务器上发布的文件及有关图形所含信息的适用性,不作任何声明。 所有该等文件及有关图形均"依样"提供,而不带任何性质的保证。Microsoft和/或其各供应商特此声明,对所有与该等信息有关的保证和条件不负任何责任,该等保证和条件包括关于适销性、符合特定用途、所有权和非侵权的所有默示保证和条件。在任何情况下,在由于使用或运行本服务器上的信息所引起的或与该等使用或运行有关的诉讼中,Microsoft和/或其各供应商就因丧失使用、数据或利润所导致的任何特别的、间接的、衍生性的损害或任何因使用而丧失所导致的之损害、数据或利润不负任何责任。

提供反馈

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com