搜尋此網誌

2020年1月21日 星期二

如何在OWA寄件者欄位改別的寄件者Unable to change "send from" on OWA

第一步先要知道寄件者欄位怎麼叫出來


第二步, 於寄件者欄位Mouse按右鍵刪除寄件人

第三步 自己打上你要使用之寄件人即可,下次再使用時下拉寄件人就會有之前使用的人名,選就好,不用再key in了。

參考網址:

2020年1月6日 星期一

word檔中已存在之追蹤修訂作者或是註解的全名或是縮寫姓名是否可以修改,答案是可以的。(Word追蹤修訂改作者名字,修改註解的作者名字)

長久以來,三不五時就會有人問已經是追蹤修訂的word檔其已經存在之追蹤修訂的作者可不可以改?答案是可以的。

方法一:
不管原先已存在之作者有幾位,一次全改成一位,很簡單,

  1. 將此檔案全部拒絕檔案之所有改變,另存新檔為original.docx,視為原始檔。
  2. 將此檔案全部接受檔案之所有改變,另存新檔為modify.docx,視為修改檔。
  3. 將original.docx、modify.docx版本比較,選校閱 > 比較 > 比較
  4. 收工
方法二:
如果追縱修訂檔案中已有好多位作者,而只想修改其中一位或兩位不等的狀況,就用下列方式吧!

  1. 用zip工具,例如7zip直接開啟該word檔.docx
    將docx另存成xml
  2. 找到word\document.xml這個檔(這是記錄修訂所在文檔的內容,例如頁眉、頁腳、腳註、尾註等)
    用notepad
    開啟讓xml檔
  3. click mouse右鍵並選擇編輯 (會自動用notepad開啟)
  4. 找到用改的作者
    1. 改全名:Search author=", 找到想改的作者名稱, Ex:舊作者名為TestMan,新作者名為NewMan
    2. 改縮寫:Search  initials= ,找到想改的作者縮寫(舊版的word的註解會顯示縮寫)
  5. Replace(取代)找尋目標author="TestMan,取代為:author="NewMan,全部取代,改縮寫的話要找尋目標 initials="TestMan,取代為: initials="NewMan
    請注意如果作者文字有特殊字,不可以直接輸入,不然改好的檔案開不起來,例如Test & Man要變成Test & Man 才行,其它特殊字可先模擬一個測試檔,用上述方法進去看看長怎樣,很簡單的,不用亂找。
  6. 存檔
  7. 用word開啟該xml檔(此時您已經可以看出效果了),再另存為DOCX即可
  8. 收工
方法三:利用VBA,有請自行研究。



如果你是想更改Word中現有「註解」的作者姓名,請參考這篇:

參考資料:


如何更改Word中現有「註解」的作者姓名

如果有一個Word檔中已存在了大量的「註解」,且希望將所有註解作者姓名一次全部更改為另一個作者姓名,可不可以呢? 答案是可以的,請看下方的做法:

利用以下VBA碼即可一次大量更改註解之作者姓名。如果註解有不同作者的話,比方法不好,請參考另一篇文章word檔中已存在之追蹤修訂作者或是註解的全名或是縮寫姓名是否可以修改,答案是可以的。(Word追蹤修訂改作者名字,修改註解的作者名字)

  1. 重要:選擇(Mark)包含註釋的範圍或選擇要更改作者姓名的整個文檔,如要整份文件一次修改的話則全選按Ctrl + A 按鍵。
  2. 按下 ALT + F11 鍵打開 Microsoft Visual Basic for Applications視窗。
  3. 在Microsoft Visual Basic for Applications 視窗中,選擇插入 > 模組。 然後將下列VBA碼複製到模組窗口中。
  4. 按F5執行
  5. 請輸入新的作者全名對話框中,輸入新的作者姓名全名,然後點擊 OK 按鈕。
  6. 請輸入新的作者簡稱對話框中,輸入新的作者姓名簡稱,然後點擊 OK 按鈕。
  7. 收工。看看你想改的作者名都改好啦~~~
VBA碼如下:=================================================

方法一:一次全改
Sub ChangeCommentAuthor()
'Reference form https://www.datanumen.com/blogs/4-ways-delete-change-author-names-comments-word-document/
'Chinese culture By Birdman 2022/12/29
    Dim xNewName As String
    Dim xShortName As String
    Dim objComment As Comment
    xNewName = InputBox("請輸入新的作者全名:", "請輸入新的作者全名")
    xShortName = InputBox("請輸入新的作者簡稱:", "請輸入新的作者簡稱")
    If xNewName = "" Or xShortName = "" Then
        MsgBox "您輸入的的作者全名或簡稱是空的", vbInformation, "未完成報告"
        Exit Sub
    End If
  ' Change all author names in comments
  For Each objComment In ActiveDocument.Comments
    objComment.Author = xNewName
    objComment.Initial = xShortName
  Next objComment
End Sub


方法二:只改有Mark的註解作者,如果沒有Mark就不會更改。

Sub ChangeCommentAuthor()
'Updated by EntendOffice 20181112
'Chinese culture By Birdman 2020/01/06
    Dim I As Long
    Dim xNewName As String
    Dim xShortName As String
    If Selection.Comments.Count = 0 Then
        MsgBox "沒有可以改變的註解,或是您沒有Mark要改的文章!", vbInformation, "一定要Mark要修改的地方"
        Exit Sub
    End If
    xNewName = InputBox("請輸入新的作者全名:", "請輸入新的作者全名")
    xShortName = InputBox("請輸入新的作者簡稱:", "請輸入新的作者簡稱")
    If xNewName = "" Or xShortName = "" Then
        MsgBox "您輸入的的作者全名或簡稱是空的", vbInformation, "未完成報告"
        Exit Sub
    End If
    With Selection
        For I = 1 To .Comments.Count
            .Comments(I).Author = xNewName
            .Comments(I).Initial = xShortName
        Next I
    End With
End Sub


參考資料: