ms-word

    0熱度

    1回答

    我有從txt文件傳遞數據到數組的問題。我有需要從txt文件中填充數據的word文檔。 Private Function ReadString() As String Dim textArray() As String Dim data As String Open "C:\Data\XFile.ini" For Input As #1 r = 0 Do Until EOF

    0熱度

    1回答

    我定期從各種客戶端獲取Word文檔,有時他們會以「只讀」模式將它們發送給我。雖然手動轉到「查看」>「編輯文檔」並不是什麼大事,但我似乎無法找到如何在我的VBA代碼中執行此操作。 將文檔打開爲可編輯狀態,或者在文檔打開時將其切換爲可編輯文檔將足以滿足我的需求。 請注意,我無法使用'readOnly = false'打開文檔,因爲它看起來像設置爲'readOnly recommended'(基於我閱讀

    0熱度

    1回答

    我有一個包含員工數據和Word模板的Excel文件。我將郵件合併並創建了一個宏,它向我詢問員工姓名,並根據姓名從Excel文件中將該員工的員工詳細信息提取到Word文件。 如果記錄來自Excel工作表的頂部到底部,宏能夠檢索記錄。但是,任何高於當前檢索記錄的記錄都不會被抓取。這真是一個麻煩。能否請你幫忙? 下面是我的代碼: Sub getdata() Dim numRecord As Integ

    0熱度

    1回答

    由於我的文檔通常有一些可以反覆使用的特定短語,因此我想將它們全部熱鍵以節省時間。更具體地說,我打算讓Macro1(插入「當然」),Macro2(插入「問題是」)和Macro3(插入「到時間」),熱鍵Alt + 1,2 ,分別爲3。如果我按Alt + 2,「問題是」立即插入到我的cusor中。 下面是我使用的基宏: Sub Macro1() Selection.TypeText Text:

    0熱度

    1回答

    是否有任何方法創建(並顯示)多行DOCVARIABLE沒有 VBA? 也就是說「一\ r \ nTwo \ r \ nThree」 渲染成 One Two Three

    0熱度

    2回答

    在我的文檔中,我有稱爲「小」的表格樣式。這裏是宏,這將在這種風格的每個表改變字體大小: Sub FormatTables() Dim t As Table For Each t In ActiveDocument.Tables If t.Style = "Small" Then t.Range.Font.Size = 8 End If

    0熱度

    1回答

    我有3列的表和行的數目不詳的和 我需要一個Word文檔中設置版式上的其他細胞可以在列1中搜索字符串「Sum」的宏。 如果找到完全匹配,則該宏必須將該行中剩餘兩個單元格的排版設置爲Word中的兩個不同的印刷格式,並刪除字符串「求和」小區1 該表可以包含字符串的許多實例‘和’,但他們西港島線alwaye在第一列。 我試過的代碼,我對編碼技能的缺乏表示歉意,但是我一直在做這個工作,一直工作得很好,直到「

    0熱度

    1回答

    我必須打印郵資標籤作爲我的在線業務的一部分。我有一個宏來將標籤放置在一個頁面中,但我想要一種將圖像移動到另一個頁面的方式。 如何使用VBA宏將我的20張圖像移動到5張單獨的頁面上,每張圖像上有4張圖像?順便說一下,這在mac中。謝謝。 Sub ImageResize() ' ' ImageResize Macro ' Resizes all images to a height of app

    0熱度

    1回答

    我有4列,每列有2組複選框,我正在尋找循環遍歷每個集合,並檢查兩個複選框是否都被選中,如果它們然後退出子集並且將該項目的名稱與在msgbox中的一組中選中的2個複選框進行檢查。 Set oRow = oTable.Rows Set oTable = doc.Tables(3) For Each oRow In oTable.Rows With oRow If .Cells

    2熱度

    1回答

    我想在Word文檔中找到ole對象,而且它似乎在InlineShapes(1).GroupItems。但不能訪問組項目,因爲它給我錯誤。 Sub findOle() Dim shp As GroupShapes Dim c As Integer Set shp = ActiveDocument.InlineShapes(1).GroupItems End Sub