在输入句子时我想在几个地方改变文字颜色.为此,我必须通过转到字体弹出部分手动完成.有没有办法创建键盘快捷键,以便我可以在键入时更改句子中某些单词的文本颜色？

我无法找到任何资源来连接到Word 2010提供的版本控制功能.我知道它在提供访问Sharepoint文档存储库的功能方面与Sharepoint无缝连接.但是将sharepoint作为我的存储库,我将如何利用word/office interop API来使用"管理版本"等功能.例如,是否有版本控制功能的提供者模型？

我知道有插件可以插入Perforce和Subversion repo,但是,看来,它们不使用原生单词功能,并通过附加上下文菜单项和功能区/自定义任务窗格相关控件提供其功能,即不使用word的内置版本管理工具.

当然,任何资源或建议都会有所帮助.

我正在使用自动化对Word文档进行大量更改,然后运行VBA宏,其中包括检查文档不超过一定数量的页面.

我正在使用ActiveDocument.Information(wdNumberOfPagesInDocument)获取页数,但此方法返回的结果不正确.我认为这是因为Word尚未更新文档的分页以反映我所做的更改.

ActiveDocument.ComputeStatistics(wdStatisticPages) 也遇到同样的问题.

我试着坚持打电话ActiveDocument.Repaginate,但这没什么区别.

我确实有一些运气,在文档的末尾添加一个段落,然后再次删除它 - 但该黑客似乎不再有效(我最近从Word 2003迁移到Word 2010).

有什么方法可以强制Word 实际重新组合,和/或等到重新分页完成后？

问题

我在使用Word 2010中的VBA设置文档属性时遇到了一些问题.

我有一个包含几个Heading 1部分的文档,我使用宏来提取所选部分(及其内容)并将其粘贴到新文档中.

这部分工作正常,但最后我需要设置几个文档属性,但没有设置它们.

我正在尝试设置内置和自定义属性,但出于这个问题的目的,我想设置标题,主题和类别.

我已经创建了一个函数来设置我想要的属性(如下所示),并且VBA没有抛出任何错误(即使我删除了函数中的错误处理).

有谁知道我做错了什么？

该功能应如何工作

以下是该功能应该做什么的简要总结,但如果您发现更容易检查 - 下面的完整功能 -

1. 检查该属性是否已存在
   • 它确实是一个default属性
     • 设置默认属性
     • 将PropertyTypeUsed变量设置为default
   • 它确实是一个custom财产
     • 设置自定义属性
     • 将PropertyTypeUsed变量设置为custom
   • 它根本不存在
     • 创建一个新的自定义属性
     • 设置自定义属性
     • 将PropertyTypeUsed变量设置为custom
2. 检查是否已成功设置值
   • default应该设置一个属性
     • 该物业成功设定？
   • custom应该设置一个属性
     • 该物业成功设定？
3. 返回结果

我相信这个功能导致了这个问题

Function UpdateDocumentProperty(ByRef doc As Document, _
                                ByVal propertyName As String, _
                                ByVal propertyValue As Variant, _
                                Optional ByVal propertyType As Office.MsoDocProperties = 4)

    '** Set …

我创建了一个Word模板,然后通过OpenXML SDK处理该模板,用数据库查询中的数据替换文档的某些内容.

该模板由一些基本文本组成,其中纯文本内容控件注入了我想要替换文本的位置.然后我使用这些控件中的文本作为查找替换值的键.在大多数情况下,这工作正常(我只是更新Text对象的Text属性).

在一种情况下,我用表替换文本.在这种情况下,我在代码中构建一个表,然后用新的Table对象替换SdtContentRun对象的内容(Run对象的父对象,后者又是Text对象的父对象)...

var sdtContentRunElements =
  from sdtContentRun in this.Document.MainDocumentPart.RootElement.Descendants<SdtContentRun>()
  select sdtContentRun;

sdtContentRunElements.ForEach(sdtContentRunElement => {

  Run firstRunElement = sdtContentRunElement.Descendants<Run>().FirstOrDefault();
  if (firstRunElement != null) {

    Text firstTextElement = firstRunElement.Descendants<Text>().FirstOrDefault();
    if (firstTextElement != null) {

      switch (firstTextElement.Text) {

        case TableBookmark:

          Table advisoryTable = new Table(...); // See below
          OpenXmlElement parent = firstRunElement.Parent;
          parent.RemoveAllChildren();
          parent.Append(advisoryTable);
          break;

        case ContractorItemAdvisoriesLetter.ContractorCodeBookmark:

          firstTextElement.Text = @"New text";
          break;

      }
    }
  }
}

}

