1. 程式人生 > >一個word文件中,多個表格的批量調整(根據視窗調整表格和新增表格水平線)

一個word文件中,多個表格的批量調整(根據視窗調整表格和新增表格水平線)

Sub 自動調整所有表格()
'
' 自動調整所有表格 巨集
'
'Application.Browser.Target = wdBrowseTable

For i = 1 To ActiveDocument.Tables.Count

   With ActiveDocument.Tables(i)
   .AutoFitBehavior (wdAutoFitWindow) '根據視窗調整內容
   .Range.ParagraphFormat.Alignment = wdAlignParagraphCenter '水平居中
   .Range.ParagraphFormat.Alignment = wdCellAlignVerticalCenter '垂直居中
   .Borders(wdBorderHorizontal).LineStyle = wdLineStyleInset '加水平線
   End With
    
    
    
Next i

End Sub

開啟word文件,選擇開發工具,點選巨集。彈窗之後新建巨集,輸入以上命令,執行即可。

相關推薦

一個word表格批量調整根據視窗調整表格新增表格水平線

Sub 自動調整所有表格() ' ' 自動調整所有表格 巨集 ' 'Application.Browser.Target = wdBrowseTable For i = 1 To ActiveDoc

java 一個class

nds ride 中一 pan 文件名 out clas int [] 一個java文件中可以包含多個類,但這些類中一個特殊類,這個類的屬性為public,且這個類的名字與文件名相同,java文件中僅有一個類為public. interface Moveable

Aspose.Words:如何新增一個WORD的Node物件

 首先看一段程式碼,這段程式碼意圖從docSource中獲取第一個表格,並插入docTarget的末尾: 1 var table = (Table)docSource.GetChild(NodeType.Table, 0, true); 2 docTarget.Fir

比較兩一個比另一個的行

fun logs use 比較 nth $1 then author func 1. 該腳本用來比較兩個文件中,其中一個文件比另一個文件多的行,常用來工作環境中,對比得出多余的ip地址 #!/bin/bash #different in file1 and file2 #

類模板的聲明定義都寫到頭可以分到.h

測試 blog alt com src 類的聲明 技術 寫到 nbsp 通常類模板的聲明和定義都寫到頭文件中,那麽為了看著清晰,類的聲明和定義可以分開寫到多個頭文件中嗎,測試: 類模板的聲明和定義都寫到頭文件中,可以分到多個.h文件中

一個word按頁數拆分為

1. 開啟文件。2. 快捷鍵Alt + F11開啟VBA編輯器,選擇選單“插入->模組”3. 貼上程式碼Option ExplicitSub SplitEveryFivePagesAsDocuments()Dim oSrcDoc As Document, oNewDoc

用python把一個txt所有逗號替換成空格?

image split() 技術分享 pytho pre ron lines mark class 1 string = "word 2 3 4 5 6 7" 2 string = ",".join(string.split()) 3

如何刪除Word表格最後一行出的空白頁

大家在使用Word的時候都遇到過這樣的情況:如果在文件裡面插入了一個表格,而表格佔滿一頁後,會多出一個空行且單獨佔用一個頁面。 這樣一來,Word文件就會多出一個空白頁。且這個空行無法直接進行刪除。這裡給大家介紹一個簡單的方法來快速刪除Word中的空白頁。 表格後面一般有一

ASP.NET C#如何讀取word,寫入word,複製內容到另一個word批量修改檔名

首先要新增COM引用 Microsoft word 11.0 Object Library. 然後新增.NET引用 Microsoft.Office.Interop.Word.dll 下載Aspose.Words引用 Aspose.Words.dll using S

20190127-將一個拆分為

class 獲取 mce size 拆分 encoding with open == 個數 1.一個文件拆分成5個文件 思路: 1. 首先拆分成多個新文件,新的文件名需要定義,使用file_name_no來定義新文件的名字 2. 新文件的內容要使用file_content來

十進位制轉化成2,8,16進位制數工具。將程式碼全部複製到一個txt儲存並將檔案字尾.txt改為.html再瀏覽器開啟即可

<!DOCTYPE html> <html lang="en"> <head> <meta charset="GBK"> <meta http-equiv="X-UA-Compatible" content="IE=ed

poi操作word以07版本為參考word圖片替換為文字替換文字也一樣讀圖片可選文字內容

1、先簡單介紹下word07版本以後的儲存格式,word 07版本以後主要是以xml格式儲存。如果想檢視詳情可將字尾名改為zip,再檢視壓縮檔案可檢視到各種檔案,其中document.xml就是word主要展現給我們大家所看到的內容。2.根據第一步的描述,我查看了docume

使用SharedPreferences將姓名年齡信息保存在並讀取信息

new sta text str @override this ket make and 第一個是XML文件: 1 <?xml version="1.0" encoding="utf-8"?> 2 <LinearLayout xmlns:androi

DOS批處理器移動指定數量一個臨時上傳到linux服務器並刪除臨時夾下的

dosDOS批處理器移動指定數量文件到一個臨時文件夾,上傳到linux服務器,並刪除臨時文件夾下的文件,上傳需要依賴pscp.exe。腳本如下:@echo off&setlocal enabledelayedexpansion #將400個xml文件從M:\dockerEPG\目錄下移動到M:\scp

如何在一個js引入另外的js

ont logs clas lan pst brush 例如 b- spa 例如想要在a.js中引用b.js、c.js和d.js document.write("<script language=‘javascript‘ src=‘b.js‘></s

如何將一個PDF檔拆分為

pdf拆分 在日常辦公學習中,若遇到一份PDF文檔只需要部分內容,那麽該怎麽把這部分內容拆分或者提取出來呢? 接下來小編就以下編輯器為例,詳細講解文檔拆分與提取的步驟,根據您的不同需求使用不同的方法。拆分文檔第一步打開文檔,點擊編輯器左邊的“導航面板”的“頁”,點擊鼠標右鍵,點擊“拆分文檔”:第二步彈出

一個form表單實現submit不同的action

var ctype 編號 表單 顯示 col 格式 action 否則 在button中用JS的事件綁定onclick實現,如下: 1 <!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "

python 一個.py如何調用另一個.py的類函數

技術分享 https log details com name 如何 mage nbsp 原文地址https://blog.csdn.net/winycg/article/details/78512300 在同一個文件夾下 調用函數: python

mybatis plus XML如何使用where條件

查詢條件 class ont alt src 百度 attach wrapper tle 網上搜到很多例子教你在mybatis plus使用XML文件來查詢自定義的sql,但是給的例子都是給的只註解了一個where的例子。我最近在開發的一個項目中,因為涉及到了多表

虛擬機—script 不在 sudoers 此事將被報告的問題

文件中 iso ont family roo 16px cal 編輯器 nbsp 問題來源:(centos7) 這裏我們使用sudo命令,讓script用戶使用root身份執行命令時報錯: [script@localhost ~]$ sudo mkdir /mnt