用word的巨集進行批量新增超連結

想在word裡進行一些重複性的工作

一直人工複製貼上太傻了

巨集簡直不要太好用，能做一些一些重複機械性的操作

sub addhyperlink()

'' addhyperlink 巨集
' 批量新增超連結
'selection.find.clearformatting
dim i
for i = 1 to 500
with selection.find
.text = "*******x要替換的內容*"
.replacement.text = ""
.forward = true
.wrap = wdfindcontinue
.format = false
.matchcase = false
.matchwholeword = false
.matchbyte = true
.matchwildcards = false
.matchsoundslike = false
.matchallwordforms = false
end with
selection.find.execute
changefileopendirectory _
"****word檔案所在位置*"
activedocument.hyperlinks.add anchor:=selection.range, address:= _
"*xx要替換的超連結*", subaddress:="", screentip:="", texttodisplay:= _
"****顯示字元*", target:="_blank"
next i
end sub

用do while進行複雜的巨集定義

在很多比較複雜的巨集定義中，經常可以看到整個介面被一層do while 0 給包了起來 define foo x dowhile 0 這樣定義的是乙個非復合語句，可以確保在類似下面這種情況 if foo x else 可以順利展開，展開後的結果被do while包了起來 if do while 0 ...

word2007中批量新增超連結的方法

在word文件如何批量新增超連結。在發一篇長文章，裡面有很多超連結要打，如果乙個乙個的加就會效率很低，我們可以利用word的巨集vba來實現批量新增超連結。當我們做好乙個word文件的時候，我們可能希望給每次出現的某個詞 如 同行網 都做上超連結，那麼，我們在word文件中如何批量新增超連結呢？手動...

在word下面用Latex的公式進行編輯

一開始我還準備用latex來寫 的。結果後來發現時間不夠，就放棄在latex裡面折騰了。聰明人還是老老實實用word來寫吧。歡迎往我這裡扔新鮮番茄和雞蛋 但是面對著word裡面超級蹩腳的公式輸入法和mathtype，效率怎麼都不可能提高吧？於是乎，重新祭出當初完成組合數學作業的小工具，輕輕鬆鬆就完成...