Word中利用VBA匯入樣式

2021-07-10 22:55:44 字數 1143 閱讀 8008

由於經常編輯文字資料,需要匯入自己定義的樣式,比較麻煩。我利用巨集錄製了一些vba程式。下面是乙個示例。

sub 匯入樣式表集()

'' 匯入樣式表集 巨集''

destination:="e:\待編輯文件.doc", name:="詩詞標題樣式", _

object:=wdorganizerobjectstyles

destination:="e:\待編輯文件.doc", name:="詩詞樣式", _

object:=wdorganizerobjectstyles

destination:="e:\待編輯文件.doc", name:="詩詞大義樣式", _

object:=wdorganizerobjectstyles

destination:="e:\待編輯文件.doc", name:="總結樣式", _

object:=wdorganizerobjectstyles

endsub

但是問題來了,如果是新的編輯文件到來,需要匯入,這個**執行沒有效果。仔細檢查原因。是錄製時候,只是針對具體的文件。要通用化,必須修改destination:="e:\待編輯文件.doc"destination:=activedocument,如下。

sub 匯入樣式表集()

'' 匯入樣式表集 巨集''

destination:=activedocument, name:="詩詞標題樣式", _

object:=wdorganizerobjectstyles

destination:=activedocument, name:="詩詞樣式", _

object:=wdorganizerobjectstyles

destination:=activedocument, name:="詩詞大義樣式", _

object:=wdorganizerobjectstyles

destination:=activedocument, name:="總結樣式", _

object:=wdorganizerobjectstyles

endsub

大功告成!

如何用VBA取得Word文件中的標題前面的序號

遇到乙個小需求,需要提取word文件標題前面的序號,例如 舉例文件 1.一級標題1 一級標題的編號 標題內容,編號可能是系統內建編號樣式,也可能是使用者 自定義的樣式 段落2 文件內容段落2,標題1占用乙個段落,此處為2 段落3 文件內容段落3 1.1 二級標題1.1 多級符號 二級標題,編號樣式為...

VBA 自動匯入資料夾中的EXCEL表

public sub load dim filepath as string,files as string,filename as string filepath currentproject.path 資料夾 xls files dir filepath debug.print filepath...

css中link與 import匯入樣式檔案的區別

1 link是html的標籤,import是css中的語法 2 頁面開啟時,link引用的css檔案被載入。而 import引用的css等頁面載入完後最後載入。3 import是css2.1後提出的,而link是不存在相容問題。4 js操作dom,可以使用link改變樣式,無法使用 import的方...