Tag: ms word

Excel中错误的字体属性: 我正在用Excel中的C＃读取几个单元格的属性，并将附加到Word的属性写入文本。根据它们在Excel中的大小，它们在Word中应该是相同的大小。然而，这些属性似乎“冻结”。有没有人有一个线索可能是什么问题？例; 我有三个单元格A1，A2和A3，字体大小分别为11,8,11。在Word中，三个文本的大小为11（对于Excel中的每个单元格，大小为11）： docRange.Font.Size = (float)ws.Cells[row, column].Style.Font.Size; 这很奇怪，因为你应该期望大小11,8和11.但是，如果我在Excel中尝试以下操作： MsgBox ActiveSheet.Cells(row, column).Style.Font.Size 它也给每个细胞大小11。这一定是11,8和11。（我已经试过计算自动和.calculate(); ）。 @Edit 13:13 22-12-2015如果我打开一个全新的Excel文件，在A1和A2上进行testing，给A1大小11和A2大小8.它在MsgBox ActiveSheet.Cells(2, 1).Style.Font.Size上给出11 MsgBox ActiveSheet.Cells(2, 1).Style.Font.Size和MsgBox ActiveWorkbook.Sheets("Blad1").Range("A2:A2").Style.Font.Size

将不相邻的Excel列拆分为不相邻的Word表格列: 想从Excel中复制三个范围的数据，然后将这三个不同的范围粘贴到现有的Word表格中。 Word文档是从另一个程序生成的，文件名称每次都不相同。我需要拆分三个范围，并粘贴到单词表（1），但在列不匹配的Excel副本。当前进程是复制一个Excel范围，alt + tab到Word文档并粘贴到表中，重复剩下的两个范围。这是我的复制代码，但我需要“粘贴”的帮助。 Sub Copy_CV() Dim MaxVal As Long, C As Long MaxVal = Worksheets("Prop").Application.Max(Columns(2)) C = MaxVal + 3 Worksheets("Prop").Range("G4:G" & C).Select Worksheets("Prop").Range("L4:L" & C).Select Worksheets("Prop").Range("M4:M" & C).Select Selection.Copy End Sub

在Word表格单元格中设置为加粗的特定字符: 我有一个MS Excel工作表与自定义脚本。该脚本的一部分应该是编辑MS Word文档中的信息。需要编辑的东西是存储在Word文档的表格单元格中的文本。我设法编辑它自己的文本，但我需要将部分文本设置为粗体。我怎样才能做到这一点？这是一个例子。说我需要在表单元格（1,1）中input“123456789”，并将第一个字符“12345”设置为粗体。喜欢这个：从Excel。这是我试过的： Dim SavePath as string SavePath = "… path …" Set objWord = CreateObject("Word.Application") Set objDoc = objWord.Documents.Open(SavePath) objWord.Visible = True objDoc.Tables(1).Cell(1, 1).Range.Text = "123456789" 'So far, so good. The next part (how to set part of text to bold) is what I can't […]

VBA – Excel + Word集成 – 没有理由的代码循环: 我正在创build一个Excel文档，其中包括将几个数据数组复制到一个Word文件中。一切工作绝对正常，除了粘贴我感兴趣的select，它将无限粘贴，直到我介入通过任务pipe理器取下Word。就我所知，没有理由让它循环。所以我对接下来要做的事情一无所知，而且我希望你们能够清楚我做错了什么。这个概念如下： Sub TestA() 'Word objects. Dim wdApp As Word.Application Dim wdDoc As Word.Document Dim wdbmRange As Word.Range 'Excel objects. Dim wbBook As Workbook Dim wsSheet As Worksheet Dim rnReport As Range 'Opening app and document Set wdApp = New Word.Application Set wdDoc = wdApp.Documents.Open("C:\Users\RCO1\Desktop\Teste VBA\2. Conceptual Testing\Export\XLWDTST.docx") Set wdbmRange = wdDoc.Bookmarks("TableInsertion").Range […]

将Word表格数据传输到Excel表格: 我用几个来源和我自己的知识编写/编译了代码，但它一直给我错误。我是新的Word VBA所以努力debugging它。 Word上的表包含标题和我使用的Excel模板有一个不同的布局比单词表，因此我需要根据标题sorting值，并将其插入到Excel模板中适当的列。最后的模板应该保存为不同的工作簿，模板中的值应该被清除。错误我得到的是：我得到“oCell.Value”部分编译错误，如果我设置oCell作为范围，但是，当我设置oCell作为对象我得到错误5941“设置rText = oTable.Cell（我，n）。范围”。我无法弄清楚如何。另外，如果你告诉我在Excel VBA中实现这样的代码会更容易，我也很乐意在Excel上做同样的过程。编辑：我已经添加了“Application.Templates.LoadBuildingBlocks”，但它仍然给出了相同的错误。 Sub Word2ExcelRTM() Dim oDoc As Word.Document, oXlm As Excel.Workbook Dim oTable As Word.Table Dim oRng As Word.Range Dim sFname As String Dim rText As Word.Range Dim rHeader As Word.Range Dim oWrks As Excel.Worksheet Dim oCell As Excel.Range Application.Templates.LoadBuildingBlocks 'Change the path in […]

将数据从excel导入word: 给一个微软的Word邀请模式，以及一个Excel工作表包含人民与他们的信息列表。目的是允许在Excel列表中search想要select的人的方法。然后自动将他的信息添加到Word邀请模型中进行打印。这里是一个例子： Word邀请模式： Mr: ……….. born at: ……… code:…….. we are honored to have you in the school tomorrow. thank you. Excel工作表 Num first-name last-name birth-date code 1 jhon sweeft 01-01-1994 1011 2 michal yves 02-06-1989 1201 3 simon mark 30-11-1973 1202 如果我们select数字1的人，Word的邀请模式如下： Mr: jhon sweeft bored at: 01-01-1994 code:1011 we are horn […]

插入多个书签位置 – Excel VBA: 我正在使用一个Excelmacros，我将相同的文本插入Word文档中的几个书签。我怎么能通过指定插入命令一次，并将其应用到所有的书签位置？现在我正在为所有书签做以下事情？ Dim monYear As String monYear = Format(DateAdd("m", -1, Now), "mmmm yyyy") wdApp.Selection.GoTo what:=-1, Name:="Front_Page_Month_Year" wdApp.Selection.TypeText monYear wdApp.Selection.GoTo what:=-1, Name:="Page2_Month_Year" wdApp.Selection.TypeText monYear 并继续…

在分隔符的第四个实例之后，将换行符添加到长string中: 我有一个超长string，由字符“|”分隔在微软的话。我能够在每个string的第四个实例之后添加一个换行符吗？例如原始string：约翰| 21 | M |学生|刘德华| 25 | M |教师|雪利酒| 22 | F |学生|谢霆锋| 21 | M |学生|达芙妮| 19 | F |学生| …… 期望的输出：约翰| 21 | M |学生安迪| 25 | M |教师雪利酒| 22 | F |学生尼古拉斯| 21 | M |学生达芙妮| 19 | F |学生 …. 我只能访问微软的Word，Excel，记事本，写字板。 […]

打开Word模板作为模板而不是文档（来自Excel）: 我正在构build一些报告模板。它们都是基于一个具有特定布局和表格的“主模板”。然后，我有一个Excel表，我正在使用填充主模板，然后另存为一个新的模板，报告该特定的项目。我有这个工作正常，但意识到我的代码打开一个新的基于主模板的文件，然后保存为新的模板。这很好，但是我的主模板现在在Document_New（）事件中包含一个用户窗体。因此，我需要它作为一个模板打开，所以我可以填充和保存为新的模板。通过代码打开主文档而不是模板，它将立即运行用户表单。我需要它让我打开主，填充它并保存它，然后，当需要做报告时，打开新的模板，然后运行用户表单。我的代码（在Excel文件中）打开主模板是： Dim wdApp As New Word.Application 'a new instance of Word Dim wdDoc As Word.Document 'our new Word template Dim myWordFile As String 'path to Word template myWordFile = "W:\Entity\Inspect\WORD\INSPECTION TEMPLATES\Inspection Template – 20160519.dotm" wdDoc.SaveAs "W:\Entity\Inspect\WORD\INSPECTION TEMPLATES\Report Templates\" & vUnit & "\" & vItem & " Thorough […]

打开Word文档，复制特定的文本，粘贴到Excel电子表格: 我正在尝试打开一个VBA脚本来打开一个单词文档，查找一个看上去像“TPXXXX”（其中“X”是数字）的单词，然后将该文本粘贴到Excel电子表格中。我可以打开文档这个词，但是我无法select和find我需要的文本。到目前为止，我有这个部分： Sub Copy() 'Create variables Dim Word As New Word.Application Dim WordDoc As New Word.Document Dim Doc_Path As String Dim WB As Workbook Dim WB_Name As String Doc_Path = "C:\Path\To\File.docx" Set WordDoc = Word.Documents.Open(Doc_Path) 'Find text and copy it (part that I am having trouble with) Selection.Find.ClearFormatting With Selection.Find .Text = "TP" .Format […]