如何在Word文档中使用内容交叉引用

Posted 2023-05-15

参考技术A 　　交叉引用就是在文档的一个位置引用文档另一个位置的内容。交叉引用常应用于需要互相应用内容的情况下，可以使用户尽快找到想要找到的内容，同时能够保证文档的结构条理清晰。以下是我为您带来的关于在Word中使用内容交叉引用，希望对您有所帮助。
　　在Word中使用内容交叉引用
　　1、启动Word 2013并打开文档，将插入点光标放置到需要添加交叉引用的文字后面，如图1所示。

　　图1　输入需要的文字

　　2、在“引用”选项卡中单击“题注”组中的“插入交叉引用”按钮打开“交叉引用”对话框，在“引用类型”下拉列表中选择需要的项目类型，在“引用内容”下拉列表中选择需要插入的信息，在“引用哪一个标题”列表框中选择引用的具体内容，如图2所示。完成设置后单击“插入”按钮即可在插入点光标处插入一个交叉引用。

　　图2　插入交叉引用

　　注意

　　如果取消对“插入为超链接”复选框的勾选，则插入的交叉引用不具有链接能力。如果“包括‘见上方’/‘见下方’”复选框可用，勾选此复选框将包含引用项目的相对位置信息。另外，单击“插入”按钮后，如果还需要创建其他交叉引用，不必关闭对话框，在文档中直接选择新的插入点后继续插入即可。

　　3、单击“关闭”按钮关闭“交叉引用”对话框后，标题文字被插入到了当前插入点光标之后，按住“Ctrl”键单击文档中的交叉引用，将跳转到文档中引用指定的位置，如图3所示。

　　图3　使用交叉引用

　　注意

　　如果需要对创建的交叉引用进行修改，在文档中选择插入的交叉引用后再次打开“交叉引用”对话框，选择新的引用项目后单击“插入”按钮即可。

猜你喜欢：

1. 怎么用word写好论文

2. Word的排版技巧集锦

3. word2013尾注参考文献如何添加

4. word2010中如何插入参考文献

5. Word2007中怎么添加参考文献

您将如何在 Word 或 RTF 文档的表格中显示 DBGrid 的内容？

【中文标题】您将如何在 Word 或 RTF 文档的表格中显示 DBGrid 的内容？

【英文标题】：How would you display a DBGrid's contents in a table within a Word or RTF document?

【发布时间】：2011-03-28 11:04:56

【问题描述】：

我正在使用 Rave 生成​​报告，但它在生成 Word 文档方面表现不佳。我的报告需求很简单；我在代码中唯一不能轻易做的事情就是制作一张桌子。我喜欢关于如何以 Word 或 RTF 兼容格式在带边框的表中显示 [DB]Grid 的内容（或底层 ClientDataSet 记录）的建议。

【参考方案1】：

您可以测试我推荐的here (mxExports from max) 相同的组件。

mxExport 可以将 TDataset、TStringGrid 和 TDBGrid 导出为不同的文件格式，包括 RTF 和 MS Word。

查看组件并测试演示。它可能对你有用。它是免费的，包括源代码。 ;-)

【讨论】：

Muchas gracias para la respuesta！ ...您知道我是否可以使用此组件将导出的网格插入文件中吗？换句话说，创建一个包含文本的文件，然后是表格，然后是更多的文本？

听起来您想使用办公自动化。冒着自吹自擂的风险，我已经多次写过这个主题的博客 - nbnewman.blogspot.com/search/label/office%20automation。将文本添加到Word文件中，然后添加表格然后添加更多文本是没有问题的。

@AlC; “我可以使用这个组件在文件中插入导出的网格吗？”该组件将数据导出到文件中。 ¿ 我不明白这个提示？

No'am -- 谢谢；我会看看你的博客。 ... Netfali -- 我认为我所说的就像将数据添加到文件中间。试着想象一个带有文本的文件（不是来自 mxExports），然后是一个网格（来自 mxExports），然后是更多的文本（不是来自 mxExports）。听起来 mxExports 并没有直接这样做，但我会看看它并探索一下。再次感谢您的回复。

你好 AIC。好的，现在我明白你需要什么了。 ;-) 也许你可以用自动化完成任务，就像 No'am 说的那样。您也可以尝试修改/查看源代码并进行修改。问候。

【参考方案2】：

嗯，首先您必须制作一个模板 .doc 文件，您将在其中创建将被替换的关键字...这是一个示例代码...

<br> 
var
 FileName: OleVariant;
<br> Doc : _Document;
 <br>SearchText, ReplaceText, Wrap, All: OleVariant;
<br>
<br> begin
  <br>WordApplication1.Connect;
  <br>WordApplication1.visible:= True;

 <br> FileName:=GetCurrentDir+'\Documents\In_orders.doc';
  <br>WordApplication1.Documents.Open(FileName,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam);
  <br>Doc := WordApplication1.ActiveDocument;
  <br>WordDocument1.ConnectTo(Doc);
<br>  WordApplication1.Disconnect;

  <br>SearchText := 'order_nomer';
   <br>ReplaceText := dbgrid1. < some property.. >;
    <br>Wrap := wdFindContinue;
   <br>All := wdReplaceAll;
  <br>WordDocument1.Content.Find.Execute(SearchText, EmptyParam, EmptyParam, EmptyParam,EmptyParam, EmptyParam, EmptyParam, Wrap, EmptyParam, ReplaceText, EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam);
<br>
 <br>WordApplication1.Disconnect;
 <br>end;