这导致以下XML(取自用于Microsoft Office的Open XML SDK 2.0生产力工具)...

<w:sdtContent xmlns:w="http://schemas.openxmlformats.org/wordprocessingml/2006/main">
  <w:tbl>
    <w:tr>
      <w:tc>
        <w:p>
          <w:r>
            <w:t>Lorem ipsum …

我有一个宏,可以在我的文档中找到所有'标题1'样式,并在UserForm的ComboBox中列出它们.

我的问题是我正在使用的查找例程也在我要复制的文本之后选择段落标记(),并且正在ComboBox中显示.

如何从字符串中删除它？我试过期运用replace(),更换vbCrLf,vbCr,vbLf,vbNewLine,^p,v,Chr(244)和Asc(244)用"",但一切都没有succeeeded.例如 -

sanitizedText = Replace(Selection.Text, "^v", "")

任何人都可以帮助解决这个问题吗？谢谢.

这是我的表格看起来 -

参考创建从Excel FlowChart到MS Word标题的超链接

我想知道从 Word文档超链接到Excel工作簿中的特定单元格的正确语法.

例如:说我在单词文档"Explaining"中,我想插入Excel文件DataStuff的超链接,但是要插入Cell ZX200.如果没有VBA/MACROS,我该如何手动执行此操作？

我已经知道要链接到DataStuff我会输入

    File:///c:\users\Win7User\desktop\DataStuff.xlsx

然后按ENTER键.(然后它变成带下划线的超链接.点击它打开DataStuff)

但是,我想补充一个事实,它应该转到单元格ZX200,而不仅仅是在单元格A1打开DataStuff.以下不起作用.有人可以为我修复语法吗？

    Does not work:
    File:///[c:\users\Win7User\desktop\DataStuff.xlsx]Sheet1!ZX200

我不知道如何在大约10分钟内回答Excel到Word的问题,而我的Word to Excel问题累积了蟋蟀和风滚草.没有MS Word专家？

在浏览了许多无用的文档后,我已经弄明白了.正确的语法是:

    File:///c:\users\Win7User\desktop\DataStuff.xlsx#Sheet1!ZX200

这应该输入到您的word文档中,并将转到Excel中工作表Sheet1中的单元格ZX200.使用我在我的问题中的超链接的信息,你现在在Word和Excel超链接之间有一个很棒的BIJECTION.所以,当你把人送到某个地方时,你也可以把它们送回去!

http://www.shaunakelly.com/word/word-and-excel/excelhyperlinks.html

我有一个.docm带有用户表单的文档。在用户表单上，我有一个按钮需要在文档中最后一个已知的光标位置插入一些东西（一些文本，对于初学者）。为此，我想创建一个范围。

我怎样才能获得这个范围的起始位置？

当我单击Word 2010中的复选框时,我想运行宏.

请注意,我既不想要"Legacy Forms"复选框也不想要"ActiveX"复选框!它们只能在一些"受保护的文档模式"下工作并且看起来很难看,但是我想要在编写文档时可以选择和取消选择的新文件,这对我来说看起来更好.

我知道,使用遗留表单,您可以在输入表单元素时直接插入宏,而在离开表单元素时可以直接插入宏,您可以在VBA中捕获事件,如

Sub CheckboxXY_Click()

但这对Word 2010复选框不起作用,即使我给它们描述和标记名称.

重复:这些是我想要使用的形式(以防万一有人建议我使用Legacy的形式):

这就是它们在文档中的样子(鼠标悬停):

我不敢相信我是第一个试过这个的人......

在 MS Word 2010 的 VBA 中，如何让 Word 显示调色板对话框以便用户可以选择颜色？

有大量关于如何在 Excel 中执行此操作的示例，但我没有找到对 Word 用户的任何帮助。下面是 Excel 的代码：

Application.Dialogs(xlDialogPatterns).Show

问题是，没有 wdDialogPatterns 等效项，我也找不到任何名称暗示调色板对话框的内容。我找到了 wdFormatBordersAndShading，但它并不完全相同：我希望用户选择一种颜色以供以后重复使用。

谢谢！