華閱文章網word用宏語句實現兩個文檔的段落合并成一個文檔
同時打開三個文件：*,*,*
*是你的中文文檔，*是你的英文文檔，
*是合并之后的文檔。
把下面這個宏拷貝到*中運行即可，你可以修改一下宏，把chinese改成你的中文文檔名字，把english改成你的英文文檔名字。
Sub Macro1()
Windows("chinese").Activate
Dim i As Integer
i = *ns(1).*
For j = 1 To i
Windows("chinese").Activate
*aphs(j).*
*
Windows("merge").Activate
*ndFormat (wdPasteDefault)
*ragraph
Windows("english").Activate
*aphs(j).*
*
Windows("merge").Activate
*ndFormat (wdPasteDefault)
*ragraph
Next j
End Sub
問題補充的回答：
想了一天，沒想出好的辦法，除非能夠找到一個函數能夠判斷表格的起始位置（我還沒找到），那樣還有可能同時判斷段落和表格，否則很難實現。
宏命令太長怎么辦？？？當我想把多個技能集成在一個宏命令上,而一
以下內容為轉載 你要的宏在文章后半部分有教怎么做 不過只看后半部分可能不太好理解 最好從頭看完 自從泰坦創造了世界留下了守護者龍以及雅麗達發明了游戲機并推出了第一款游戲《Pong》之后，已經經過了很長時間。
讓游戲中的角色說話，在很長一段時間之中曾經是游戲制作人夢寐以求的技術。 技術發展的腳步滾滾向前，文字、形象、聲音終于三位一體地登場，塑造游戲角色的空間被瞬間放大了若干倍，游戲人物的表現力與電影名星站到了一條起跑線上，天才的游戲制作人們為之欣喜若狂。
而且這三個塑造角色性格、特征的手段在可以預見的將來都將伴隨著游戲行業不會有任何改變——直到全新的輸出設備技術能讓我們聞到遠方飄來軟泥怪味道的那一天。 當然，解決了“怎么說”的問題之后，“說什么”才是體現人物性格的關鍵所在，也是軟技術含量最高的部分。
那個彬彬有禮的家伙會說“邦德，詹姆斯?邦德。” 那個胸懷七星的肌肉男會說：“你已經死了。”
麻宮雅典娜會說“對不起” 八神庵會說“哈哈哈哈哈哈！” 由此還可以上溯到你一生無法忘記的滴滴撒了地、加加不魯根等等人民群眾耳熟能詳的名人名言醒世警句。 那么現在，作為盜賊的你，還能容忍被賦予冷血般殘忍的時候一言不發？ 作為圣騎士的你，還能容忍為他人犧牲的時候保持神圣的沉默權利？ 作為法師的你，還能容忍做面包的時候竟然不嘮嘮叨叨？ 等等！我知道你想說什么，自從wow被發現有宏命令以來，“我對XXX使用了恢復術，將在y秒后治療xxx-xxxHP”這樣的宏已經爛遍了大街，成為raid之中眾人深痛惡之的垃圾信息供應商。
這一類簡單的宏除了令人厭惡的持久重復之外并沒有帶來太多的可能性，以至于不管是憂傷的暗影箭，還是氣勢磅礴的烈焰沖擊，都只能在令人窒息的安靜中進行。 是時候改變這一切了，稍微復雜些的宏編寫，將讓我們擁有全新的空間展示角色個性，同時又可以避免重復為隊友帶來困擾。
現在就開始，擁有自己的臺詞，結束在wow跑龍套的生涯。 ————例1 不會打擾隊友的隨機發言———— *所有【】符號框起來的都是注釋內容，勿寫入宏里面。
【1】 /script ayj1="夜幕之下，沒有憐憫的影子"；ayj2="誰又能逃得掉，那股暗淡的哀傷"；suiji=random(10) 【2】 /script if suiji==1 then SendChatMessage(ayj1) else if suiji==2 then SendChatMessage(ayj2)else end;end 【3】 /施放 暗影箭（等級 9） 這是一個在網上可以找到的例子。 關于第【1】行，我們要理解【=】等號的含義。
編程中的等號與“等于”這個概念完全不相干，你可以理解【=】是一個裝罐機，【ayj1=”夜幕之下，沒有憐憫的影子”】就是把后面一段引號之間的內容，裝進了一個標簽為ayj1的罐頭里（如你所想，ayj1正是暗影箭1的縮寫），這個罐頭我們將在稍后使用。 中間的三個【；】屬于必要格式，用來分隔三個相對獨立的語句。
同時我們使用了一個random命令，【suiji=random(10)】就意味著我們讓系統產生一個1~10之間的隨機數，并把這個數裝進標為【suiji】的罐頭里。 第【2】行，【If XXX then YYY else ZZZ】的句式，是用來判斷XXX是否成立，如果成立則執行YYY動作，如果不成立則執行ZZZ動作。
這個【==】是連續兩個等號，代表真正的“等于”的意義。 【if suiji==1 then SendChatMessage(ayj1)】翻譯成中文就是，讓系統察看suiji這個罐頭里面的東西是不是“等于1”，如果是，就SendChatMessage——讓人物說出——ayj1這個罐頭里面的內容。
SendChatMessage命令請注意嚴格按此大小寫拼寫。 當然，由于suiji罐頭里面有可能裝1~10之間的任何一個數，所以suiji很可能不會==1，于是執行下一步【else if suiji==2 then SendChatMessage(ayj2)else end;end】，這里再次判斷suiji是否“等于2”，如果等于2，人物將說出ayj2里面的內容。
如果不“等于2”就結束這個語句。 至于最后的end，必須和if配對出現，就像括號的左邊和右邊一樣鎖定中間的內容，說來話長，只需稍微試驗幾次就可以理解。
至于最后的【3】行，記得同時打開宏編輯窗口和技能書，讓光標停留在編輯宏狀態，再按住shift點擊技能書上的技能圖標，系統會自動幫你寫上這一行。 這個三行的宏工作原理就是這樣的：每運行一次，將把一個新的隨機數裝進suiji罐頭，如果那個隨機數是3~10，就沒什么特別的事情，只是發出一個暗影箭，如果隨機數恰好等于1，則人物會說出一句話，等于2說出另外一句話。
把這個宏拉進技能欄，代替以前的暗影箭吧。 一團團暗影箭在放出，人物在大部分時間里會保持安靜，只是偶爾——各10%的情況下，會說出“夜幕之下，沒有憐憫的影子”，或者“誰又能逃得掉，那股暗淡的哀傷”這樣的句子來。
想象一下在決斗中，當你以一發夜幕狀態的瞬發暗影箭，或是氣定神閑之后的炎爆決定勝負，再幽幽地給補上這么一句，全場是否會為之安靜片刻呢？ 在raid中，你還可以調整第【1】行中【suiji=random(10)】那個數字10到30、40，這將更適合長時間大型raid環境。 例1只是一個簡單應用，用來讓大家理解這一系列宏會用到的主要命令，實際上一旦你開始寫自己的語錄，你就。
宏的復合判斷語句
同一個括號里面的是需要同時存在才會使括號外命令生效 如果是不同括號的話各個括號之間是相互獨立的 前面括號不成立的話后面括號頂上 例如
/cast [target=focus][target=target]恐懼
/cast [target=focus,modifier:ctrl]恐懼
第一個宏 有焦點的話就恐懼焦點 沒有的話就恐懼當前目標（或者說你設定了焦點或者選定了目標才會讀恐懼）
第二個宏 有焦點而且按下ctrl才會讀恐懼
需兩小段EXCEL宏語句
1.
Sub Macro1()
Dim CellsCount As Integer
CellsCount = Range("H65536").End(xlUp).Row
For i = 3 To CellsCount
Cells(CellsCount + i - 2, 8) = Cells(i, 8)
Next
End Sub
2.
Sub Macro2()
Dim CellsCount As Integer
CellsCount = Range("H65536").End(xlUp).Row
For i = 1 To CellsCount
If Cells(i, 8) = "" And Cells(i, 7) "" AndCells(i, 10) "" Then
Cells(i, 8) = Worksheets("Sheet2").Range("A1")
End If
Next
End Sub
你知道代碼加在哪不？
